Changeset 30 for trunk/Packages/FastGraphics/UGGraphics.pas

Timestamp:

Dec 23, 2016, 10:07:39 AM (8 years ago)

Author:

chronos

Message:

• Modified: Drawing and loading using bitmap rawimage improvement.

File:

• trunk/Packages/FastGraphics/UGGraphics.pas (modified) (2 diffs)

trunk/Packages/FastGraphics/UGGraphics.pas

@@ -199 +199 @@
   PixelPtr: PInteger;
   PixelPtrMax: PInteger;
+  PixelPtrMin: PInteger;
   PixelRowPtr: PInteger;
   P: TPixelFormat;
@@ -209 +210 @@
     PixelRowPtr := PInteger(RawImage.Data);
     BytePerPixel := RawImage.Description.BitsPerPixel div 8;
+    PixelPtrMin := PixelRowPtr;
     PixelPtrMax := PixelRowPtr + RawImage.Description.Width * RawImage.Description.Height * BytePerPixel;
     for Y := Rect.Top to Rect.Bottom - 1 do begin
       PixelPtr := PixelRowPtr;
       for X := Rect.Left to Rect.Right - 1 do begin
-        if (X >= 0) and (X < FSize.X) and (Y >= 0) and (Y < FSize.Y) and (PixelPtr < PixelPtrMax) then
+        if (X >= 0) and (X < FSize.X) and (Y >= 0) and (Y < FSize.Y) and
+        (PixelPtr < PixelPtrMax) and (PixelPtr > PixelPtrMin) then
           PixelPtr^ := ColorConvertFunc(Pixels[X, Y]);
         Inc(PByte(PixelPtr), BytePerPixel);