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

Timestamp:

Jan 5, 2017, 11:48:36 PM (7 years ago)

Author:

chronos

Message:

• Added: Remember last used image size and color format.
• Added: Automatically create blank image.

File:

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

trunk/Packages/FastGraphics/UGGraphics.pas

@@ -203 +203 @@
   PixelPtrMin: PInteger;
   PixelRowPtr: PInteger;
-  P: TPixelFormat;
   RawImage: TRawImage;
   BytePerPixel: Integer;
@@ -218 +217 @@
       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) and (PixelPtr > PixelPtrMin) then
+        (PixelPtr < PixelPtrMax) and (PixelPtr >= PixelPtrMin) then begin
           PixelPtr^ := ColorConvertFunc(Pixels[X, Y]);
+        end;
         Inc(PByte(PixelPtr), BytePerPixel);
-
       end;
       Inc(PByte(PixelRowPtr), RawImage.Description.BytesPerLine);