Changeset 128 for trunk/Forms/UFormOptions.pas

Timestamp:

Jan 17, 2022, 4:53:31 PM (3 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/Forms/UFormOptions.pas (modified) (5 diffs)

trunk/Forms/UFormOptions.pas

@@ -16 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
-    CheckBox1: TCheckBox;
+    CheckBoxReopenLastFile: TCheckBox;
     CheckBoxDPIAuto: TCheckBox;
     CheckBoxOptimizeAddSub: TCheckBox;
+    CheckBoxDebugEnabled: TCheckBox;
     CheckBoxOptimizeCopyMultiply: TCheckBox;
     CheckBoxOptimizeSetZero: TCheckBox;
@@ -96 +97 @@
   ComboBoxTheme.ItemIndex := ComboBoxTheme.Items.IndexOfObject(Core.ThemeManager.Theme);
   if ComboBoxTheme.ItemIndex = -1 then ComboBoxTheme.ItemIndex := 0;
-  CheckBox1.Checked := Core.OpenProjectOnStart;
+  CheckBoxReopenLastFile.Checked := Core.OpenProjectOnStart;
   CheckBoxOptimizeAddSub.Checked := Core.Optimizations.AddSub;
   CheckBoxOptimizeSetZero.Checked := Core.Optimizations.SetZero;
@@ -108 +109 @@
   SpinEditCellSize.Value := Core.CellSize;
   SpinEditMemorySize.Value := Core.MemorySize;
+  CheckBoxDebugEnabled.Checked := Core.DebugEnabled;
+  if Core.OptionsFormTabIndex < PageControl1.PageCount then
+    PageControl1.TabIndex := Core.OptionsFormTabIndex
+    else PageControl1.TabIndex := 0;
   UpdateInterface;
 end;
@@ -117 +122 @@
   if ComboBoxTheme.ItemIndex <> -1 then
     Core.ThemeManager.Theme := TTheme(ComboBoxTheme.Items.Objects[ComboBoxTheme.ItemIndex]);
-  Core.OpenProjectOnStart := CheckBox1.Checked;
+  Core.OpenProjectOnStart := CheckBoxReopenLastFile.Checked;
   Core.ScaleDPI1.DPI := Point(SpinEditDPIX.Value, SpinEditDPIY.Value);
   Core.ScaleDPI1.AutoDetect := CheckBoxDPIAuto.Checked;
@@ -128 +133 @@
   Core.Optimizations.RelativeIndexes := CheckBoxOptimizeRelativeIndexes.Checked;
   Core.Optimizations.CopyMultiply := CheckBoxOptimizeCopyMultiply.Checked;
+  Core.DebugEnabled := CheckBoxDebugEnabled.Checked;
+  Core.OptionsFormTabIndex := PageControl1.TabIndex;
 end;