Changeset 454 for GraphicTest/Methods/UBGRABitmapPaintBox.pas

Timestamp:

Nov 26, 2012, 7:38:56 AM (12 years ago)

Author:

chronos

Message:

• Added: Now PixelFormat for tests where TBitmap is used can be changed.
• Fixed: Stopping of test of all methods.

File:

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

GraphicTest/Methods/UBGRABitmapPaintBox.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UDrawMethod, UFastBitmap, BGRABitmap, BGRABitmapTypes,
-  Controls;
+  Controls, Graphics;
 
 type
@@ -15 +15 @@
     BGRABitmap: TBGRABitmap;
     procedure Paint(Sender: TObject); override;
-    procedure Init(Parent: TWinControl; Size: TPoint); override;
+    procedure Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat); override;
     constructor Create; override;
     destructor Destroy; override;
@@ -32 +32 @@
 end;
 
-procedure TBGRABitmapPaintBox.Init(Parent: TWinControl; Size: TPoint);
+procedure TBGRABitmapPaintBox.Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat);
 begin
-  inherited Init(Parent, Size);
+  inherited;
   BGRABitmap.SetSize(PaintBox.Width, PaintBox.Height);
 end;