source: trunk/Forms/UFormPreferences.pas

unit UFormPreferences;

interface

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

type
  { TFormPreferences }

  TFormPreferences = class(TForm)
    ButtonSave: TButton;
    ButtonCancel: TButton;
    CheckBoxRememberDatabase: TCheckBox;
    ComboBoxLanguage: TComboBox;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormShow(Sender: TObject);
  public
    procedure Load(Preferences: TPreferences);
    procedure Save(Preferences: TPreferences);
  end;


implementation

{$R *.lfm}

uses
  UCore, ULanguages;

{ TFormPreferences }

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

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

procedure TFormPreferences.Load(Preferences: TPreferences);
begin
  CheckBoxRememberDatabase.Checked := Preferences.RememberDatabase;
  Core.Translator1.LanguageListToStrings(ComboBoxLanguage.Items);
  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.Translator1.Language);
  if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
end;

procedure TFormPreferences.Save(Preferences: TPreferences);
begin
  Preferences.RememberDatabase := CheckBoxRememberDatabase.Checked;
  if ComboBoxLanguage.ItemIndex <> -1 then
    Core.Translator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
end;

end.