Changeset 234 for trunk/UClientGUI.pas

Timestamp:

Sep 19, 2018, 5:28:58 PM (6 years ago)

Author:

chronos

Message:

• Added: Unfinished implementation of cyclic map drawing.

File:

• trunk/UClientGUI.pas (modified) (2 diffs)

trunk/UClientGUI.pas

@@ -347 +347 @@
 function TView.CanvasToCellPos(Pos: TPoint): TPoint;
 begin
-  Result := TPoint.Create(Trunc(Pos.X / Zoom + SourceRect.P1.X),
-    Trunc(Pos.Y / Zoom + SourceRect.P1.Y));
+  Result := TPoint.Create(Trunc((Pos.X - DestRect.P1.X) / Zoom + SourceRect.P1.X),
+    Trunc((Pos.Y - DestRect.P1.Y) / Zoom + SourceRect.P1.Y));
 end;
 
 function TView.CellToCanvasPos(Pos: TPoint): TPoint;
 begin
-  Result := TPoint.Create(Trunc((Pos.X - SourceRect.P1.X) * Zoom),
-    Trunc((Pos.Y - SourceRect.P1.Y) * Zoom));
+  Result := TPoint.Create(Trunc((Pos.X - SourceRect.P1.X) * Zoom) + DestRect.P1.X,
+    Trunc((Pos.Y - SourceRect.P1.Y) * Zoom) + DestRect.P1.Y);
 end;
 
@@ -449 +449 @@
     (RectPolygon.P2.Y > RectView.P1.Y)
   );
+  Result := True;
 end;