Changeset 520 for trunk

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.

Location:

trunk

Files:

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

trunk/MiniMap.pas

@@ -71 +71 @@
   y: Integer;
   Dummy: Integer;
-  FileLandMass: integer;
+  FileLandMass: Integer;
   LogFile: file;
   s: string[255];

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;
 

trunk/Start.pas

@@ -873 +873 @@
 
     S := '';
-    if MiniMap.Mode = mmPicture then
-    begin
+    if MiniMap.Mode = mmPicture then begin
       BitBltCanvas(Canvas, xMini + 2, yMini + 2, MiniMap.Size.X * 2, MiniMap.Size.Y,
         MiniMap.Bitmap.Canvas, 0, 0);