Changeset 450 for GraphicTest/UMainForm.pas

Timestamp:

Nov 23, 2012, 1:11:03 PM (12 years ago)

Author:

chronos

Message:

• Added: Test using Graphics32 package TGR32Image class.
• Modified: Used packages are now located uncompressed in Packages subfolder.

File:

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

GraphicTest/UMainForm.pas

@@ -22 +22 @@
     ButtonSingleTest: TButton;
     ButtonStop: TButton;
+    CheckBox1: TCheckBox;
     CheckBoxDoubleBuffered: TCheckBox;
     CheckBoxEraseBackground: TCheckBox;
@@ -44 +45 @@
     procedure ButtonSingleTestClick(Sender: TObject);
     procedure ButtonStopClick(Sender: TObject);
+    procedure CheckBox1Change(Sender: TObject);
     procedure CheckBoxDoubleBufferedChange(Sender: TObject);
     procedure CheckBoxEraseBackgroundChange(Sender: TObject);
@@ -85 +87 @@
   UCanvasPixelsUpdateLock, UBGRABitmapPaintBox, UBitmapRawImageDataPaintBox,
   UBitmapRawImageData, UBitmapRawImageDataMove, UDummyMethod, UOpenGLMethod,
-  UOpenGLPBOMethod;
+  UOpenGLPBOMethod, UGraphics32Method;
 
 const
-  DrawMethodClasses: array[0..{$IFDEF opengl}10{$ELSE}8{$ENDIF}] of TDrawMethodClass = (
+  DrawMethodClasses: array[0..9{$IFDEF opengl}+2{$ENDIF}] of TDrawMethodClass = (
     TCanvasPixels, TCanvasPixelsUpdateLock, TLazIntfImageColorsCopy,
     TLazIntfImageColorsNoCopy, TBitmapRawImageData, TBitmapRawImageDataPaintBox,
-    TBitmapRawImageDataMove, TBGRABitmapPaintBox{$IFDEF opengl}, TOpenGLMethod, TOpenGLPBOMethod{$ENDIF}
+    TBitmapRawImageDataMove, TBGRABitmapPaintBox, TGraphics32Method{$IFDEF opengl}, TOpenGLMethod, TOpenGLPBOMethod{$ENDIF}
     ,TDummyMethod);
 
@@ -190 +192 @@
 end;
 
+procedure TMainForm.CheckBox1Change(Sender: TObject);
+begin
+  if CheckBox1.Checked then
+    DrawForm.ControlStyle := DrawForm.ControlStyle + [csOpaque]
+    else DrawForm.ControlStyle := DrawForm.ControlStyle - [csOpaque];
+end;
+
 procedure TMainForm.CheckBoxDoubleBufferedChange(Sender: TObject);
 begin
@@ -280 +289 @@
     NewScene := TFastBitmap.Create;
     NewScene.Size := FrameSize;
-    NewScene.RandomImage;
+    NewScene.RandomImage(I, SceneFrameCount);
     Scenes.Add(NewScene);
   end;
@@ -300 +309 @@
   CheckBoxDoubleBuffered.Checked := DrawForm.DoubleBuffered;
   CheckBoxEraseBackground.Checked := DrawForm.EraseBackgroundEnabled;
+  CheckBox1.Checked := csOpaque in DrawForm.ControlStyle;
 end;