Changeset 70 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (2 diffs)
• UFormOptions.lfm (modified) (1 diff)
• UFormOptions.pas (modified) (4 diffs)

trunk/Forms/UFormMain.lfm

@@ -12 +12 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '1.3'
+  LCLVersion = '1.5'
   WindowState = wsMaximized
   object StatusBarMain: TStatusBar

trunk/Forms/UFormMain.pas

@@ -167 +167 @@
 uses
   UCore, UFormCPU, UFormOptions, UFormMessages, UFormTargets, UFormOutput, UFormInput,
-  UFormMemory, UFormSourceCode, UFormTargetCode, UTargetInterpretter, UFormLog;
+  UFormMemory, UFormSourceCode, UFormTargetCode, UTargetInterpretter, UFormLog,
+  UBFTarget;
 
 resourcestring
@@ -454 +455 @@
 begin
   OptionsForm.Load;
-  //OptionsForm.LoadFromInterpretter(CurrentTarget);
   if OptionsForm.ShowModal = mrOK then begin
-    //OptionsForm.SaveToInterpretter(CurrentTarget);
     OptionsForm.Save;
-    if Assigned(Core.CurrentTarget) then
+    if Assigned(Core.CurrentTarget) then begin
       Core.CurrentTarget.OptimizationLevel := Core.OptimizationLevel;
+      if Core.CurrentTarget is TBFTarget then begin
+        TBFTarget(Core.CurrentTarget).CellSize := Core.CellSize;
+        TBFTarget(Core.CurrentTarget).MemorySize := Core.MemorySize;
+      end;
+    end;
   end;
 end;

trunk/Forms/UFormOptions.lfm

@@ -8 +8 @@
   ClientWidth = 468
   OnShow = FormShow
-  LCLVersion = '1.3'
+  LCLVersion = '1.5'
   object ButtonOk: TButton
     Left = 389

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.