Dario Sassi
54 lines
2.3 KiB
VB.net
54 lines
2.3 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class AboutBoxView
|
|
|
|
' Riferimento alla MainWindow
|
|
Private m_MainWindow As Window = Application.Current.MainWindow
|
|
|
|
Sub New()
|
|
|
|
' This call is required by the designer.
|
|
InitializeComponent()
|
|
|
|
' Add any initialization after the InitializeComponent() call.
|
|
Application.Msn.Register(Application.CLOSEAPPLICATION, Sub()
|
|
Me.Close()
|
|
End Sub)
|
|
End Sub
|
|
|
|
Private Sub AboutBoxView_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
|
|
'Me.Owner = Application.Current.MainWindow
|
|
'Me.Owner = Owner
|
|
'Me.Top = Owner.Top + (Owner.Height / 2 - Me.Height / 2)
|
|
'Me.Left = Owner.Left + (Owner.Width / 2 - Me.Width / 2)
|
|
End Sub
|
|
|
|
Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
|
|
Me.Visibility = Windows.Visibility.Hidden
|
|
End Sub
|
|
|
|
Private Sub AboutBoxWD_Loaded(sender As Object, e As EventArgs) Handles Me.Loaded
|
|
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 = IniFile.m_nKeyLevel.ToString()
|
|
Dim sOpts As String = IniFile.m_nKeyOptions.ToString()
|
|
sInfo = sKey & " - " & sKlev & " - " & sOpts & Environment.NewLine
|
|
sInfo &= "DataRoot " & IniFile.m_sDataRoot & Environment.NewLine
|
|
sInfo &= "MachinesRoot " & IniFile.m_sMachinesRoot & 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
|