Changeset 104 for trunk/UCore.pas

Timestamp:

Oct 11, 2016, 9:49:16 AM (8 years ago)

Author:

chronos

Message:

• Added: DPI scaling for icons and toolbars.

File:

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

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, UAcronym, UCoolTranslator, UPersistentForm,
-  UJobProgressView, Forms, Controls, LazFileUtils;
+  UJobProgressView, UScaleDPI, Forms, Controls, LazFileUtils, URegistry,
+  Registry;
 
 type
@@ -17 +18 @@
     JobProgressView1: TJobProgressView;
     PersistentForm1: TPersistentForm;
+    ScaleDPI1: TScaleDPI;
     procedure CoolTranslator1Translate(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
@@ -22 +24 @@
   private
     FAlwaysOnTop: Boolean;
+    StoredDimension: TControlDimension;
     procedure SetAlwaysOnTop(AValue: Boolean);
     function FindFirstNonOption: string;
@@ -33 +36 @@
     procedure LoadConfig;
     procedure SaveConfig;
+    procedure ScaleDPI;
     property AlwaysOnTop: Boolean read FAlwaysOnTop write SetAlwaysOnTop;
   end;
@@ -38 +42 @@
 var
   Core: TCore;
+
+const
+  DefaultRegKey = '\Software\Chronosoft\Acronym Decoder';
+
 
 implementation
@@ -55 +63 @@
   InitializeStarted := False;
   InitializeFinished := False;
+  StoredDimension := TControlDimension.Create;
 end;
 
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
+  FreeAndNil(StoredDimension);
   FreeAndNil(AcronymDb);
 end;
@@ -116 +126 @@
       FormMain.ProjectOpen(FileNameOption);
     end;
+    ScaleDPI;
     FormMain.UpdateAcronymsList;
     FormMain.ListViewFilter1.UpdateFromListView(FormMain.ListViewAcronyms);
@@ -125 +136 @@
 begin
   FormMain.LoadConfig;
+
+  with TRegistryEx.Create do
+  try
+    RootKey := HKEY_CURRENT_USER;
+    OpenKey(DefaultRegKey, True);
+    ScaleDPI1.DPI := Point(ReadIntegerWithDefault('DPIX', 96), ReadIntegerWithDefault('DPIY', 96));
+    ScaleDPI1.AutoDetect := ReadBoolWithDefault('DPIAuto', True);
+  finally
+    Free;
+  end;
 end;
 
@@ -130 +151 @@
 begin
   FormMain.SaveConfig;
+
+  with TRegistryEx.Create do
+  try
+    RootKey := HKEY_CURRENT_USER;
+    OpenKey(DefaultRegKey, True);
+    WriteInteger('DPIX', ScaleDPI1.DPI.X);
+    WriteInteger('DPIY', ScaleDPI1.DPI.Y);
+    WriteBool('DPIAuto', ScaleDPI1.AutoDetect);
+  finally
+    Free;
+  end;
+end;
+
+procedure TCore.ScaleDPI;
+var
+  I: Integer;
+begin
+  //ScaleDPI1.DPI := Point(150, 150);
+  with ScaleDPI1 do
+  if (DesignDPI.X <> DPI.X) or (DesignDPI.Y <> DPI.Y) then begin
+    for I := 0 to Screen.FormCount - 1 do begin
+      //StoreDimensions(Screen.Forms[I], StoredDimension);
+      //ScaleDimensions(Screen.Forms[I], StoredDimension);
+    end;
+  end;
 end;