Changeset 454 for GraphicTest/UDrawMethod.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/UDrawMethod.pas (modified) (8 diffs)

GraphicTest/UDrawMethod.pas

@@ -33 +33 @@
     function GetFPS: Real;
     property FPS: Real read FFPS write FFPS;
-    procedure Init(Parent: TWinControl; Size: TPoint); virtual;
+    procedure Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat); virtual;
     procedure Done; virtual;
     constructor Create; virtual;
@@ -48 +48 @@
   TDrawMethodImage = class(TDrawMethod)
     Image: TImage;
-    procedure Init(Parent: TWinControl; Size: TPoint); override;
+    procedure Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat); override;
     procedure Done; override;
   end;
@@ -57 +57 @@
     PaintBox: TPaintBox;
     procedure Paint(Sender: TObject); virtual;
-    procedure Init(Parent: TWinControl; Size: TPoint); override;
+    procedure Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat); override;
     procedure Done; override;
   end;
@@ -71 +71 @@
     procedure InitGL;
     procedure OpenGLControlResize(Sender: TObject);
-    procedure Init(AParent: TWinControl; Size: TPoint); override;
+    procedure Init(AParent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat); override;
     procedure Done; override;
   end;
@@ -88 +88 @@
 end;
 
-procedure TDrawMethodPaintBox.Init(Parent: TWinControl; Size: TPoint);
-begin
-  inherited Init(Parent, Size);
+procedure TDrawMethodPaintBox.Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat);
+begin
+  inherited;
   PaintBox := TPaintBox.Create(Parent);
   PaintBox.Parent := Parent;
@@ -106 +106 @@
 { TDrawMethodImage }
 
-procedure TDrawMethodImage.Init(Parent: TWinControl; Size: TPoint);
-begin
-  inherited Init(Parent, Size);
+procedure TDrawMethodImage.Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat);
+begin
+  inherited;
   Image := TImage.Create(Parent);
   Image.Parent := Parent;
   Image.SetBounds(0, 0, Size.X, Size.Y);
   Image.Picture.Bitmap.SetSize(Size.X, Size.Y);
-  Image.Picture.Bitmap.PixelFormat := pf24bit;
+  Image.Picture.Bitmap.PixelFormat := PixelFormat;
   Image.Show;
 end;
@@ -128 +128 @@
 { TDrawMethodOpenGL }
 
-procedure TDrawMethodOpenGL.Init(AParent: TWinControl; Size: TPoint);
-begin
-  inherited Init(aParent, Size);
+procedure TDrawMethodOpenGL.Init(AParent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat);
+begin
+  inherited;
   OpenGLControl := TOpenGLControl.Create(AParent);
   with OpenGLControl do begin
@@ -193 +193 @@
 end;
 
-procedure TDrawMethod.Init(Parent: TWinControl; Size: TPoint);
+procedure TDrawMethod.Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat);
 begin
   if (TempBitmap.Width <> Size.X) or (TempBitmap.Height <> Size.Y) then