Changeset 20 for trunk/UGame.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)
• UGame.pas (modified) (5 diffs)

trunk

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

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

trunk/UGame.pas

@@ -112 +112 @@
     FOnMove: TMoveEvent;
     FOnWin: TWinEvent;
+    FRunning: Boolean;
     procedure MoveAll(Player: TPlayer);
     procedure SetMove(CellFrom, CellTo: TCell);
+    procedure SetRunning(AValue: Boolean);
   public
     Players: TPlayers;
@@ -121 +123 @@
     Moves: TObjectList; // TList<TMove>
     TurnCounter: Integer;
-    Running: Boolean;
+
     procedure ComputePlayerStats;
     procedure NextTurn;
@@ -127 +129 @@
     destructor Destroy; override;
     procedure New;
+    property Running: Boolean read FRunning write SetRunning;
   published
     property OnMove: TMoveEvent read FOnMove write FOnMove;
@@ -343 +346 @@
 end;
 
+procedure TGame.SetRunning(AValue: Boolean);
+begin
+  if FRunning = AValue then Exit;
+  if AValue then begin
+    if Players.Count < 2 then raise Exception.Create('You need at least two players');
+    FRunning := AValue;
+  end else FRunning := AValue;
+end;
+
 procedure TGame.ComputePlayerStats;
 var
@@ -454 +466 @@
   end;
   CurrentPlayer := TPlayer(Players[0]);
-  Running := True;
 end;
 

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