source: trunk/Forms/FormNewGame.pas

unit FormNewGame;

interface

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

type

  { TFormNewGame }

  TFormNewGame = class(TForm)
    ButtonStart: TButton;
    ButtonCancel: TButton;
    CheckBoxEnabled: TCheckBox;
    ColorButton1: TColorButton;
    ColorButton2: TColorButton;
    EditUp: TEdit;
    EditDown: TEdit;
    EditLeft: TEdit;
    EditRight: TEdit;
    EditShoot: TEdit;
    EditName: TEdit;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    ListView1: TListView;
    procedure CheckBoxEnabledChange(Sender: TObject);
    procedure ColorButton1ColorChanged(Sender: TObject);
    procedure ColorButton2ColorChanged(Sender: TObject);
    procedure EditDownChange(Sender: TObject);
    procedure EditDownKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
      );
    procedure EditLeftChange(Sender: TObject);
    procedure EditLeftKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
      );
    procedure EditNameChange(Sender: TObject);
    procedure EditRightChange(Sender: TObject);
    procedure EditRightKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditShootChange(Sender: TObject);
    procedure EditShootKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditUpChange(Sender: TObject);
    procedure EditUpKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1Change(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure ListView1CustomDrawSubItem(Sender: TCustomListView;
      Item: TListItem; SubItem: Integer; State: TCustomDrawState;
      var DefaultDraw: Boolean);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
  private
    Players: TPlayers;
    procedure ReloadList;
  public
    procedure UpdateInterface;
    procedure LoadData(Engine: TEngine);
    procedure SaveData(Engine: TEngine);
  end; 


implementation

{$R *.lfm}

uses
  Core;

{ TFormNewGame }

procedure TFormNewGame.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
  if Change = ctState then
    TPlayer(Item.Data).Enabled := Item.Checked;
end;

procedure TFormNewGame.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if SubItem = 1 then
  with ListView1.Canvas do begin
    Brush.Color := TPlayer(Item.Data).Color1;
    Brush.Style := bsSolid;
    FillRect(Item.DisplayRectSubItem(1, drBounds));
  end;
end;

procedure TFormNewGame.ListView1Data(Sender: TObject; Item: TListItem);
begin
  if Item.Index < Players.Count then
  with TPlayer(Players[Item.Index]) do begin
    Item.Caption := Name;
    Item.SubItems.Add('');
    Item.SubItems.Add('');
    Item.Checked := Enabled;
    Item.Data := Pointer(Players[Item.Index]);
  end;
end;

procedure TFormNewGame.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  if Assigned(Item) and Selected then
  with TPlayer(Item.Data) do begin
    EditName.Text := Name;
    ColorButton1.ButtonColor := Color1;
    ColorButton2.ButtonColor := Color2;
    EditDown.Text := IntToStr(Keys.Down);
    EditUp.Text := IntToStr(Keys.Up);
    EditLeft.Text := IntToStr(Keys.Left);
    EditRight.Text := IntToStr(Keys.Right);
    EditShoot.Text := IntToStr(Keys.Shoot);
    CheckBoxEnabled.Checked := Enabled;
  end;
  UpdateInterface;
end;

procedure TFormNewGame.ReloadList;
begin
  ListView1.Items.Count := Players.Count;
  ListView1.Refresh;
end;

procedure TFormNewGame.UpdateInterface;
begin
  EditUp.Enabled := Assigned(ListView1.Selected);
  EditDown.Enabled := Assigned(ListView1.Selected);
  EditLeft.Enabled := Assigned(ListView1.Selected);
  EditRight.Enabled := Assigned(ListView1.Selected);
  EditShoot.Enabled := Assigned(ListView1.Selected);
  EditName.Enabled := Assigned(ListView1.Selected);
  ColorButton1.Enabled := Assigned(ListView1.Selected);
  ColorButton2.Enabled := Assigned(ListView1.Selected);
  CheckBoxEnabled.Enabled := Assigned(ListView1.Selected);
end;

procedure TFormNewGame.LoadData(Engine: TEngine);
begin
  Players.Assign(Engine.PlayerPool);
end;

procedure TFormNewGame.SaveData(Engine: TEngine);
begin
  Engine.PlayerPool.Assign(Players);
end;

procedure TFormNewGame.ColorButton1ColorChanged(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then
  with TPlayer(ListView1.Selected.Data) do begin
    Color1 := ColorButton1.ButtonColor;
    ReloadList;
  end;
end;

procedure TFormNewGame.CheckBoxEnabledChange(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then
  with TPlayer(ListView1.Selected.Data) do begin
    Enabled := CheckBoxEnabled.Checked;
    ReloadList;
  end;
end;

procedure TFormNewGame.ColorButton2ColorChanged(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then
  with TPlayer(ListView1.Selected.Data) do begin
    Color2 := ColorButton2.ButtonColor;
    ReloadList;
  end;
end;

procedure TFormNewGame.EditDownChange(Sender: TObject);
var
  Value: Integer;
begin
  if Assigned(ListView1.Selected) then
  with TPlayer(ListView1.Selected.Data) do begin
    if TryStrToInt(EditDown.Text, Value) then Keys.Down := Value;
    ReloadList;
  end;
end;

procedure TFormNewGame.EditDownKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  EditDown.Text := IntToStr(Key);
end;

procedure TFormNewGame.EditLeftChange(Sender: TObject);
var
  Value: Integer;
begin
  if Assigned(ListView1.Selected) then
  with TPlayer(ListView1.Selected.Data) do begin
    if TryStrToInt(EditLeft.Text, Value) then Keys.Left := Value;
    ReloadList;
  end;
end;

procedure TFormNewGame.EditLeftKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  EditLeft.Text := IntToStr(Key);
end;

procedure TFormNewGame.EditNameChange(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then
  with TPlayer(ListView1.Selected.Data) do begin
    Name := EditName.Text;
    ReloadList;
  end;
end;

procedure TFormNewGame.EditRightChange(Sender: TObject);
var
  Value: Integer;
begin
  if Assigned(ListView1.Selected) then
  with TPlayer(ListView1.Selected.Data) do begin
    if TryStrToInt(EditRight.Text, Value) then Keys.Right := Value;
    ReloadList;
  end;
end;

procedure TFormNewGame.EditRightKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  EditRight.Text := IntToStr(Key);
end;

procedure TFormNewGame.EditShootChange(Sender: TObject);
var
  Value: Integer;
begin
  if Assigned(ListView1.Selected) then
  with TPlayer(ListView1.Selected.Data) do begin
    if TryStrToInt(EditShoot.Text, Value) then Keys.Shoot := Value;
    ReloadList;
  end;
end;

procedure TFormNewGame.EditShootKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  EditShoot.Text := IntToStr(Key);
end;

procedure TFormNewGame.EditUpChange(Sender: TObject);
var
  Value: Integer;
begin
  if Assigned(ListView1.Selected) then
  with TPlayer(ListView1.Selected.Data) do begin
    if TryStrToInt(EditUp.Text, Value) then Keys.Up := Value;
    ReloadList;
  end;
end;

procedure TFormNewGame.EditUpKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  EditUp.Text := IntToStr(Key);
end;

procedure TFormNewGame.FormCreate(Sender: TObject);
begin
  Core.Core.Translator1.TranslateComponentRecursive(Self);
  Players := TPlayers.Create;
end;

procedure TFormNewGame.FormDestroy(Sender: TObject);
begin
  FreeAndNil(Players);
end;

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

end.