Changeset 450 for GraphicTest/Methods/UBitmapRawImageDataPaintBox.pas

Timestamp:

Nov 23, 2012, 1:11:03 PM (12 years ago)

Author:

chronos

Message:

• Added: Test using Graphics32 package TGR32Image class.
• Modified: Used packages are now located uncompressed in Packages subfolder.

File:

• GraphicTest/Methods/UBitmapRawImageDataPaintBox.pas (modified) (2 diffs)

GraphicTest/Methods/UBitmapRawImageDataPaintBox.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UDrawMethod, UFastBitmap, Graphics, LCLType,
-  FPimage, IntfGraphics, GraphType;
+  FPimage, IntfGraphics, GraphType{$IFDEF windows}, Windows{$ENDIF};
 
 type
@@ -38 +38 @@
   //PaintBox.Canvas.CopyRect(Rect(0, 0, PaintBox.Width, PaintBox.Height), TempBitmap.Canvas,
   //  Rect(0, 0, TempBitmap.Width, TempBitmap.Height));
-  PaintBox.Canvas.Draw(0, 0, TempBitmap);
-  //BitBlt(hPaint, 0, 0, TempBitmap.Width, TempBitmap.Height, hBmp, 0, 0, srcCopy);
+  //PaintBox.Canvas.Draw(0, 0, TempBitmap);
+  BitBlt(hPaint, 0, 0, TempBitmap.Width, TempBitmap.Height, hBmp, 0, 0, srcCopy);
 end;