Changeset 11 for trunk/UFormMain.pas

Timestamp:

Feb 18, 2014, 8:15:50 PM (11 years ago)

Author:

chronos

Message:

• Added: List of moves between cells. Moves are processed after turn end.

File:

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

trunk/UFormMain.pas

@@ -185 +185 @@
   Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
 begin
-  with TPlayer(Game.Players[0]) do
+  with Game.CurrentPlayer do
     ViewZoom := ViewZoom / ZoomFactor;
   Redraw;
@@ -193 +193 @@
   MousePos: TPoint; var Handled: Boolean);
 begin
-  with TPlayer(Game.Players[0]) do
+  with Game.CurrentPlayer do
     ViewZoom := ViewZoom * ZoomFactor;
   Redraw;