Changeset 473 for trunk/Packages/DpiControls

Timestamp:

Dec 4, 2023, 12:13:15 PM (12 months ago)

Author:

chronos

Message:

• Added: Custom DPI configuration in Settings dialog.
• Fixed: Better High DPI support.

Location:

trunk/Packages/DpiControls

Files:

• Dpi.Common.pas (modified) (1 diff)
• Dpi.Forms.pas (modified) (5 diffs)

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -7 +7 @@
 
 const
-  FixedDpi = 2*96;
   DpiControlsComponentPaletteName = 'DpiControls';
 

trunk/Packages/DpiControls/Dpi.Forms.pas

@@ -228 +228 @@
     constructor Create;
     destructor Destroy; override;
-    procedure UpdateScreen;
     procedure UpdateActiveFormFromNativeScreen;
     function DisableForms(SkipForm: TForm; DisabledList: Classes.TList = nil): Classes.TList;
     procedure EnableForms(var AFormList: Classes.TList);
+    function GetSystemDpi: Integer;
     property FormCount: Integer read GetFormCount;
     property Forms[Index: Integer]: TForm read GetForms;
@@ -400 +400 @@
 begin
   GetNativeApplication.Initialize;
-  Screen.UpdateScreen;
 end;
 
@@ -442 +441 @@
       FCreatingForm := TForm(Instance);
     Instance.Create(Self);
-    Ok := true;
+    Ok := True;
   finally
     if not Ok then begin
@@ -978 +977 @@
 end;
 
+function TScreen.GetSystemDpi: Integer;
+begin
+  Result := LCLScreen.PixelsPerInch;
+end;
+
 constructor TScreen.Create;
 begin
@@ -993 +997 @@
   FreeAndNil(FPrevActiveForms);
   inherited;
-end;
-
-procedure TScreen.UpdateScreen;
-begin
-  if FixedDpi = -1 then Dpi := LCLScreen.PixelsPerInch
-    else Dpi := FixedDpi;
 end;