Changeset 538 for trunk/Packages/DpiControls/Dpi.PixelPointer.pas

Timestamp:

Apr 16, 2024, 10:57:39 AM (4 weeks ago)

Author:

chronos

Message:

• Fixed: Map drawing in case of fractional scaling.

File:

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

trunk/Packages/DpiControls/Dpi.PixelPointer.pas

@@ -93 +93 @@
 
 resourcestring
-  SOutOfRange = 'Pixel pointer out of range [X: %d. Y: %d]';
+  SOutOfRange = 'Pixel pointer out of range [X: %d, Y: %d, Width: %d, Height: %d]';
   SWrongBitmapSize = 'Wrong bitmap size [width: %d, height: %d]';
 
@@ -160 +160 @@
     X := B - Y * BytesPerLine;
     X := Floor(X / BytesPerPixel);
-    raise Exception.Create(Format(SOutOfRange, [X, Y]));
+    raise Exception.Create(Format(SOutOfRange, [X, Y, Width, Height]));
   end;
   {$ENDIF}