Imports EgtUILib

Public Class AboutBoxWD

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

   Sub New(Owner As Window)

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

      ' Add any initialization after the InitializeComponent() call.
      Me.Owner = Owner
      Me.Top = Owner.Top + (Owner.Height / 2 - Me.Height / 2)
      Me.Left = Owner.Left + (Owner.Width / 2 - Me.Width / 2)
      Me.ShowDialog()

   End Sub

   Private Sub AboutBoxWD_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
      DescriptionLbl.Text = My.Application.Info.Description.ToString()
      VersionLbl.Text = "Version : " & m_MainWindow.GetVersion()
      Dim sKey As String = String.Empty
      EgtGetKeyInfo(sKey)
      Dim sOpts As String = m_MainWindow.GetKeyOptions().ToString()
      KeyLbl.Text = sKey & " - " & sOpts
      CopyrightLbl.Text = My.Application.Info.Copyright.ToString()
      Dim sMachine As String = String.Empty
      If EgtGetCurrMachineName(sMachine) Then
         MachineLbl.Text = "Machine : " & sMachine
      Else
         MachineLbl.Text = "Machine : ---"
      End If
      Dim nProjInd As Integer = 0
      If EgtGetInfo(EgtGetFirstNameInGroup(GDB_ID.ROOT, NAME_PROJMARK), INFO_PROJINDEX, nProjInd) Then
         ProjIndexLbl.Text = "Project : " & nProjInd.ToString()
      Else
         ProjIndexLbl.Text = "Project : ---"
      End If
      Dim sFile As String = String.Empty
      If EgtGetCurrFilePath(sFile) Then
         Dim CompactPath As New Text.StringBuilder(260)
         PathCompactPathEx(CompactPath, sFile, 44, 0)
         ProjPathLbl.Text = "(" & CompactPath.ToString() & ")"
      End If
      ExitBtn.Content = EgtMsg(MSG_MISSINGKEYWD + 4)          'Ok
   End Sub

End Class