source: branches/test1/Client/Forms/UFormSetting.pas

unit UFormSetting;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  CoolTranslator, ULanguages;

type

  { TSettingForm }

  TSettingForm = class(TForm)
    ButtonSave: TButton;
    ButtonCancel: TButton;
    ComboBoxLanguage: TComboBox;
    Label2: TLabel;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    procedure Save;
    procedure Load;
  public
    { public declarations }
  end; 

var
  SettingForm: TSettingForm;

implementation

{$R *.lfm}

uses
  UCore, UFormMain;

{ TSettingForm }

procedure TSettingForm.FormShow(Sender: TObject);
begin
  MainForm.PersistentForm.Load(Self);

  Load;
end;

procedure TSettingForm.FormClose(Sender: TObject; var CloseAction: TCloseAction
  );
begin
  if ModalResult = mrOK then Save;
  MainForm.PersistentForm.Save(Self);
end;

procedure TSettingForm.Save;
begin
  with Core.CoolTranslator1 do
    Language := TLanguage(Languages[ComboBoxLanguage.ItemIndex]);
end;

procedure TSettingForm.Load;
begin
  with Core.CoolTranslator1 do begin
    LanguageListToStrings(ComboBoxLanguage.Items);
    if Assigned(Language) then begin
      ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Language);
      // Select automatic if no other match
      if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
    end else ComboBoxLanguage.ItemIndex := 0;
  end;
end;

end.