source: tags/1.1.0/Forms/UFormNew.pas

unit UFormNew;

{$mode delphi}{$H+}

interface

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

type

  { TFormNew }

  TFormNew = class(TForm)
    ButtonCancel: TButton;
    ButtonOk: TButton;
    CheckBoxRecordHistory: TCheckBox;
    CheckBoxUndoEnabled: TCheckBox;
    ComboBoxSize: TComboBox;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private

  public
    procedure Load(Game: TGame);
    procedure Save(Game: TGame);
  end;

var
  FormNew: TFormNew;

implementation

{$R *.lfm}

uses
  UCore;

{ TFormNew }

procedure TFormNew.FormCreate(Sender: TObject);
begin
  Core.Translator1.TranslateComponentRecursive(Self);
end;

procedure TFormNew.FormShow(Sender: TObject);
begin
  Core.PersistentForm1.Load(Self);
end;

procedure TFormNew.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  Core.PersistentForm1.Save(Self);
end;

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

end.