Changeset 127 for trunk/UGame.pas

Timestamp:

Jun 17, 2017, 3:14:16 PM (7 years ago)

Author:

chronos

Message:

• Added: Load recent menu action to load recently opened/saved files.
• Fixed: Init clients after loading game from file.

File:

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

trunk/UGame.pas

@@ -394 +394 @@
     procedure BuildBridges;
     procedure BuildMapAreas;
+    procedure InitClients;
   public
     Players: TPlayers;
@@ -2703 +2704 @@
 end;
 
+procedure TGame.InitClients;
+var
+  I: Integer;
+begin
+  Clients.Clear;
+  Clients.New('Spectator');
+  for I := 0 to Players.Count - 1 do
+  with TPlayer(Players[I]) do
+  if Mode = pmHuman then begin
+    Clients.New(TPlayer(Players[I]).Name);
+    TPlayer(Players[I]).Client := TClient(Clients.Last);
+  end;
+
+  for I := 0 to Clients.Count - 1 do
+  with TClient(Clients[I]) do begin
+    View.Clear;
+    View.Zoom := 1;
+    if Assigned(ControlPlayer) then View.CenterPlayerCity(ControlPlayer)
+      else View.CenterMap;
+  end;
+end;
+
 procedure TGame.SaveConfig(Config: TXmlConfig; Path: string);
 begin
@@ -2793 +2816 @@
         else CurrentPlayer := nil;
 
+      InitClients;
+
       NewNode := FindNode('UnitMoves');
       if Assigned(NewNode) then
@@ -3044 +3069 @@
     else CurrentPlayer := nil;
 
-  Clients.Clear;
-  Clients.New('Spectator');
-  for I := 0 to Players.Count - 1 do
-  with TPlayer(Players[I]) do
-  if Mode = pmHuman then begin
-    Clients.New(TPlayer(Players[I]).Name);
-    TPlayer(Players[I]).Client := TClient(Clients.Last);
-  end;
-
-  for I := 0 to Clients.Count - 1 do
-  with TClient(Clients[I]) do begin
-    View.Clear;
-    View.Zoom := 1;
-    if Assigned(ControlPlayer) then View.CenterPlayerCity(ControlPlayer)
-      else View.CenterMap;
-  end;
+  InitClients;
 end;