Changeset 471 for GraphicTest/UMainForm.pas

Timestamp:

Apr 9, 2015, 8:55:27 PM (10 years ago)

Author:

chronos

Message:

• Modified: Initialization of array of draw method classes done in run.

File:

• GraphicTest/UMainForm.pas (modified) (5 diffs)

GraphicTest/UMainForm.pas

@@ -91 +91 @@
     TestTerminated: Boolean;
     TestTimeout: Real;
+    DrawMethodClasses: array of TDrawMethodClass;
     procedure GenerateSceneFrames;
     procedure TestMethod(Method: TDrawMethod);
@@ -96 +97 @@
     procedure UpdateInterface;
     procedure UpdateFrameSize;
+    procedure RegisterDrawMethods;
+    procedure RegisterDrawMethod(MethodClass: TDrawMethodClass);
   public
     FrameSize: TPoint;
@@ -117 +120 @@
   UOpenGLPBOMethod, UGraphics32Method;
 
-const
-  DrawMethodClasses: array[0..8{$IFDEF opengl}+2{$ENDIF}{$IFDEF gr32}+1{$ENDIF}] of TDrawMethodClass = (
-    TCanvasPixels, TCanvasPixelsUpdateLock, TLazIntfImageColorsCopy,
-    TLazIntfImageColorsNoCopy, TBitmapRawImageData, TBitmapRawImageDataPaintBox,
-    TBitmapRawImageDataMove, TBGRABitmapPaintBox
-    {$IFDEF gr32}, TGraphics32Method{$ENDIF}
-    {$IFDEF opengl}, TOpenGLMethod, TOpenGLPBOMethod{$ENDIF}
-    ,TDummyMethod);
-
-
-
 { TMainForm }
 
@@ -141 +133 @@
   Randomize;
 
+  RegisterDrawMethods;
   DrawMethods := TObjectList.Create;
   for I := 0 to High(DrawMethodClasses) do begin
@@ -400 +393 @@
 end;
 
+procedure TMainForm.RegisterDrawMethods;
+begin
+  RegisterDrawMethod(TCanvasPixels);
+  RegisterDrawMethod(TCanvasPixelsUpdateLock);
+  RegisterDrawMethod(TLazIntfImageColorsCopy);
+  RegisterDrawMethod(TLazIntfImageColorsNoCopy);
+  RegisterDrawMethod(TBitmapRawImageData);
+  RegisterDrawMethod(TBitmapRawImageDataPaintBox);
+  RegisterDrawMethod(TBitmapRawImageDataMove);
+  RegisterDrawMethod(TBGRABitmapPaintBox);
+  {$IFDEF GRAPHICS32}
+  RegisterDrawMethod(TGraphics32Method);
+  {$ENDIF}
+  {$IFDEF OPENGL}
+  RegisterDrawMethod(TOpenGLMethod);
+  RegisterDrawMethod(TOpenGLPBOMethod);
+  {$ENDIF}
+  RegisterDrawMethod(TDummyMethod);
+end;
+
+procedure TMainForm.RegisterDrawMethod(MethodClass: TDrawMethodClass);
+begin
+  SetLength(DrawMethodClasses, Length(DrawMethodClasses) + 1);
+  DrawMethodClasses[High(DrawMethodClasses)] := MethodClass;
+end;
+
 end.