Changeset 13 for trunk/UFormMain.pas

Timestamp:

Feb 19, 2014, 10:42:16 PM (11 years ago)

Author:

chronos

Message:

• Modified: Map size is now stored as private member of type TPoint.
• Modified: Introduced parent TMap class inheried by THexMap to support multiple map types in future.
• Added: Visualization of planned moves between cells for next turn.

File:

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

trunk/UFormMain.pas

@@ -186 +186 @@
   Shift: TShiftState; X, Y: Integer);
 begin
-  if (StartMousePoint.X = X) and (StartMousePoint.Y = Y) then begin
+  if (Abs(StartMousePoint.X - X) < 5) and (Abs(StartMousePoint.Y - Y) < 5) then begin
     if Game.CurrentPlayer.Mode = pmHuman then begin
       Game.CurrentPlayer.SelectCell(Point(X, Y));