Changeset 8 for trunk/UGame.pas

Timestamp:

Feb 12, 2014, 9:32:54 PM (11 years ago)

Author:

chronos

Message:

• Fixed: Cell selection and deselection on left mouse button up.

File:

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

trunk/UGame.pas

@@ -110 +110 @@
 
 procedure TPlayer.SelectCell(Pos: TPoint);
-begin
-  SelectedCell := Game.Map.PosToCell(Pos, View, ViewZoom);
+var
+  NewSelectedCell: TPoint;
+begin
+  NewSelectedCell := Game.Map.PosToCell(Pos, View, ViewZoom);
+  if (NewSelectedCell.X = SelectedCell.X) and (NewSelectedCell.Y = SelectedCell.Y) then
+    SelectedCell := Point(-1, -1)
+    else SelectedCell := NewSelectedCell;
 end;