Changeset 70 for trunk/Forms/UFormOptions.pas

Timestamp:

Oct 11, 2015, 6:50:33 PM (9 years ago)

Author:

chronos

Message:

• Fixed: Remember MemorySize and CellSize globally for all projects and targets.

File:

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

trunk/Forms/UFormOptions.pas

@@ -39 +39 @@
     procedure Load;
     procedure Save;
-    procedure LoadFromInterpretter(Interpretter: TTargetInterpretter);
-    procedure SaveToInterpretter(Interpretter: TTargetInterpretter);
   end;
 
@@ -81 +79 @@
   CheckBoxDPIAuto.Checked := Core.ScaleDPI.AutoDetect;
   ComboBoxOptimizatipn.ItemIndex := Integer(Core.OptimizationLevel);
+  SpinEditCellSize.Value := Core.CellSize;
+  SpinEditMemorySize.Value := Core.MemorySize;
   UpdateInterface;
 end;
@@ -90 +90 @@
   Core.ScaleDPI.AutoDetect := CheckBoxDPIAuto.Checked;
   Core.OptimizationLevel := TCompilerOptimization(ComboBoxOptimizatipn.ItemIndex);
+  Core.CellSize := SpinEditCellSize.Value;
+  Core.MemorySize := SpinEditMemorySize.Value;
 end;
 
@@ -104 +106 @@
 end;
 
-procedure TOptionsForm.LoadFromInterpretter(Interpretter: TTargetInterpretter
-  );
-begin
-  SpinEditCellSize.Value := Interpretter.CellSize;
-  SpinEditMemorySize.Value := Interpretter.MemorySize;
-end;
-
-procedure TOptionsForm.SaveToInterpretter(Interpretter: TTargetInterpretter);
-begin
-  Interpretter.CellSize := SpinEditCellSize.Value;
-  Interpretter.MemorySize := SpinEditMemorySize.Value;
-end;
-
 end.