source: tags/1.0.0/Forms/UFormSettings.pas

unit UFormSettings;

{$mode delphi}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
  ULanguages;

type

  { TFormSettings }

  TFormSettings = class(TForm)
    ButtonOk: TButton;
    ButtonCancel: TButton;
    ComboBoxLanguage: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    TrackBar1: TTrackBar;
    procedure ButtonCancelClick(Sender: TObject);
    procedure ButtonOkClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private

  public

  end;

var
  FormSettings: TFormSettings;


implementation

{$R *.lfm}

uses
  UCore;

resourcestring
  SLanguageChangeTitle = 'Language change';
  SLanguageChangeMessage = 'Interface language was changed. It may require restart of application.';


{ TFormSettings }

procedure TFormSettings.ButtonCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TFormSettings.ButtonOkClick(Sender: TObject);
begin
  Core.Game.AnimationDuration := TrackBar1.Position;
  if ComboBoxLanguage.ItemIndex <> -1 then begin
    if (Core.Translator1.Language <> TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex])) then
      MessageDlg(SLanguageChangeTitle, SLanguageChangeMessage, mtInformation, [mbOk], 0);
    Core.Translator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
  end;
  Close;
end;

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

procedure TFormSettings.FormCreate(Sender: TObject);
begin
  Core.Translator1.TranslateComponentRecursive(Self);
  Core.Translator1.LanguageListToStrings(ComboBoxLanguage.Items);
end;

procedure TFormSettings.FormShow(Sender: TObject);
begin
  Core.PersistentForm1.Load(Self);
  TrackBar1.Position := Core.Game.AnimationDuration;
  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.Translator1.Language);
  if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
end;

end.