source: trunk/Forms/UFormPlayersStats.pas

unit UFormPlayersStats;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  Menus, ActnList, UGame;

type

  { TFormPlayersStats }

  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);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
  private

  public
    procedure ReloadList;
  end;

var
  FormPlayersStats: TFormPlayersStats;


implementation

uses
  UCore;

{$R *.lfm}

{ TFormPlayersStats }

procedure TFormPlayersStats.ListView1Data(Sender: TObject; Item: TListItem);
begin
  with Core.Game do
  if Item.Index < Players.Count then
  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));
    Item.SubItems.Add(IntToStr(TotalCities));
    Item.SubItems.Add(IntToStr(TotalUnits));
  end;
end;

procedure TFormPlayersStats.FormShow(Sender: TObject);
begin
  Core.PersistentForm.Load(Self);
  Core.CoolTranslator1.TranslateComponentRecursive(Self);
  ReloadList;
end;

procedure TFormPlayersStats.FormClose(Sender: TObject;
  var CloseAction: TCloseAction);
begin
  Core.PersistentForm.Save(Self);
end;

procedure TFormPlayersStats.ASpectateExecute(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then
    Core.Spectate(TPlayer(ListView1.Selected.Data));
end;

procedure TFormPlayersStats.ReloadList;
begin
  ListView1.Items.Count := Core.Game.Players.Count;
  ListView1.Refresh;
end;

end.