diff --git a/Constants/ConstIni.vb b/Constants/ConstIni.vb index 0c6b879..0976358 100644 --- a/Constants/ConstIni.vb +++ b/Constants/ConstIni.vb @@ -43,6 +43,7 @@ Module ConstIni Public Const K_REFRESHTIME As String = "RefreshTime" Public Const K_DDFVERSION As String = "DDFVersion" Public Const K_SAVEASSINGLEDOOR As String = "SaveAsSingleDoor" + Public Const K_READONLY As String = "ReadOnly" Public Const S_LANGUAGES As String = "Languages" Public Const K_LANGUAGE As String = "Language" diff --git a/MainWindow/MainWindowModel.vb b/MainWindow/MainWindowModel.vb index 385fc4b..c7d5162 100644 --- a/MainWindow/MainWindowModel.vb +++ b/MainWindow/MainWindowModel.vb @@ -71,8 +71,8 @@ Friend Class MainWindowModel EgtSetLockId(sLockId) End If ' Recupero livello e opzioni della chiave - Dim bKey As Boolean = EgtGetKeyLevel(3279, 2706, 1, IniFile.m_nKeyLevel) And - EgtGetKeyOptions(3279, 2706, 1, IniFile.m_nKeyOptions) + Dim bKey As Boolean = EgtGetKeyLevel(3279, 2712, 1, IniFile.m_nKeyLevel) And + EgtGetKeyOptions(3279, 2712, 1, IniFile.m_nKeyOptions) ' Leggo e imposto livello utilizzatore IniFile.m_nUserLevel = Math.Min(IniFile.m_nKeyLevel, GetMainPrivateProfileInt(S_GENERAL, K_USERLEVEL, 1)) 'Inizializzazione generale di EgtInterface diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 8c1fb29..23c2875 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -72,5 +72,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + + diff --git a/OptionsWindow/OptionModule.vb b/OptionsWindow/OptionModule.vb index 4bc9e2d..0738d1a 100644 --- a/OptionsWindow/OptionModule.vb +++ b/OptionsWindow/OptionModule.vb @@ -246,7 +246,7 @@ Friend Module OptionModule ' verifico se il programma è in modalità di sola lettura DDF If (IniFile.m_nKeyOptions And KEY_OPT.READ_ONLY) <> 0 Then OptionModule.ReadOnlyDDF = True - ElseIf GetMainPrivateProfileInt(S_GENERAL, "ReadOnly", 0) <> 0 Then + ElseIf GetMainPrivateProfileInt(S_GENERAL, K_READONLY, 0) <> 0 Then OptionModule.ReadOnlyDDF = True Else OptionModule.ReadOnlyDDF = False