Imports EgtUILib

Public Class AboutBoxWndV

   Private Sub AboutBoxWD_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
      DescriptionLbl.Text = My.Application.Info.Description.ToString()
      VersionLbl.Text = "Version : " & GetProgramVersion()
      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 = IniFile.m_nKeyLevel.ToString()
      Dim sOpts As String = IniFile.m_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" & IniFile.m_nInstance.ToString() &
               " Ulv" & IniFile.m_nUserLevel.ToString() & " Dbg" &  Map.refMainWindowVM.DebugLevel().ToString() & Environment.NewLine
      sInfo &= sKey & " - " & sKlev & " - " & sOpts & sLeftDays & Environment.NewLine
      sInfo &= "DataRoot " & IniFile.m_sDataRoot & Environment.NewLine
      If IniFile.m_ProjectMode <> ProjectModeOpt.ONLYDRAW Then
         sInfo &= "MachinesRoot " & IniFile.m_sMachinesRoot & Environment.NewLine
      Else
         sInfo &= "Only Draw Mode" & Environment.NewLine
      End If
      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
      ' Extensions
      sInfo &= Environment.NewLine & "Extensions :"
      Dim bExtensions As Boolean = False
      If IniFile.IsActiveBeam() Then
         bExtensions = True
         Dim sVersion As String = "---"
         IniFile.GetSpecialLuaVersion( IniFile.m_sBeamDirPath, sVersion)
         sInfo &= Environment.NewLine & "Beam ver. " & sVersion & "   " & IniFile.m_sBeamDirPath
      End If
      If IniFile.IsActiveWall() Then
         bExtensions = True
         Dim sVersion As String = "---"
         IniFile.GetSpecialLuaVersion( IniFile.m_sWallDirPath, sVersion) 
         sInfo &= Environment.NewLine & "Wall ver. " & sVersion & "   " & IniFile.m_sWallDirPath
      End If
      If IniFile.IsActiveDoors() Then
         bExtensions = True
         Dim sVersion As String = "---"
         IniFile.GetSpecialLuaVersion( IniFile.m_sDoorsDirPath, sVersion) 
         sInfo &= Environment.NewLine & "Doors ver. " & sVersion & "   " & IniFile.m_sDoorsDirPath
      End If
      If IniFile.IsActiveGunStock() Then
         bExtensions = True
         Dim sVersion As String = "---"
         IniFile.GetSpecialLuaVersion( IniFile.m_sGunstockDirPath, sVersion) 
         sInfo &= Environment.NewLine & "Gunstock ver. " & sVersion & "   " & IniFile.m_sGunstockDirPath
      End If
      If Not bExtensions Then sInfo &= Environment.NewLine & "---"
      InfoLbl.Text = sInfo
      ExitBtn.Content = EgtMsg(MSG_MISSINGKEYWD + 4)          'Ok
   End Sub

End Class