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

Timestamp:

Jan 6, 2024, 9:33:35 AM (4 months ago)

Author:

chronos

Message:

• Modified: Use Floor in ScaleFromNative to avoid getting out of range values. Incorrect pixels visible in bottom part of minimap.

File:

• trunk/Packages/DpiControls/Dpi.Common.pas (modified) (1 diff)

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -110 +110 @@
 function ScaleFromNative(Value: Integer): Integer;
 begin
-  Result := Round(Value * 96 / ScreenInfo.Dpi);
+  Result := Floor(Value * 96 / ScreenInfo.Dpi);
 end;