source: trunk/Forms/FormNew.pas

unit FormNew;

interface

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

type

  { TFormNew }

  TFormNew = class(TFormEx)
    ButtonCancel: TButton;
    ButtonOk: TButton;
    CheckBoxRecordHistory: TCheckBox;
    CheckBoxUndoEnabled: TCheckBox;
    ComboBoxSize: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ScrollBox1: TScrollBox;
    SpinEditDisabledTiles: TSpinEdit;
    SpinEditUnmergeableTiles: TSpinEdit;
    procedure ComboBoxSizeChange(Sender: TObject);
  public
    procedure UpdateInterface;
    procedure Load(Game: TGame);
    procedure Save(Game: TGame);
  end;


implementation

{$R *.lfm}

{ TFormNew }

procedure TFormNew.ComboBoxSizeChange(Sender: TObject);
begin
  UpdateInterface;
end;

procedure TFormNew.UpdateInterface;
var
  MaxDisabledTiles: Integer;
begin
  MaxDisabledTiles := ComboBoxSize.ItemIndex + 2;
  MaxDisabledTiles := MaxDisabledTiles * MaxDisabledTiles - 3;
  SpinEditDisabledTiles.MaxValue := MaxDisabledTiles;
  SpinEditUnmergeableTiles.MaxValue := MaxDisabledTiles;
end;

procedure TFormNew.Load(Game: TGame);
begin
  ComboBoxSize.ItemIndex := Game.Board.Size.X - 2;
  CheckBoxUndoEnabled.Checked := Game.UndoEnabled;
  CheckBoxRecordHistory.Checked := Game.RecordHistory;
  SpinEditDisabledTiles.Value := Game.DisabledTilesCount;
  SpinEditUnmergeableTiles.Value := Game.UnmergeableTilesCount;
  UpdateInterface;
end;

procedure TFormNew.Save(Game: TGame);
begin
  Game.Board.Size := Point(2 + ComboBoxSize.ItemIndex, 2 + ComboBoxSize.ItemIndex);
  Game.UndoEnabled := CheckBoxUndoEnabled.Checked;
  Game.RecordHistory := CheckBoxRecordHistory.Checked;
  Game.DisabledTilesCount := SpinEditDisabledTiles.Value;
  Game.UnmergeableTilesCount := SpinEditUnmergeableTiles.Value;
end;

end.