Changeset 454 for GraphicTest/Methods/ULazIntfImageColorsNoCopy.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/ULazIntfImageColorsNoCopy.pas (modified) (2 diffs)

GraphicTest/Methods/ULazIntfImageColorsNoCopy.pas

@@ -13 +13 @@
   TLazIntfImageColorsNoCopy = class(TDrawMethodImage)
     TempIntfImage: TLazIntfImage;
-    procedure Init(Parent: TWinControl; Size: TPoint); override;
+    procedure Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat); override;
     constructor Create; override;
     destructor Destroy; override;
@@ -24 +24 @@
 { TLazIntfImageColorsNoCopy }
 
-procedure TLazIntfImageColorsNoCopy.Init(Parent: TWinControl; Size: TPoint);
+procedure TLazIntfImageColorsNoCopy.Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat);
 begin
-  inherited Init(Parent, Size);
+  inherited;
   TempIntfImage.Free;
   TempIntfImage := Image.Picture.Bitmap.CreateIntfImage;