Changeset 445

Timestamp:

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

Author:

chronos

Message:

• Added: Allow control draw form DoubleBuffer and EraseBackground.

Location:

GraphicTest

Files:

• UDrawForm.pas (modified) (3 diffs)
• UMainForm.lfm (modified) (12 diffs)
• UMainForm.pas (modified) (4 diffs)

GraphicTest/UDrawForm.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs;
+  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
+  LCLType;
 
 type
@@ -17 +18 @@
     { private declarations }
   public
-    { public declarations }
+    EraseBackgroundEnabled: Boolean;
+    procedure EraseBackground(DC: HDC); override;
   end;
 
@@ -32 +34 @@
 end;
 
+procedure TDrawForm.EraseBackground(DC: HDC);
+begin
+  if EraseBackgroundEnabled then
+    inherited EraseBackground(DC);
+end;
+
 initialization
   {$I UDrawForm.lrs}

GraphicTest/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 187
-  Height = 440
-  Top = 107
-  Width = 549
+  Left = 302
+  Height = 308
+  Top = 181
+  Width = 554
   Caption = 'Graphic test'
-  ClientHeight = 440
-  ClientWidth = 549
+  ClientHeight = 308
+  ClientWidth = 554
   OnClose = FormClose
   OnCreate = FormCreate
@@ -14 +14 @@
   object ListViewMethods: TListView
     Left = 8
-    Height = 364
+    Height = 232
     Top = 8
-    Width = 537
+    Width = 542
     Anchors = [akTop, akLeft, akRight, akBottom]
     Columns = <    
@@ -50 +50 @@
     Left = 8
     Height = 25
-    Top = 379
+    Top = 247
     Width = 115
     Anchors = [akLeft, akBottom]
@@ -60 +60 @@
     Left = 136
     Height = 25
-    Top = 379
+    Top = 247
     Width = 112
     Anchors = [akLeft, akBottom]
@@ -70 +70 @@
     Left = 88
     Height = 21
-    Top = 411
+    Top = 279
     Width = 58
     Anchors = [akLeft, akBottom]
@@ -82 +82 @@
     Left = 256
     Height = 25
-    Top = 379
+    Top = 247
     Width = 75
     Anchors = [akLeft, akBottom]
@@ -92 +92 @@
     Left = 8
     Height = 13
-    Top = 415
+    Top = 283
     Width = 69
     Anchors = [akLeft, akBottom]
@@ -101 +101 @@
     Left = 152
     Height = 13
-    Top = 415
+    Top = 283
     Width = 5
     Anchors = [akLeft, akBottom]
@@ -108 +108 @@
   end
   object SpinEditWidth: TSpinEdit
-    Left = 363
+    Left = 219
     Height = 21
-    Top = 411
+    Top = 279
     Width = 58
     Anchors = [akLeft, akBottom]
@@ -119 +119 @@
   end
   object SpinEditHeight: TSpinEdit
-    Left = 432
+    Left = 288
     Height = 21
-    Top = 411
+    Top = 279
     Width = 58
     Anchors = [akLeft, akBottom]
@@ -130 +130 @@
   end
   object Label3: TLabel
-    Left = 328
+    Left = 184
     Height = 13
-    Top = 416
+    Top = 284
     Width = 23
     Anchors = [akLeft, akBottom]
@@ -139 +139 @@
   end
   object Label4: TLabel
-    Left = 424
+    Left = 280
     Height = 13
-    Top = 415
+    Top = 283
     Width = 6
     Anchors = [akLeft, akBottom]
     Caption = 'x'
     ParentColor = False
+  end
+  object CheckBoxDoubleBuffered: TCheckBox
+    Left = 408
+    Height = 17
+    Top = 247
+    Width = 98
+    Anchors = [akLeft, akBottom]
+    Caption = 'Double buffered'
+    OnChange = CheckBoxDoubleBufferedChange
+    TabOrder = 7
+  end
+  object CheckBoxEraseBackground: TCheckBox
+    Left = 408
+    Height = 17
+    Top = 264
+    Width = 106
+    Anchors = [akLeft, akBottom]
+    Caption = 'Erase background'
+    OnChange = CheckBoxEraseBackgroundChange
+    TabOrder = 8
   end
   object Timer1: TTimer

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;