Changeset 19 for trunk/UGame.pas
- Timestamp:
- Feb 27, 2014, 7:43:00 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UGame.pas
r18 r19 66 66 procedure ClearCellMoves; 67 67 procedure ComputePlayerStats; 68 function GetPixelSize: TPoint; 68 69 property Size: TPoint read FSize write SetSize; 69 70 end; … … 445 446 StartCell.Power := TPlayer(Players[I]).StartUnits; 446 447 end; 448 ViewZoom := 1; 449 // Center board 450 View := Bounds(-(View.Right - View.Left) div 2 + Map.GetPixelSize.X div 2, 451 -(View.Bottom - View.Top) div 2 + Map.GetPixelSize.Y div 2, 452 View.Right - View.Left, 453 View.Bottom - View.Top); 447 454 end; 448 455 CurrentPlayer := TPlayer(Players[0]); … … 667 674 end; 668 675 676 function THexMap.GetPixelSize: TPoint; 677 begin 678 Result := Point(Size.X * DefaultCellSize.X, Size.Y * DefaultCellSize.Y); 679 end; 680 669 681 end. 670 682
Note:
See TracChangeset
for help on using the changeset viewer.