diff --git a/AboutBoxWD.xaml.vb b/AboutBoxWD.xaml.vb index 17389bb..77b64c8 100644 --- a/AboutBoxWD.xaml.vb +++ b/AboutBoxWD.xaml.vb @@ -20,10 +20,7 @@ Public Class AboutBoxWD Private Sub AboutBoxWD_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized 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() + VersionLbl.Text = "Version : " & m_MainWindow.GetVersion() Dim sKey As String = String.Empty EgtGetKeyInfo(sKey) Dim sOpts As String = m_MainWindow.GetKeyOptions().ToString() diff --git a/MainWindow.xaml.vb b/MainWindow.xaml.vb index 9c5b008..6c1cadf 100644 --- a/MainWindow.xaml.vb +++ b/MainWindow.xaml.vb @@ -20,6 +20,7 @@ Class MainWindow Private m_sProjDir As String = String.Empty Private m_sIniFile As String = String.Empty Private m_nDebug As Integer = 0 + Private m_sVersion As String = "1.1a1" ' Variabile con la lingua corrente Friend m_CurrLanguage As Language ' Lista delle lingue disponibili e lingua corrente @@ -79,6 +80,10 @@ Class MainWindow Return m_nKeyOptions End Function + Friend Function GetVersion() As String + Return m_sVersion + End Function + Private Sub MainWindow_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized ' Verifico sia l'unica istanza ManageSingleIstance() @@ -114,8 +119,12 @@ Class MainWindow EgtSetKey(sKey) ' Inizializzazione generale di EgtInterface m_nDebug = GetPrivateProfileInt(S_GENERAL, K_DEBUG, 0, m_sIniFile) + m_sVersion = 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 sLogFile As String = m_sTempDir & "\" & GENLOG_FILE_NAME - Dim sLogMsg As String = My.Application.Info.Description.ToString() & " ver. " & My.Application.Info.Version.ToString() + Dim sLogMsg As String = My.Application.Info.Description.ToString() & " ver. " & m_sVersion EgtInit(m_nDebug, sLogFile, sLogMsg) ' Leggo direttorio dei messaggi (se manca uso direttorio di configurazione) Dim sMsgDir As String = String.Empty diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index c2c1dbe..53d11e3 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -15,7 +15,7 @@ Imports System.Windows - + @@ -55,5 +55,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + + diff --git a/My Project/app.manifest b/My Project/app.manifest new file mode 100644 index 0000000..ce9111f --- /dev/null +++ b/My Project/app.manifest @@ -0,0 +1,76 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/OmagVIEW.vbproj b/OmagVIEW.vbproj index 04f57fb..9380f9d 100644 --- a/OmagVIEW.vbproj +++ b/OmagVIEW.vbproj @@ -67,6 +67,9 @@ Resources\OmagVIEW.ico + + My Project\app.manifest + ..\..\EgtProg\DllD32\EgtUILib.dll @@ -190,6 +193,7 @@ My.Resources + SettingsSingleFileGenerator Settings.Designer.vb diff --git a/OmagVIEWDictionary.xaml b/OmagVIEWDictionary.xaml index 3504f1e..b19ba33 100644 --- a/OmagVIEWDictionary.xaml +++ b/OmagVIEWDictionary.xaml @@ -6,7 +6,6 @@ xmlns:ControlExtensions="clr-namespace:OmagVIEW.ControlExtensions" xmlns:sys="clr-namespace:System;assembly=mscorlib" - xmlns:Themes="clr-namespace:Microsoft.Windows.Themes;assembly=PresentationFramework.Aero" xmlns:local="clr-namespace:OmagVIEW.ArithmeticConverterNameSpace" x:Class="OmagCUTDictionary">