DarioS
ac48e9c706
- milgiorata gestione errore in ManageProfileType - AboutBox dà indicazioni su Uso Librerie Debug, OS, CPU, Grafica - modificato manifest.app per riconoscere iOS fino a Windows 11 - cambio versione e sistemazione controllo codice mensile.
41 lines
1.8 KiB
VB.net
41 lines
1.8 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class AboutBoxV
|
|
|
|
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 = IniFile.m_nKeyLevel.ToString()
|
|
Dim sOpts As String = IniFile.m_nKeyOptions.ToString()
|
|
KeyLbl.Text = sKey & " - " & sKlev & " - " & sOpts
|
|
CopyrightLbl.Text = My.Application.Info.Copyright.ToString()
|
|
Dim sInfo As String = If( EgtIsDebug(), "*** Debug Libraries ***" & vbCrLf, "")
|
|
sInfo &= "DataRoot " & IniFile.m_sDataRoot & vbCrLf
|
|
sInfo &= "Doors " & IniFile.m_sDoorsDirPath & vbCrLf
|
|
If OptionModule.m_MaterialList.Count = 1 Then
|
|
sInfo &= "Material " & OptionModule.m_MaterialList(0).Name
|
|
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
|
|
InfoLbl.Text = sInfo
|
|
ExitBtn.Content = EgtMsg(MSG_MISSINGKEYWD + 4) 'Ok
|
|
End Sub
|
|
|
|
End Class
|