Changeset 128 for trunk/UCore.pas

Timestamp:

Jan 17, 2022, 4:53:31 PM (4 years ago)

Author:

chronos

Message:

• Added: Two more code examples.
• Added: Allow to disable debugging support.
• Added: Remember last opened tab in options form.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -38 +38 @@
     CellSize: Integer;
     MemorySize: Integer;
+    DebugEnabled: Boolean;
+    OptionsFormTabIndex: Integer;
     Optimizations: TOptimizations;
     procedure Init;
@@ -120 +122 @@
     MemorySize := ReadIntegerWithDefault('MemorySize', 30000);
     CellSize := ReadIntegerWithDefault('CellSize', 256);
+    DebugEnabled := ReadBoolWithDefault('DebugEnabled', True);
+    OptionsFormTabIndex := ReadIntegerWithDefault('OptionsFormTabIndex', 0);
     ThemeManager.Theme := ThemeManager.Themes.FindByName(ReadStringWithDefault('Theme', 'System'));
   finally
@@ -143 +147 @@
     WriteInteger('MemorySize', MemorySize);
     WriteInteger('CellSize', CellSize);
+    WriteBool('DebugEnabled', DebugEnabled);
+    WriteInteger('OptionsFormTabIndex', OptionsFormTabIndex);
     if Assigned(Translator.Language) and (Translator.Language.Code <> '') then
       WriteString('LanguageCode', Translator.Language.Code)