Changeset 85 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 5, 2014, 10:38:34 PM (10 years ago)

Author:

chronos

Message:

• Added: With mouse click and with CTRL key pressed new move will set maximum one time and repeated unit counts to selected target cell.

File:

• trunk/Forms/UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormMain.pas

@@ -378 +378 @@
   if (Abs(StartMousePoint.X - X) < MouseMinDiff) and (Abs(StartMousePoint.Y - Y) < MouseMinDiff) then begin
     if Core.Game.Running and (Core.Game.CurrentPlayer.Mode = pmHuman) then begin
-      Core.Game.CurrentPlayer.View.SelectCell(Point(X, Y), Core.Game.CurrentPlayer);
+      Core.Game.CurrentPlayer.View.SelectCell(Point(X, Y), Core.Game.CurrentPlayer, Shift);
       Redraw;
     end;