Changeset 70 for trunk/UCore.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/UCore.pas (modified) (5 diffs)

trunk/UCore.pas

@@ -28 +28 @@
     OpenProjectOnStart: Boolean;
     OptimizationLevel: TCompilerOptimization;
+    CellSize: Integer;
+    MemorySize: Integer;
     procedure LoadFromRegistry(Root: HKEY; Key: string);
     procedure SaveToRegistry(Root: HKEY; Key: string);
@@ -43 +45 @@
 uses
   UFormMain, UTargetJava, UTargetDelphi, UTargetPHP, UTargetC,
-  UTargetInterpretter, UTargetFPC;
+  UTargetInterpretter, UTargetFPC, UBFTarget;
 
 
@@ -86 +88 @@
     ScaleDPI.AutoDetect := ReadBoolWithDefault('DPIAuto', True);
     OptimizationLevel := TCompilerOptimization(ReadIntegerWithDefault('OptimizationLevel', Integer(coNormal)));
+    MemorySize := ReadIntegerWithDefault('MemorySize', 30000);
+    CellSize := ReadIntegerWithDefault('CellSize', 256);
   finally
     Free;
@@ -106 +110 @@
     WriteInteger('DPIY', ScaleDPI.DPI.Y);
     WriteInteger('OptimizationLevel', Integer(OptimizationLevel));
+    WriteInteger('MemorySize', MemorySize);
+    WriteInteger('CellSize', CellSize);
     if Assigned(CoolTranslator1.Language) and (CoolTranslator1.Language.Code <> '') then
       WriteString('LanguageCode', CoolTranslator1.Language.Code)
@@ -127 +133 @@
     FCurrentTarget.OptimizationLevel := OptimizationLevel;
     FCurrentTarget.Messages.OnChange := FormMain.MessagesChanged;
+    if FCurrentTarget is TBFTarget then begin
+      TBFTarget(FCurrentTarget).MemorySize := MemorySize;
+      TBFTarget(FCurrentTarget).CellSize := CellSize;
+    end;
   end;
   FormMain.UpdateTargetList;