source: trunk/Forms/FormUnitMoves.pas

unit FormUnitMoves;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  StdCtrls, FormEx, Game;

type

  { TFormUnitMoves }

  TFormUnitMoves = class(TFormEx)
    ButtonClose: TButton;
    ListView1: TListView;
    procedure ButtonCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
  public
    Game: TGame;
    procedure ReloadList;
  end;


implementation

uses
  Player;

{$R *.lfm}

{ TFormUnitMoves }

procedure TFormUnitMoves.ListView1Data(Sender: TObject; Item: TListItem);
begin
  if Assigned(Game) and Assigned(Game.CurrentPlayer) then
  with Game.CurrentPlayer do
  if (Mode = pmHuman) and (Item.Index < Moves.Count) then
  with TUnitMove(Moves[Item.Index]) do begin
    Item.Caption := IntToStr(CellFrom.MapCell.Id);
    Item.SubItems.Add(IntToStr(CellTo.Mapcell.Id));
    Item.SubItems.Add(IntToStr(CountOnce));
    Item.SubItems.Add(IntToStr(CountRepeat));
  end;
end;

procedure TFormUnitMoves.FormShow(Sender: TObject);
begin
  ReloadList;
end;

procedure TFormUnitMoves.ButtonCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TFormUnitMoves.ReloadList;
begin
  if Assigned(Game) and Assigned(Game.CurrentPlayer) and
  (Game.CurrentPlayer.Mode = pmHuman) then
    ListView1.Items.Count := Game.CurrentPlayer.Moves.Count
  else ListView1.Items.Count := 0;
  ListView1.Refresh;
end;

end.