source: trunk/Forms/FormNew.pas

unit FormNew;

interface

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

type

  { TFormNew }

  TFormNew = class(TFormEx)
    ButtonCancel: TButton;
    ButtonOk: TButton;
    CheckBoxRecordHistory: TCheckBox;
    CheckBoxUndoEnabled: TCheckBox;
    ComboBoxColorPalette: TComboBox;
    ComboBoxSize: TComboBox;
    ComboBoxSkin: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ScrollBox1: TScrollBox;
    procedure FormCreate(Sender: TObject);
  public
    procedure Load(Game: TGame);
    procedure Save(Game: TGame);
  end;


implementation

{$R *.lfm}

{ TFormNew }

procedure TFormNew.FormCreate(Sender: TObject);
var
  TileSkin: TTileSkin;
  ColorPalette: TColorPalette;
begin
  ComboBoxSkin.Items.BeginUpdate;
  try
    ComboBoxSkin.Items.Clear;
    for TileSkin := Low(SkinText) to High(SkinText) do
      ComboBoxSkin.Items.Add(SkinText[TileSkin]);
  finally
    ComboBoxSkin.Items.EndUpdate;
  end;

  ComboBoxColorPalette.Items.BeginUpdate;
  try
    ComboBoxColorPalette.Items.Clear;
    for ColorPalette := Low(ColorPaletteText) to High(ColorPaletteText) do
      ComboBoxColorPalette.Items.Add(ColorPaletteText[ColorPalette]);
  finally
    ComboBoxColorPalette.Items.EndUpdate;
  end;
end;

procedure TFormNew.Load(Game: TGame);
begin
  ComboBoxSize.ItemIndex := Game.Board.Size.X - 2;
  CheckBoxUndoEnabled.Checked := Game.UndoEnabled;
  CheckBoxRecordHistory.Checked := Game.RecordHistory;
  ComboBoxSkin.ItemIndex := Integer(Game.Skin);
  ComboBoxColorPalette.ItemIndex := Integer(Game.ColorPalette);
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.Skin := TTileSkin(ComboBoxSkin.ItemIndex);
  Game.ColorPalette := TColorPalette(ComboBoxColorPalette.ItemIndex);
end;

end.