Renzo Lanza
747d4c746d
- Pulsante Delete cancella il record ma rimane nella pagina Search - Lettura file .ini adattata al lettore già presente nell'applicativo - Rinominati i file di configurazione in LicenceManager (.ini/.lic) - Rinominato il file d Log - Percorso KeyGenerator nel file .ini - Proposta data di oggi di default in NewLicencePage - ComboBox per ProductLevel con 1,5,10 - ComboBox in ordine di numero - Aggiunti "---ANY---" nelle comboBox di SearchKeyPage - SearchKey: Risultati di ricerca in ordine di numero - Adattamento al valore restituito (0 o 1) da KeyGenerator - Importazione AboutBox OmagCUT (DA SISTEMARE)
43 lines
1.5 KiB
VB.net
43 lines
1.5 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class AboutBoxWD
|
|
|
|
' Riferimento alla MainWindow
|
|
' Private m_MainWindow As MainWindowVM = DirectCast(Application.Current.MainWindow, MainWindowVM)
|
|
|
|
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()
|
|
#If TRIAL Then
|
|
If sKey.Length() <= 14 Then
|
|
KeyLbl.Text = sKey & " - " & sOpts
|
|
Else
|
|
KeyLbl.Text = sKey.Substring(0, 9) & "..." & sKey.Substring(sKey.Length() - 5) & " - " & sOpts
|
|
End If
|
|
#Else
|
|
KeyLbl.Text = sKey & " - " ' & sOpts
|
|
#End If
|
|
CopyrightLbl.Text = My.Application.Info.Copyright.ToString()
|
|
'MachineLbl.Text = "Machine : " & m_MainWindow.m_CurrentMachine.sMachineName
|
|
'ProjectLbl.Text = "Project : " & m_MainWindow.m_CurrentProjectPageUC.GetCurrentProjectName()
|
|
ExitBtn.Content = EgtMsg(MSG_MISSINGKEYWD + 4) 'Ok
|
|
End Sub
|
|
|
|
End Class
|