Changeset 88 for trunk/UCore.pas

Timestamp:

Aug 29, 2017, 10:33:39 PM (7 years ago)

Author:

chronos

Message:

• Modified: Enabled DPI scaling.
• Modified: Moved ImageListMain to Core unit and introduced Core Init method.

File:

• trunk/UCore.pas (modified) (8 diffs)

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, UApplicationInfo, ULastOpenedList, UProject,
-  UCoolTranslator, UTarget, URegistry, Registry, Graphics, UScaleDPI,
+  UCoolTranslator, UTarget, URegistry, Registry, Graphics, Controls, UScaleDPI,
   UPersistentForm;
 
@@ -17 +17 @@
     ApplicationInfo: TApplicationInfo;
     CoolTranslator1: TCoolTranslator;
+    ImageListMain: TImageList;
     LastOpenedList: TLastOpenedList;
     PersistentForm1: TPersistentForm;
+    ScaleDPI1: TScaleDPI;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
   private
     FCurrentTarget: TTarget;
+    StoredDimension: TControlDimension;
     procedure SetCurrentTarget(AValue: TTarget);
+    procedure ScaleDPI;
   public
-    ScaleDPI: TScaleDPI;
     Project: TProject;
     Targets: TTargetList;
@@ -32 +35 @@
     CellSize: Integer;
     MemorySize: Integer;
+    procedure Init;
     procedure LoadFromRegistry(Root: HKEY; Key: string);
     procedure SaveToRegistry(Root: HKEY; Key: string);
@@ -59 +63 @@
 begin
   Project := TProject.Create;
-  ScaleDPI := TScaleDPI.Create(nil);
   Targets := TTargetList.Create;
+  StoredDimension := TControlDimension.Create;
+
   // Init targets list
   Targets.Add(TTargetInterpretter.Create);
@@ -83 +88 @@
 begin
   SaveToRegistry(HKEY(ApplicationInfo.RegistryRoot), ApplicationInfo.RegistryKey);
-  Targets.Free;
-  Project.Free;
-  ScaleDPI.Free;
+  FreeAndNil(Targets);
+  FreeAndNil(Project);
+  FreeAndNil(StoredDimension);
 end;
 
@@ -98 +103 @@
       CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
       else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
-    ScaleDPI.DPI := Point(ReadIntegerWithDefault('DPIX', 96),
+    ScaleDPI1.DPI := Point(ReadIntegerWithDefault('DPIX', 96),
       ReadIntegerWithDefault('DPIY', 96));
-    ScaleDPI.AutoDetect := ReadBoolWithDefault('DPIAuto', True);
+    ScaleDPI1.AutoDetect := ReadBoolWithDefault('DPIAuto', True);
     OptimizationLevel := TCompilerOptimization(ReadIntegerWithDefault('OptimizationLevel', Integer(coNormal)));
     MemorySize := ReadIntegerWithDefault('MemorySize', 30000);
@@ -121 +126 @@
     OpenKey(Key, True);
     WriteBool('OpenProjectOnStart', OpenProjectOnStart);
-    WriteBool('DPIAuto', ScaleDPI.AutoDetect);
-    WriteInteger('DPIX', ScaleDPI.DPI.X);
-    WriteInteger('DPIY', ScaleDPI.DPI.Y);
+    WriteBool('DPIAuto', ScaleDPI1.AutoDetect);
+    WriteInteger('DPIX', ScaleDPI1.DPI.X);
+    WriteInteger('DPIY', ScaleDPI1.DPI.Y);
     WriteInteger('OptimizationLevel', Integer(OptimizationLevel));
     WriteInteger('MemorySize', MemorySize);
@@ -157 +162 @@
 end;
 
+procedure TCore.ScaleDPI;
+var
+  I: Integer;
+begin
+  with ScaleDPI1 do begin
+    //DesignDPI := Point(144, 144);
+    if (DesignDPI.X <> DPI.X) or (DesignDPI.Y <> DPI.Y) then begin
+      //ApplyToAll(DesignDPI);
+      for I := 0 to Screen.FormCount - 1 do
+      if (Screen.Forms[I].WindowState = wsNormal) or
+        (Screen.Forms[I].WindowState = wsMinimized) then begin
+        StoreDimensions(Screen.Forms[I], StoredDimension);
+        ScaleDimensions(Screen.Forms[I], StoredDimension);
+      end;
+      ScaleImageList(ImageListMain, DesignDPI);
+    end;
+  end;
+end;
+
+procedure TCore.Init;
+begin
+  ScaleDPI;
+  CoolTranslator1.Translate;
+end;
 
 end.