Changeset 236 for trunk/Forms/UFormClient.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/Forms/UFormClient.pas (modified) (5 diffs)

trunk/Forms/UFormClient.pas

@@ -169 +169 @@
   R: TRect;
   StartP: TPoint;
-  VS: TPoint;
   CountP: TPoint;
   X, Y: Integer;
@@ -193 +192 @@
 
       if Game.CyclicMap then begin
-        VS := View.CellToCanvasPos(Game.Map.Size);
         TempView := TView.Create;
         TempView.Game := Game;
@@ -493 +491 @@
   OldCell: TPlayerCell;
   CellPos: TPoint;
+  P: TPoint;
+  R: TRect;
 begin
   if Assigned(Client) then begin
+    P := TPoint.Create(X, Y);
     if MoveActive then
     if (Abs(StartMousePoint.X - X) > Trunc(Screen.PixelsPerInch * MouseMinDiff)) or
     (Abs(StartMousePoint.Y - Y) > Trunc(Screen.PixelsPerInch * MouseMinDiff)) then
     with Client do begin
-      View.SourceRect := TRect.CreateBounds(TPoint.Create(Trunc(StartViewPoint.X + (StartMousePoint.X - X) / View.Zoom),
+      View.SourceRect := TRect.CreateBounds(TPoint.Create(
+        Trunc(StartViewPoint.X + (StartMousePoint.X - X) / View.Zoom),
         Trunc(StartViewPoint.Y + (StartMousePoint.Y - Y) / View.Zoom)),
         View.SourceRect.Size);
@@ -507 +509 @@
     OldCell := Client.View.FocusedCell;
     with Core.Game do
-      if Assigned(Client.ControlPlayer) then
-        Cell := Client.ControlPlayer.PlayerMap.PosToCell(Client.View.CanvasToCellPos(TPoint.Create(X, Y)));
-        //else Cell := Client.Game.Map.PosToCell(Client.View.CanvasToCellPos(TPoint.Create(X, Y)), Client.View);
+      if Assigned(Client.ControlPlayer) then begin
+        if Map.Cyclic then begin
+          R := Client.View.CellToCanvasRect(Map.PixelRect);
+          CellPos := TPoint.Create(
+            ModNeg(P.X - R.P1.X, R.Size.X) + R.P1.X,
+            ModNeg(P.Y - R.P1.Y, R.Size.Y) + R.P1.Y
+          );
+          Cell := Client.ControlPlayer.PlayerMap.PosToCell(
+          Client.View.CanvasToCellPos(CellPos));
+        end else begin
+          Cell := Client.ControlPlayer.PlayerMap.PosToCell(
+            Client.View.CanvasToCellPos(P));
+        end;
+      end;
     if Assigned(Cell) then begin
       Client.View.FocusedCell := Cell;
@@ -530 +543 @@
   (Abs(StartMousePoint.Y - Y) < Trunc(Screen.PixelsPerInch * MouseMinDiff)) then begin
     if Core.Game.Running and (Core.Game.CurrentPlayer.Mode = pmHuman) and
-      (Core.Game.CurrentPlayer = Client.ControlPlayer) then begin
+    (Core.Game.CurrentPlayer = Client.ControlPlayer) then begin
       Client.View.SelectCell(TPoint.Create(X, Y), Client.ControlPlayer, Shift);
       Redraw;