Changeset 126 for trunk/Forms/UFormOptions.pas

Timestamp:

Jan 14, 2022, 7:13:36 PM (2 years ago)

Author:

chronos

Message:

• Modified: SetZero optimization made as separate step.
• Fixed: Error during compilation in CopyMultiply optimization.

File:

• trunk/Forms/UFormOptions.pas (modified) (6 diffs)

trunk/Forms/UFormOptions.pas

@@ -20 +20 @@
     CheckBoxOptimizeAddSub: TCheckBox;
     CheckBoxOptimizeCopyMultiply: TCheckBox;
+    CheckBoxOptimizeSetZero: TCheckBox;
     CheckBoxOptimizeMerge: TCheckBox;
     CheckBoxOptimizeRelativeIndexes: TCheckBox;
@@ -42 +43 @@
     TabSheetBuild: TTabSheet;
     procedure CheckBoxDPIAutoChange(Sender: TObject);
+    procedure CheckBoxOptimizeCopyMultiplyChange(Sender: TObject);
+    procedure CheckBoxOptimizeRelativeIndexesChange(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -81 +84 @@
   end;
   CheckBoxOptimizeAddSub.Enabled := ComboBoxOptimization.ItemIndex > 0;
+  CheckBoxOptimizeSetZero.Enabled := ComboBoxOptimization.ItemIndex > 0;
   CheckBoxOptimizeMerge.Enabled := ComboBoxOptimization.ItemIndex > 0;
   CheckBoxOptimizeRelativeIndexes.Enabled := ComboBoxOptimization.ItemIndex > 0;
@@ -94 +98 @@
   CheckBox1.Checked := Core.OpenProjectOnStart;
   CheckBoxOptimizeAddSub.Checked := Core.Optimizations.AddSub;
+  CheckBoxOptimizeSetZero.Checked := Core.Optimizations.SetZero;
   CheckBoxOptimizeMerge.Checked := Core.Optimizations.Merge;
   CheckBoxOptimizeRelativeIndexes.Checked := Core.Optimizations.RelativeIndexes;
@@ -119 +124 @@
   Core.MemorySize := SpinEditMemorySize.Value;
   Core.Optimizations.AddSub := CheckBoxOptimizeAddSub.Checked;
+  Core.Optimizations.SetZero := CheckBoxOptimizeSetZero.Checked;
   Core.Optimizations.Merge := CheckBoxOptimizeMerge.Checked;
   Core.Optimizations.RelativeIndexes := CheckBoxOptimizeRelativeIndexes.Checked;
@@ -127 +133 @@
 begin
   UpdateInterface;
+end;
+
+procedure TFormOptions.CheckBoxOptimizeCopyMultiplyChange(Sender: TObject);
+begin
+  // Needed for optimize copy multiply
+  if CheckBoxOptimizeCopyMultiply.Checked then
+    CheckBoxOptimizeRelativeIndexes.Checked := True;
+end;
+
+procedure TFormOptions.CheckBoxOptimizeRelativeIndexesChange(Sender: TObject);
+begin
+  // Needed for optimize copy multiply
+  if not CheckBoxOptimizeRelativeIndexes.Checked then
+    CheckBoxOptimizeCopyMultiply.Checked := False;
 end;