Changeset 546 for trunk/Packages/DpiControls/Dpi.Graphics.pas

Timestamp:

Apr 20, 2024, 6:20:48 PM (4 weeks ago)

Author:

chronos

Message:

• Modified: Optimized scaling functions.

File:

• trunk/Packages/DpiControls/Dpi.Graphics.pas (modified) (2 diffs)

trunk/Packages/DpiControls/Dpi.Graphics.pas

@@ -340 +340 @@
   end;
 
+  { TScreenInfo }
+
   TScreenInfo = record
-    Dpi: Integer;
+  private
+    FDpi: Integer;
+    procedure SetDpi(AValue: Integer);
+  public
+    ToNative: Double;
+    FromNative: Double;
+    property Dpi: Integer read FDpi write SetDpi;
   end;
 
@@ -1325 +1333 @@
 end;
 
+{ TScreenInfo }
+
+procedure TScreenInfo.SetDpi(AValue: Integer);
+begin
+  if FDpi = AValue then Exit;
+  FDpi := AValue;
+  ToNative := ScreenInfo.Dpi / 96;
+  FromNative := 96 / ScreenInfo.Dpi;
+end;
+
 { TPortableNetworkGraphic }