Changeset 19 for trunk/UGame.pas

Timestamp:

Feb 27, 2014, 7:43:00 AM (11 years ago)

Author:

chronos

Message:

• Modified: Center map to screen after new game is started.

File:

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

trunk/UGame.pas

@@ -66 +66 @@
     procedure ClearCellMoves;
     procedure ComputePlayerStats;
+    function GetPixelSize: TPoint;
     property Size: TPoint read FSize write SetSize;
   end;
@@ -445 +446 @@
       StartCell.Power := TPlayer(Players[I]).StartUnits;
     end;
+    ViewZoom := 1;
+    // Center board
+    View := Bounds(-(View.Right - View.Left) div 2 + Map.GetPixelSize.X div 2,
+      -(View.Bottom - View.Top) div 2 + Map.GetPixelSize.Y div 2,
+      View.Right - View.Left,
+      View.Bottom - View.Top);
   end;
   CurrentPlayer := TPlayer(Players[0]);
@@ -667 +674 @@
 end;
 
+function THexMap.GetPixelSize: TPoint;
+begin
+  Result := Point(Size.X * DefaultCellSize.X, Size.Y * DefaultCellSize.Y);
+end;
+
 end.