Changeset 7 for trunk/UFormMain.pas

Timestamp:

Feb 11, 2014, 11:53:04 PM (11 years ago)

Author:

chronos

Message:

• Added: Ability to select cell by mouse click.
• Added: Delayed scene drawing with limited FPS.

File:

• trunk/UFormMain.pas (modified) (8 diffs)

trunk/UFormMain.pas

@@ -32 +32 @@
     MenuItem7: TMenuItem;
     PaintBox1: TPaintBox;
+    Timer1: TTimer;
     procedure AExitExecute(Sender: TObject);
     procedure AGameNewExecute(Sender: TObject);
@@ -50 +51 @@
     procedure PaintBox1Paint(Sender: TObject);
     procedure EraseBackground(DC: HDC); override;
+    procedure Timer1Timer(Sender: TObject);
   private
     StartMousePoint: TPoint;
     StartViewPoint: TPoint;
     MoveActive: Boolean;
+    RedrawPending: Boolean;
   public
     Game: TGame;
+    procedure Redraw;
   end;
 
@@ -72 +76 @@
 procedure TFormMain.PaintBox1Paint(Sender: TObject);
 begin
-  TPlayer(Game.Players[0]).Paint(PaintBox1);
+  with TPlayer(Game.Players[0]) do begin
+    View := Bounds(View.Left, View.Top, PaintBox1.Width,
+      PaintBox1.Height);
+    Paint(PaintBox1);
+  end;
 end;
 
 procedure TFormMain.EraseBackground(DC: HDC);
 begin
+end;
+
+procedure TFormMain.Timer1Timer(Sender: TObject);
+begin
+  if RedrawPending then begin
+    RedrawPending := False;
+    PaintBox1.Repaint;
+  end;
+end;
+
+procedure TFormMain.Redraw;
+begin
+  RedrawPending := True;
 end;
 
@@ -95 +116 @@
     FormNew.Save(Game);
     Game.New;
-    PaintBox1.Repaint;
+    Redraw;
   end;
 end;
@@ -116 +137 @@
     StartViewPoint := Point(TPlayer(Game.Players[0]).View.Left, TPlayer(Game.Players[0]).View.Top);
     MoveActive := True;
+    TPlayer(Game.Players[0]).SelectCell(Point(X, Y));
+    Redraw;
   end;
 end;
@@ -133 +156 @@
       TPlayer(Game.Players[0]).View.Bottom - TPlayer(Game.Players[0]).View.Top);
     TPlayer(Game.Players[0]).SelectCell(Point(X, Y));
-    PaintBox1.Repaint;
+    Redraw;
   end;
 end;
@@ -148 +171 @@
   with TPlayer(Game.Players[0]) do
     ViewZoom := ViewZoom / ZoomFactor;
-  PaintBox1.Repaint;
+  Redraw;
 end;
 
@@ -156 +179 @@
   with TPlayer(Game.Players[0]) do
     ViewZoom := ViewZoom * ZoomFactor;
-  PaintBox1.Repaint;
+  Redraw;
 end;