source: branches/delphi/Forms/UFormPlayer.pas

unit UFormPlayer;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
  UGame;

type

  { TFormPlayer }

  TFormPlayer = class(TForm)
    ButtonCancel: TButton;
    ButtonOk: TButton;
    ColorBox1: TColorBox;
    ComboBox1: TComboBox;
    EditName: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
  private
    { private declarations }
  public
    procedure Load(Player: TPlayer);
    procedure Save(Player: TPlayer);
  end;

var
  FormPlayer: TFormPlayer;

implementation

{$R *.dfm}

{ TFormPlayer }

procedure TFormPlayer.Load(Player: TPlayer);
begin
  EditName.Text := Player.Name;
  ComboBox1.ItemIndex := Integer(Player.Mode);
  ColorBox1.Selected := Player.Color;
end;

procedure TFormPlayer.Save(Player: TPlayer);
begin
  Player.Name := EditName.Text;
  Player.Mode := TPlayerMode(ComboBox1.ItemIndex);
  Player.Color := ColorBox1.Selected;
end;

end.