Changeset 506 for trunk/Packages/DpiControls/Dpi.Graphics.pas

Timestamp:

Dec 25, 2023, 11:35:51 AM (5 months ago)

Author:

chronos

Message:

• Fixed: Better PixelPointer range checking.

File:

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

trunk/Packages/DpiControls/Dpi.Graphics.pas

@@ -706 +706 @@
       SrcPtr.SetXY(Min(ScaleFromNative(xx), Src.Width - 1),
         Min(ScaleFromNative(yy), Src.Height - 1));
-      DstPtr.Pixel^.B := SrcPtr.Pixel^.B;
-      DstPtr.Pixel^.G := SrcPtr.Pixel^.G;
-      DstPtr.Pixel^.R := SrcPtr.Pixel^.R;
+      DstPtr.PixelB := SrcPtr.PixelB;
+      DstPtr.PixelG := SrcPtr.PixelG;
+      DstPtr.PixelR := SrcPtr.PixelR;
       DstPtr.NextPixel;
     end;
@@ -720 +720 @@
         DstWidth := ScaleToNative(SrcX + 1) - ScaleToNative(SrcX);
         for DstX := 0 to DstWidth - 1 do begin
-          DstPtr.Pixel^.B := SrcPtr.Pixel^.B;
-          DstPtr.Pixel^.G := SrcPtr.Pixel^.G;
-          DstPtr.Pixel^.R := SrcPtr.Pixel^.R;
+          DstPtr.PixelB := SrcPtr.PixelB;
+          DstPtr.PixelG := SrcPtr.PixelG;
+          DstPtr.PixelR := SrcPtr.PixelR;
           DstPtr.NextPixel;
         end;