Changeset 182 for trunk/Forms/UFormPlayersStats.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/Forms/UFormPlayersStats.pas (modified) (4 diffs)

trunk/Forms/UFormPlayersStats.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  UGame;
+  Menus, ActnList, UGame;
 
 type
@@ -14 +14 @@
 
   TFormPlayersStats = class(TForm)
+    ASpectate: TAction;
+    ActionList1: TActionList;
     ListView1: TListView;
+    MenuItem1: TMenuItem;
+    PopupMenu1: TPopupMenu;
+    procedure ASpectateExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
@@ -43 +48 @@
   with TPlayer(Players[Item.Index]) do begin
     Item.Caption := Name;
+    Item.Data := Players[Item.Index];
+    Item.SubItems.Add(PlayerModeText[Mode]);
     Item.SubItems.Add(IntToStr(TotalCells));
     Item.SubItems.Add(IntToStr(TotalDiscovered));
@@ -63 +70 @@
 end;
 
+procedure TFormPlayersStats.ASpectateExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+    Core.Spectate(TPlayer(ListView1.Selected.Data));
+end;
+
 procedure TFormPlayersStats.ReloadList;
 begin