Changeset 16 for trunk/Forms/UFormMain.pas

Timestamp:

Sep 29, 2014, 4:12:21 PM (10 years ago)

Author:

chronos

Message:

• Modified: Do not clear entire form background. Do not clear paintbox background by control itself. This should speed drawing slightly.

File:

• trunk/Forms/UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ExtCtrls, ComCtrls, types;
+  ExtCtrls, ComCtrls, types, LCLType;
 
 type
@@ -64 +64 @@
     MousePos: TPoint;
     Activated: Boolean;
+    procedure EraseBackground(DC: HDC); override;
   public
     procedure UpdateStatusBar;
@@ -91 +92 @@
   PaintBox1.Repaint;
   UpdateStatusBar;
+end;
+
+procedure TFormMain.EraseBackground(DC: HDC);
+begin
+  // Do nothing, completely covered by paintbox
 end;
 
@@ -128 +134 @@
 begin
   TempBitmap := TBitmap.Create;
+  ControlStyle := ControlStyle + [csOpaque];
+  PaintBox1.ControlStyle := PaintBox1.ControlStyle + [csOpaque];
 end;