Changeset 182 for trunk/UCore.pas

Timestamp:

Feb 9, 2018, 10:06:13 AM (7 years ago)

Author:

chronos

Message:

• Added: Popup menu action Spectate in Players stats window.

File:

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

trunk/UCore.pas

@@ -91 +91 @@
     //CurrentClient: TClient;
     LocalClients: TObjectList; // TClient
+    procedure Spectate(Player: TPlayer);
     procedure UpdateActions;
     procedure Init;
@@ -359 +360 @@
 
 procedure TCore.ANewSpectatorClientExecute(Sender: TObject);
-var
-  Form: TFormClient;
-begin
-  Form := TFormClient.Create(nil);
-  Form.Client := Game.Server.Clients.New(SSpectator);
-  //Form.Client.Form := Form;
-  Form.AZoomAll.Execute;
-  Form.Show;
+begin
+  Spectate(nil);
 end;
 
@@ -480 +475 @@
 end;
 
+procedure TCore.Spectate(Player: TPlayer);
+var
+  Form: TFormClient;
+begin
+  Form := TFormClient.Create(nil);
+  Form.Client := Game.Server.Clients.New(SSpectator);
+  //Form.Client.Form := Form;
+  //Form.Client.ControlPlayer := Player;
+  Form.AZoomAll.Execute;
+  Form.Show;
+end;
+
 procedure TCore.StartNewGame;
 begin