Changeset 507 for trunk/Packages

Timestamp:

Dec 25, 2023, 12:01:22 PM (5 months ago)

Author:

chronos

Message:

• Fixed: Range check error on main form minimization.

File:

• trunk/Packages/DpiControls/Dpi.PixelPointer.pas (modified) (2 diffs)

trunk/Packages/DpiControls/Dpi.PixelPointer.pas

@@ -148 +148 @@
 {$IFOPT R+}
 var
+  B: Integer;
   X: Integer;
   Y: Integer;
@@ -155 +156 @@
   if (PByte(Pixel) < PByte(Data)) or
     (PByte(Pixel) >= PByte(Data) + Height * BytesPerLine) then begin
-    X := PByte(Pixel) - PByte(Data);
-    Y := Floor(X / BytesPerLine);
-    X := X - Y * BytesPerLine;
+    B := PByte(Pixel) - PByte(Data);
+    Y := Floor(B / BytesPerLine);
+    X := B - Y * BytesPerLine;
     X := Floor(X / BytesPerPixel);
     raise Exception.Create(Format(SOutOfRange, [X, Y]));