Dario Sassi
7a25e8d634
- aggiunta toolbar per ReversePost - gestione protezione da licenza di Trimming e ReversePost - aggiunte info su Window, Trimming e ReversePost in AboutBox.
103 lines
4.8 KiB
VB.net
103 lines
4.8 KiB
VB.net
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() & ")"
|
|
Dim sAssStatus As String = " discontinued"
|
|
Dim nAssLeftDays As Integer
|
|
If EgtGetKeyAssLeftDays( nAssLeftDays) And nAssLeftDays >= 0 Then
|
|
If nAssLeftDays > 30 then
|
|
sAssStatus = "expires within " & nAssLeftDays.ToString() & " days"
|
|
Else If nAssLeftDays > 0 then
|
|
sAssStatus = "to be renewed within " & nAssLeftDays.ToString() & " days"
|
|
Else
|
|
sAssStatus = "to be renewed by today"
|
|
End If
|
|
End If
|
|
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 &= "SupportPlan " & sAssStatus & 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.IsActiveWindow() Then
|
|
bExtensions = True
|
|
Dim sVersion As String = "---"
|
|
IniFile.GetSpecialLuaVersion( IniFile.m_sWindowDirPath, sVersion)
|
|
sInfo &= Environment.NewLine & "Window ver. " & sVersion & " " & IniFile.m_sWindowDirPath
|
|
End If
|
|
If IniFile.IsActiveTrimming() Then
|
|
bExtensions = True
|
|
Dim sVersion As String = "---"
|
|
IniFile.GetSpecialLuaVersion( IniFile.m_sTrimmingDirPath, sVersion)
|
|
sInfo &= Environment.NewLine & "Trimming ver. " & sVersion & " " & IniFile.m_sTrimmingDirPath
|
|
End If
|
|
If IniFile.IsActiveReversePost() Then
|
|
bExtensions = True
|
|
Dim sVersion As String = "---"
|
|
IniFile.GetSpecialLuaVersion( IniFile.m_sReversePostDirPath, sVersion)
|
|
sInfo &= Environment.NewLine & "ReversePost ver. " & sVersion & " " & IniFile.m_sReversePostDirPath
|
|
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
|