Changeset 459 for GraphicTest/Methods/UBitmapRawImageDataPaintBox.pas

Timestamp:

Nov 28, 2012, 8:09:38 AM (12 years ago)

Author:

chronos

Message:

• Added: Brief description for rest of available draw methods.
• Added: Graphics32 method conditional compilation.

File:

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

GraphicTest/Methods/UBitmapRawImageDataPaintBox.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UDrawMethod, UFastBitmap, Graphics, LCLType,
-  FPimage, IntfGraphics, GraphType{$IFDEF windows}, Windows{$ENDIF};
+  {$IFDEF windows}Windows,{$ENDIF}Classes, SysUtils, Controls, UDrawMethod, UFastBitmap, Graphics, LCLType,
+  FPimage, IntfGraphics, GraphType;
 
 type
@@ -13 +13 @@
 
   TBitmapRawImageDataPaintBox = class(TDrawMethodPaintBox)
+    TempBitmap: TBitmap;
     constructor Create; override;
+    procedure Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat); override;
+    procedure Done; override;
     procedure Paint(Sender: TObject); override;
     procedure DrawFrame(FastBitmap: TFastBitmap); override;
@@ -28 +31 @@
   Caption := 'TBitmap.RawImage.Data PaintBox';
   PaintObject := poPaintBox;
+  Description.Add('Custom TFastBitmap data are converted to bitmap data compatible with screen. ' +
+    'Then data is sent to PaintBox by Draw method.');
+end;
+
+procedure TBitmapRawImageDataPaintBox.Init(Parent: TWinControl; Size: TPoint;
+  PixelFormat: TPixelFormat);
+begin
+  inherited;
+  TempBitmap := TBitmap.Create;
+  TempBitmap.PixelFormat := PixelFormat;
+  TempBitmap.SetSize(Size.X, Size.Y);
+end;
+
+procedure TBitmapRawImageDataPaintBox.Done;
+begin
+  FreeAndNil(TempBitmap);
+  inherited Done;
 end;