Changeset 203 for GraphicTest/UDrawMethod.pas

Timestamp:

Mar 17, 2011, 9:49:34 AM (14 years ago)

Author:

george

Message:

• Fixed: RawImage.Data row address calculation.

File:

• GraphicTest/UDrawMethod.pas (modified) (2 diffs)

GraphicTest/UDrawMethod.pas

@@ -193 +193 @@
   Y, X: Integer;
   PixelPtr: PInteger;
+  RowPtr: PInteger;
   P: TPixelFormat;
   RawImage: TRawImage;
   BytePerPixel: Integer;
+  BytePerRow: Integer;
 begin
   P := Bitmap.PixelFormat;
@@ -202 +204 @@
       Bitmap.BeginUpdate(False);
       RawImage := Bitmap.RawImage;
-      PixelPtr := PInteger(RawImage.Data);
+      RowPtr := PInteger(RawImage.Data);
       BytePerPixel := RawImage.Description.BitsPerPixel div 8;
-      for X := 0 to Size.X - 1 do
-        for Y := 0 to Size.Y - 1 do begin
+      BytePerRow := RawImage.Description.BytesPerLine;
+      for Y := 0 to Size.Y - 1 do begin
+        PixelPtr := RowPtr;
+        for X := 0 to Size.X - 1 do begin
           PixelPtr^ := Pixels[X, Y] * $010101;
           Inc(PByte(PixelPtr), BytePerPixel);
         end;
+        Inc(PByte(RowPtr), BytePerRow);
+      end;
     finally
       Bitmap.EndUpdate(False);