Changeset 480 for trunk/LocalPlayer/MessgEx.pas

Timestamp:

Dec 6, 2023, 11:05:10 PM (11 months ago)

Author:

chronos

Message:

• Fixed: Bitmap processing out of range error.

File:

• trunk/LocalPlayer/MessgEx.pas (modified) (1 diff)

trunk/LocalPlayer/MessgEx.pas

@@ -264 +264 @@
             else
               share := share * yR;
-            Screwed[xDst + dx, yDst + dy, 0] := Screwed[xDst + dx, yDst + dy, 0]
-              + share * SrcPtr.Pixel^.B;
-            Screwed[xDst + dx, yDst + dy, 1] := Screwed[xDst + dx, yDst + dy, 1]
-              + share * SrcPtr.Pixel^.G;
-            Screwed[xDst + dx, yDst + dy, 2] := Screwed[xDst + dx, yDst + dy, 2]
-              + share * SrcPtr.Pixel^.R;
-            Screwed[xDst + dx, yDst + dy, 3] := Screwed[xDst + dx, yDst + dy,
-              3] + share;
+            if (xDst + dx < ScaleToNative(Width)) and
+            (yDst + dy < ScaleToNative(Height)) then begin
+              Screwed[xDst + dx, yDst + dy, 0] := Screwed[xDst + dx, yDst + dy, 0]
+                + share * SrcPtr.Pixel^.B;
+              Screwed[xDst + dx, yDst + dy, 1] := Screwed[xDst + dx, yDst + dy, 1]
+                + share * SrcPtr.Pixel^.G;
+              Screwed[xDst + dx, yDst + dy, 2] := Screwed[xDst + dx, yDst + dy, 2]
+                + share * SrcPtr.Pixel^.R;
+              Screwed[xDst + dx, yDst + dy, 3] := Screwed[xDst + dx, yDst + dy,
+                3] + share;
+            end;
         end;
         SrcPtr.NextPixel;