Changeset 20 for trunk/UFormMain.pas

Timestamp:

Mar 1, 2014, 11:18:26 AM (11 years ago)

Author:

chronos

Message:

• Added: Build modes Debug and Release in project settings.
• Modified: Show game board only if game is in Running state.
• Added: Keep board center during main form resize.

Location:

trunk

Files:

• . (modified) (1 prop)
• UFormMain.pas (modified) (6 diffs)

trunk

@@ -3 +3 @@
 lib
 xtactics.res
+xtactics.dbg

@@ -3 +3 @@
 lib
 xtactics.res
+xtactics.dbg

trunk/UFormMain.pas

@@ -34 +34 @@
     Timer1: TTimer;
     procedure AExitExecute(Sender: TObject);
+    procedure AGameEndExecute(Sender: TObject);
     procedure AGameEndTurnExecute(Sender: TObject);
     procedure AGameNewExecute(Sender: TObject);
+    procedure AGameRestartExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -52 +54 @@
     procedure PaintBox1Paint(Sender: TObject);
     procedure EraseBackground(DC: HDC); override;
+    procedure PaintBox1Resize(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   private
@@ -79 +82 @@
 procedure TFormMain.PaintBox1Paint(Sender: TObject);
 begin
+  if Game.Running then
   with Game.CurrentPlayer do begin
     View := Bounds(View.Left, View.Top, PaintBox1.Width,
@@ -88 +92 @@
 procedure TFormMain.EraseBackground(DC: HDC);
 begin
+end;
+
+procedure TFormMain.PaintBox1Resize(Sender: TObject);
+begin
+  if Assigned(Game.CurrentPlayer) then
+  with Game.CurrentPlayer do
+    View := Bounds(View.Left + (View.Right - View.Left) div 2 - PaintBox1.Width div 2,
+      View.Top + (View.Bottom - View.Top) div 2 - PaintBox1.Height div 2,
+      PaintBox1.Width, PaintBox1.Height);
+  Redraw;
 end;
 
@@ -134 +148 @@
 end;
 
+procedure TFormMain.AGameEndExecute(Sender: TObject);
+begin
+  Game.Running := False;
+  Redraw;
+end;
+
 procedure TFormMain.AGameEndTurnExecute(Sender: TObject);
 begin
@@ -150 +170 @@
     FormNew.Save(Game);
     Game.New;
+    Game.Running := True;
     Redraw;
   end;
+end;
+
+procedure TFormMain.AGameRestartExecute(Sender: TObject);
+begin
+  Game.New;
+  Game.Running := True;
+  Redraw;
 end;
 

@@ -3 +3 @@
 lib
 xtactics.res
+xtactics.dbg