Changeset 34

Timestamp:

Jan 11, 2018, 4:43:35 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Drawing pixmap to TBitmap.

File:

• trunk/Packages/FastGraphics/UGGraphics.pas (modified) (1 diff)

trunk/Packages/FastGraphics/UGGraphics.pas

@@ -213 +213 @@
     PixelPtrMin := PixelRowPtr;
     PixelPtrMax := PixelRowPtr + RawImage.Description.Width * RawImage.Description.Height * BytePerPixel;
-    for Y := Rect.Top to Rect.Bottom - 1 do begin
+    for Y := 0 to Bitmap.Height - 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
+      for X := 0 to Bitmap.Width - 1 do begin
+        if ((X + Rect.Left) >= 0) and ((X + Rect.Left) < FSize.X) and
+        ((Y + Rect.Top) >= 0) and ((Y + Rect.Top) < FSize.Y) and
         (PixelPtr < PixelPtrMax) and (PixelPtr >= PixelPtrMin) then begin
-          PixelPtr^ := ColorConvertFunc(Pixels[X, Y]);
+          PixelPtr^ := ColorConvertFunc(Pixels[X + Rect.Left, Y + Rect.Top]);
         end;
         Inc(PByte(PixelPtr), BytePerPixel);