Changeset 545 for trunk/LocalPlayer/Term.pas

Timestamp:

Apr 17, 2024, 10:23:55 AM (7 months ago)

Author:

chronos

Message:

• Fixed: Incorrect range checking in scaled bitmap drawing method.

File:

• trunk/LocalPlayer/Term.pas (modified) (2 diffs)

trunk/LocalPlayer/Term.pas

@@ -2697 +2697 @@
 
         MiniMap.Size := Point(G.lx, G.ly);
-        for I := 0 to nPl - 1 do
-        begin
+        MiniMap.Bitmap.SetSize(MiniMap.Size.X * 2, MiniMap.Size.Y);
+
+        for I := 0 to nPl - 1 do begin
           Tribe[I] := nil;
           TribeOriginal[I] := False;
@@ -6619 +6620 @@
             Application.ProcessMessages;
           Sleep(1);
-          Inc(SliceCount)
+          Inc(SliceCount);
         end;
         Ticks := NowPrecise;