Dario Sassi
73b60c3c30
- ricompilazione per nuova versione - aggiunto app.manifest per riconoscere Windows 10.
51 lines
1.8 KiB
VB.net
51 lines
1.8 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class AboutBoxWD
|
|
|
|
' Riferimento alla MainWindow
|
|
Private m_MainWindow As MainWindow = Application.Current.MainWindow
|
|
|
|
Sub New(Owner As Window)
|
|
|
|
' This call is required by the designer.
|
|
InitializeComponent()
|
|
|
|
' Add any initialization after the InitializeComponent() call.
|
|
Me.Owner = Owner
|
|
Me.Top = Owner.Top + (Owner.Height / 2 - Me.Height / 2)
|
|
Me.Left = Owner.Left + (Owner.Width / 2 - Me.Width / 2)
|
|
Me.ShowDialog()
|
|
|
|
End Sub
|
|
|
|
Private Sub AboutBoxWD_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
|
|
DescriptionLbl.Text = My.Application.Info.Description.ToString()
|
|
VersionLbl.Text = "Version : " & m_MainWindow.GetVersion()
|
|
Dim sKey As String = String.Empty
|
|
EgtGetKeyInfo(sKey)
|
|
Dim sOpts As String = m_MainWindow.GetKeyOptions().ToString()
|
|
KeyLbl.Text = sKey & " - " & sOpts
|
|
CopyrightLbl.Text = My.Application.Info.Copyright.ToString()
|
|
Dim sMachine As String = String.Empty
|
|
If EgtGetCurrMachineName(sMachine) Then
|
|
MachineLbl.Text = "Machine : " & sMachine
|
|
Else
|
|
MachineLbl.Text = "Machine : ---"
|
|
End If
|
|
Dim nProjInd As Integer = 0
|
|
If EgtGetInfo(EgtGetFirstNameInGroup(GDB_ID.ROOT, NAME_PROJMARK), INFO_PROJINDEX, nProjInd) Then
|
|
ProjIndexLbl.Text = "Project : " & nProjInd.ToString()
|
|
Else
|
|
ProjIndexLbl.Text = "Project : ---"
|
|
End If
|
|
Dim sFile As String = String.Empty
|
|
If EgtGetCurrFilePath(sFile) Then
|
|
Dim CompactPath As New Text.StringBuilder(260)
|
|
PathCompactPathEx(CompactPath, sFile, 44, 0)
|
|
ProjPathLbl.Text = "(" & CompactPath.ToString() & ")"
|
|
End If
|
|
ExitBtn.Content = EgtMsg(MSG_MISSINGKEYWD + 4) 'Ok
|
|
End Sub
|
|
|
|
End Class
|