Opzione ReadOnly gestita da chiave di protezione

2022-04-08 12:45:02 +02:00
parent 99d69a4ffe
commit 6981bcafbb
4 changed files with 9 additions and 5 deletions
@@ -219,7 +219,9 @@ Friend Module OptionModule
      End If

      ' verifico se il programma è in modalità di sola lettura DDF
-      If GetMainPrivateProfileInt(S_GENERAL, "ReadOnly", 0) <> 0 Then
+      If (IniFile.m_nKeyOptions And KEY_OPT.READ_ONLY) <> 0 Then
+         OptionModule.ReadOnlyDDF = True
+      ElseIf GetMainPrivateProfileInt(S_GENERAL, "ReadOnly", 0) <> 0 Then
         OptionModule.ReadOnlyDDF = True
      Else
         OptionModule.ReadOnlyDDF = False