Changeset 516 for trunk/Packages

Timestamp:

Jan 4, 2024, 11:52:05 PM (11 months ago)

Author:

chronos

Message:

• Fixed: Use Round function for scaling calculation as ceil and floor are much slower.

File:

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

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -5 +5 @@
 uses
   {$IFDEF WINDOWS}Windows,{$ENDIF}
-  Classes, SysUtils, LCLType, Types, Math, LCLIntf, Graphics, Dpi.Graphics;
+  Classes, SysUtils, LCLType, Types, LCLIntf, Graphics, Dpi.Graphics;
 
 const
@@ -100 +100 @@
 function ScaleToNative(Value: Integer): Integer;
 begin
-  Result := Ceil(Value * ScreenInfo.Dpi / 96);
+  Result := Round(Value * ScreenInfo.Dpi / 96);
 end;
 
@@ -110 +110 @@
 function ScaleFromNative(Value: Integer): Integer;
 begin
-  Result := Floor(Value * 96 / ScreenInfo.Dpi);
+  Result := Round(Value * 96 / ScreenInfo.Dpi);
 end;