EgtCAM5/AboutBoxWindow/AboutBoxView.xaml.vb

Imports EgtUILib

Public Class AboutBoxView

   ' Riferimento alla MainWindow
   Private m_MainWindow As Window = Application.Current.MainWindow

   Sub New()

      ' This call is required by the designer.
      InitializeComponent()

      ' Add any initialization after the InitializeComponent() call.
      Application.Msn.Register(Application.CLOSEAPPLICATION, Sub()
                                                                Me.Close()
                                                             End Sub)
   End Sub

   Private Sub AboutBoxView_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
      'Me.Owner = Application.Current.MainWindow
      'Me.Owner = Owner
      Me.Top = Owner.Top + (Owner.Height / 2 - Me.Height / 2)
      Me.Left = Owner.Left + (Owner.Width / 2 - Me.Width / 2)
   End Sub

   Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
      Me.Visibility = Windows.Visibility.Hidden
   End Sub

   Private Sub AboutBoxWD_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
      Me.Owner = Application.Current.MainWindow
      DescriptionLbl.Text = My.Application.Info.Description.ToString()
      VersionLbl.Text = "Version : " & My.Application.Info.Version.Major.ToString() &
                                 "." & My.Application.Info.Version.Minor.ToString() &
                                 (ChrW(97 - 1 + My.Application.Info.Version.Build)).ToString() &
                                 My.Application.Info.Version.Revision.ToString()
      Dim sKey As String = String.Empty
      EgtGetKeyInfo(sKey)
      Dim sKlev As String = m_nKeyLevel.ToString()
      Dim sOpts As String = m_nKeyOptions.ToString()
      KeyLbl.Text = sKey & " - " & sKlev & " - " & sOpts
      CopyrightLbl.Text = My.Application.Info.Copyright.ToString()
      'MachineLbl.Text = "Machine : " & m_MainWindow.m_CurrentMachine.sMachineName
      'ProjectLbl.Text = "Project : " & m_MainWindow.m_CurrentProjectPageUC.GetCurrentProjectName()
      ExitBtn.Content = EgtMsg(MSG_MISSINGKEYWD + 4)          'Ok
   End Sub

End Class