Changeset 269 for trunk/UClientGUI.pas

Timestamp:

Jan 21, 2019, 12:38:20 AM (6 years ago)

Author:

chronos

Message:

• Added: Map random preview in New game form.

File:

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

trunk/UClientGUI.pas

@@ -30 +30 @@
     procedure CenterMap;
     procedure CenterPlayerCity(Player: TPlayer);
+    procedure ZoomAll;
     function CanvasToCellPos(Pos: TPoint): TPoint;
     function CellToCanvasPos(Pos: TPoint): TPoint;
@@ -76 +77 @@
 procedure TClientGUI.Paint(Canvas: TCanvas; View: TView);
 begin
+  DrawCellLinks(Canvas, View);
   DrawCells(Canvas, View);
+  DrawCities(Canvas, View);
+  DrawSelection(Canvas, View);
+  DrawArrows(Canvas, View);
   if TGame(Game).DevelMode then DrawNeighborLinks(Canvas, View);
 end;
@@ -305 +310 @@
   MapCell: TCell;
   CellText: string;
-  Points: array of Classes.TPoint;
-  I: Integer;
 begin
   with Canvas, View do begin
@@ -403 +406 @@
   Cell: TPlayerCell;
   MapCell: TCell;
-  CellText: string;
   Points: array of Classes.TPoint;
   I: Integer;
@@ -454 +456 @@
 procedure TClientGUI.DrawSelection(Canvas: TCanvas; View: TView);
 var
-  Cell: TPlayerCell;
-  MapCell: TCell;
-  CellText: string;
   Points: array of Classes.TPoint;
   I: Integer;
@@ -641 +640 @@
 end;
 
+procedure TView.ZoomAll;
+var
+  Factor: TPointF;
+  MapRect: TRect;
+  NewZoom: Single;
+begin
+  MapRect := TGame(Game).Map.CalculatePixelRect;
+  Factor := TPointF.Create(DestRect.Size.X / MapRect.Size.X,
+    DestRect.Size.Y / MapRect.Size.Y);
+  if Factor.X < Factor.Y then NewZoom := Factor.X
+    else NewZoom := Factor.Y;
+  if NewZoom = 0 then NewZoom := 1;
+  Zoom := NewZoom;
+  CenterMap;
+end;
+
 function TView.IsCellVisible(Cell: TCell): Boolean;
 var