Changeset 445 for GraphicTest/UMainForm.pas

Timestamp:

Nov 22, 2012, 1:32:52 PM (12 years ago)

Author:

chronos

Message:

• Added: Allow control draw form DoubleBuffer and EraseBackground.

File:

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

GraphicTest/UMainForm.pas

@@ -22 +22 @@
     ButtonBenchmark: TButton;
     ButtonSingleTest: TButton;
+    CheckBoxEraseBackground: TCheckBox;
+    CheckBoxDoubleBuffered: TCheckBox;
     FloatSpinEdit1: TFloatSpinEdit;
     Label1: TLabel;
@@ -34 +36 @@
     procedure ButtonSingleTestClick(Sender: TObject);
     procedure ButtonStopClick(Sender: TObject);
+    procedure CheckBoxDoubleBufferedChange(Sender: TObject);
+    procedure CheckBoxEraseBackgroundChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -157 +161 @@
 end;
 
+procedure TMainForm.CheckBoxDoubleBufferedChange(Sender: TObject);
+begin
+  DrawForm.DoubleBuffered := CheckBoxDoubleBuffered.Checked;
+end;
+
+procedure TMainForm.CheckBoxEraseBackgroundChange(Sender: TObject);
+begin
+  DrawForm.EraseBackgroundEnabled := CheckBoxEraseBackground.Checked;
+end;
+
 procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
@@ -243 +257 @@
   SpinEditWidth.MaxValue := Screen.DesktopWidth;
   SpinEditHeight.MaxValue := Screen.DesktopHeight;
+  CheckBoxDoubleBuffered.Checked := DrawForm.DoubleBuffered;
+  CheckBoxEraseBackground.Checked := DrawForm.EraseBackgroundEnabled;
 end;
 
 procedure TMainForm.UpdateFrameSize;
 begin
-  DrawForm.SetBounds(DrawForm.Left, DrawForm.Top, FrameSize.X, FrameSize.Y);
+  DrawForm.ClientWidth := FrameSize.X;
+  DrawForm.ClientHeight := FrameSize.Y;
   GenerateSceneFrames;
 end;