Changeset 213 for branches/highdpi/Packages/DpiControls/UDpiControls.pas

Timestamp:

May 9, 2020, 11:21:54 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Scale help watermark.

File:

• branches/highdpi/Packages/DpiControls/UDpiControls.pas (modified) (4 diffs)

branches/highdpi/Packages/DpiControls/UDpiControls.pas

@@ -710 +710 @@
     constructor Create;
     destructor Destroy; override;
+    procedure UpdateScreen;
     property FormCount: Integer read GetFormCount;
     property Forms[Index: Integer]: TDpiForm read GetForms;
@@ -1042 +1043 @@
 begin
   GetVclApplication.Initialize;
+  DpiScreen.UpdateScreen;
 end;
 
@@ -2172 +2174 @@
   FForms := TDpiForms.Create;
   FForms.FreeObjects := False;
-  Dpi := Round(96 * 2); //Screen.PixelsPerInch;
+  // Screen.PixelsPerInch is not initialized at this point
+  Dpi := 96;
 end;
 
@@ -2179 +2182 @@
   FreeAndNil(FForms);
   inherited Destroy;
+end;
+
+procedure TDpiScreen.UpdateScreen;
+begin
+  Dpi := Screen.PixelsPerInch;
 end;