Changeset 126 for trunk/UGame.pas

Timestamp:

Jun 17, 2017, 2:54:50 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Center map to player main city at start.

File:

• trunk/UGame.pas (modified) (3 diffs)

trunk/UGame.pas

@@ -128 +128 @@
     procedure SelectCell(Pos: TPoint; Player: TPlayer; ShiftState: TShiftState);
     procedure CenterMap;
+    procedure CenterPlayerCity(Player: TPlayer);
     function CanvasToCellPos(Pos: TPoint): TPoint;
     function CellToCanvasPos(Pos: TPoint): TPoint;
@@ -2226 +2227 @@
 end;
 
+procedure TView.CenterPlayerCity(Player: TPlayer);
+begin
+  SourceRect := Bounds(Player.StartCell.PosPx.X - (SourceRect.Right - SourceRect.Left) div 2,
+    Player.StartCell.PosPx.Y - (SourceRect.Bottom - SourceRect.Top) div 2,
+    SourceRect.Right - SourceRect.Left,
+    SourceRect.Bottom - SourceRect.Top);
+end;
+
 procedure TPlayer.Paint(Canvas: TCanvas; View: TView);
 begin
@@ -3048 +3057 @@
     View.Clear;
     View.Zoom := 1;
-    View.CenterMap;
+    if Assigned(ControlPlayer) then View.CenterPlayerCity(ControlPlayer)
+      else View.CenterMap;
   end;
 end;