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

Timestamp:

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

Author:

chronos

Message:

• Modified: Optimized scaling functions.

File:

• trunk/Packages/DpiControls/Dpi.Common.pas (modified) (3 diffs)

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -248 +248 @@
 function ScaleToNative(Value: Integer): Integer;
 begin
-  Result := Ceil(Value * ScreenInfo.Dpi / 96);
+  Result := Ceil(Value * ScreenInfo.ToNative);
 end;
 
@@ -258 +258 @@
 function ScaleFromNative(Value: Integer): Integer;
 begin
-  Result := Floor(Value * 96 / ScreenInfo.Dpi);
+  Result := Floor(Value * ScreenInfo.FromNative);
 end;
 
@@ -303 +303 @@
 function ScaleFloatToNative(Value: Double): Double;
 begin
-  Result := Value * ScreenInfo.Dpi / 96;
+  Result := Value * ScreenInfo.ToNative;
 end;
 
 function ScaleFloatFromNative(Value: Double): Double;
 begin
-  Result := Value * 96 / ScreenInfo.Dpi;
+  Result := Value * ScreenInfo.FromNative;
 end;