Changeset 487 for trunk/MiniMap.pas

Timestamp:

Dec 8, 2023, 11:39:45 PM (11 months ago)

Author:

chronos

Message:

• Added: Range checking for TPixelPointer record type.

File:

• trunk/MiniMap.pas (modified) (2 diffs)

trunk/MiniMap.pas

@@ -283 +283 @@
   Bitmap.BeginUpdate;
   MiniPixel := TPixelPointer.Create(Bitmap);
-  PrevMiniPixel := TPixelPointer.Create(Bitmap, 0, -1);
+  PrevMiniPixel := TPixelPointer.Create(Bitmap);
 
   xx := ScaleToNative(Size.X);
@@ -350 +350 @@
     end;
     MiniPixel.NextLine;
-    PrevMiniPixel.NextLine;
+    if y > 0 then PrevMiniPixel.NextLine;
   end;
   Bitmap.EndUpdate;