Changeset 236 for trunk/UClientGUI.pas

Timestamp:

Sep 20, 2018, 3:33:04 PM (6 years ago)

Author:

chronos

Message:

• Added: Mouse focused and selected cells are now working.

File:

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

trunk/UClientGUI.pas

@@ -383 +383 @@
   UnitMove: TUnitMove;
   I: Integer;
-begin
-  NewSelectedCell := Player.PlayerMap.PosToCell(CanvasToCellPos(Pos));
+  CellPos: TPoint;
+  R: TRect;
+begin
+  if TGame(Game).Map.Cyclic then begin
+    R := CellToCanvasRect(TGame(Game).Map.PixelRect);
+    CellPos := TPoint.Create(
+      ModNeg(Pos.X - R.P1.X, R.Size.X) + R.P1.X,
+      ModNeg(Pos.Y - R.P1.Y, R.Size.Y) + R.P1.Y
+    );
+    NewSelectedCell := Player.PlayerMap.PosToCell(
+      CanvasToCellPos(CellPos));
+  end else begin
+    NewSelectedCell := Player.PlayerMap.PosToCell(
+      CanvasToCellPos(Pos));
+  end;
   if Assigned(NewSelectedCell) then begin
     if Assigned(SelectedCell) and TGame(Game).Map.IsCellsNeighbor(NewSelectedCell.MapCell, SelectedCell.MapCell) then begin