Changeset 708

Timestamp:

Aug 19, 2025, 9:46:32 PM (19 hours ago)

Author:

chronos

Message:

• Fixed: Crashes with mini map drawing in Start screen with some DPI resolutions.

File:

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

trunk/MiniMap.pas

@@ -239 +239 @@
           fTerrain, I];
         if (PByte(MiniPixel.Pixel) >= Bitmap.RawImage.Data) and
-        (PByte(MiniPixel.Pixel) < (Bitmap.RawImage.Data + YY * MiniPixel.BytesPerLine)) then begin
+        (PByte(MiniPixel.Pixel) < (Bitmap.RawImage.Data + YY * MiniPixel.BytesPerLine) - 1) then begin
           MiniPixel.PixelB := ((CM shr 16) and $FF) * Brightness div 3;
           MiniPixel.PixelG := ((CM shr 8) and $FF) * Brightness div 3;
@@ -283 +283 @@
               PrevMiniPixel.SetX(XM);
               if (PByte(PrevMiniPixel.Pixel) >= Bitmap.RawImage.Data) and
-              (PByte(PrevMiniPixel.Pixel) < (Bitmap.RawImage.Data + YY * PrevMiniPixel.BytesPerLine)) then begin
+              (PByte(PrevMiniPixel.Pixel) < (Bitmap.RawImage.Data + YY * PrevMiniPixel.BytesPerLine) - 1) then begin
                 PrevMiniPixel.PixelB := CM shr 16;
                 PrevMiniPixel.PixelG:= CM shr 8 and $FF;
@@ -296 +296 @@
             CM := Colors[Tile and fTerrain, I];
           if (PByte(MiniPixel.Pixel) >= Bitmap.RawImage.Data) and
-          (PByte(MiniPixel.Pixel) < (Bitmap.RawImage.Data + YY * MiniPixel.BytesPerLine)) then begin
+          (PByte(MiniPixel.Pixel) < (Bitmap.RawImage.Data + YY * MiniPixel.BytesPerLine) - 1) then begin
             MiniPixel.PixelB := (CM shr 16) and $ff;
             MiniPixel.PixelG := (CM shr 8) and $ff;
@@ -368 +368 @@
               PrevMiniPixel.SetX(XM);
               if (PByte(PrevMiniPixel.Pixel) >= Bitmap.RawImage.Data) and
-              (PByte(PrevMiniPixel.Pixel) < (Bitmap.RawImage.Data + YY * PrevMiniPixel.BytesPerLine)) then begin
+              (PByte(PrevMiniPixel.Pixel) < (Bitmap.RawImage.Data + YY * PrevMiniPixel.BytesPerLine) - 1) then begin
                 PrevMiniPixel.PixelB := (CM shr 16) and $ff;
                 PrevMiniPixel.PixelG := (CM shr 8) and $ff;
@@ -393 +393 @@
           end;
           if (PByte(MiniPixel.Pixel) >= Bitmap.RawImage.Data) and
-          (PByte(MiniPixel.Pixel) < (Bitmap.RawImage.Data + YY * MiniPixel.BytesPerLine)) then begin
+          (PByte(MiniPixel.Pixel) < (Bitmap.RawImage.Data + YY * MiniPixel.BytesPerLine) - 1) then begin
             MiniPixel.PixelB := (CM shr 16) and $ff;
             MiniPixel.PixelG := (CM shr 8) and $ff;