Imports EgtUILib

Public Class AboutBoxV

#Region "METHODS"

   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()
      CopyrightLbl.Text = My.Application.Info.Copyright.ToString()
      Dim sInfo As String = String.Empty
      Dim sKey As String = String.Empty
      EgtGetKeyInfo(sKey)
      Dim sKlev As String = Map.refMainWindowVM.MainWindowM.nKeyLevel.ToString()
      Dim sOpts As String = Map.refMainWindowVM.MainWindowM.nKeyOptions.ToString()
      Dim sLeftDays As String = ""
      Dim nLeftDays As Integer
      If EgtGetKeyLeftDays(nLeftDays) AndAlso nLeftDays < 500 Then sLeftDays = " (" & nLeftDays.ToString() & ")"
      sInfo = If(EgtIsDebug(), "*** Debug Libraries ***" & Environment.NewLine, "")
      sInfo &= "User " & Environment.MachineName & "\" & Environment.UserName &
               "  Inst" & Map.refMainWindowVM.MainWindowM.nInstance.ToString() &
               " Ulv" & Map.refMainWindowVM.MainWindowM.nUserLevel.ToString() &
               " Dbg" & Map.refMainWindowVM.MainWindowM.DebugLevel().ToString() & Environment.NewLine
      sInfo &= sKey & " - " & sKlev & " - " & sOpts & sLeftDays & Environment.NewLine
      sInfo &= "DataRoot " & Map.refMainWindowVM.MainWindowM.sDataRoot & Environment.NewLine
      sInfo &= "MachinesRoot " & Map.refMainWindowVM.MainWindowM.sMachinesRoot & Environment.NewLine
      Dim sOpSys As String = String.Empty
      EgtGetOsInfo(sOpSys)
      sInfo &= sOpSys & Environment.NewLine
      Dim sCPU As String = String.Empty
      EgtGetCpuInfo(sCPU)
      sInfo &= sCPU & Environment.NewLine
      Dim sMem As String = String.Empty
      EgtGetMemoryInfo(sMem)
      sInfo &= sMem & Environment.NewLine
      Dim sScene As String = String.Empty
      EgtGetSceneInfo(sScene)
      sInfo &= sScene
      InfoLbl.Text = sInfo
   End Sub

#End Region    ' Methods

End Class