Changeset 21

Timestamp:

Apr 8, 2015, 10:55:35 PM (10 years ago)

Author:

chronos

Message:

• Added: Do not clear form background covered entirely by PaintBox.

Location:

trunk

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (3 diffs)

trunk/UFormMain.lfm

@@ -23 +23 @@
     OnMouseUp = PaintBox1MouseUp
     OnPaint = PaintBox1Paint
+    OnResize = PaintBox1Resize
   end
   object Timer1: TTimer

trunk/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ExtCtrls, UEngine;
+  ExtCtrls, UEngine, LCLType;
 
 type
@@ -28 +28 @@
       Shift: TShiftState; X, Y: Integer);
     procedure PaintBox1Paint(Sender: TObject);
+    procedure PaintBox1Resize(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   private
-    { private declarations }
+    procedure EraseBackground(DC: HDC); override;
   public
     Engine: TEngine;
@@ -99 +100 @@
 end;
 
+procedure TFormMain.PaintBox1Resize(Sender: TObject);
+begin
+  //Engine.
+end;
+
 procedure TFormMain.Timer1Timer(Sender: TObject);
 begin
+  Engine.Tick;
   PaintBox1.Repaint;
-  Engine.Tick;
+end;
+
+procedure TFormMain.EraseBackground(DC: HDC);
+begin
+  // Do nothing, all background space covered by controls
 end;