EgtDOORCreator 2.7l1 :

- ricompilazione con cambio versione
- controllo modalità Visualizzatore (RedaOnly).

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"

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

My Project/AssemblyInfo.vb

@@ -72,5 +72,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.7.6.2")>
-<Assembly: AssemblyFileVersion("2.7.6.2")>
+<Assembly: AssemblyVersion("2.7.12.1")>
+<Assembly: AssemblyFileVersion("2.7.12.1")>

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