Changeset 445 for GraphicTest/UDrawForm.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/UDrawForm.pas (modified) (3 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}