source: trunk/Forms/UFormSettings.pas

unit UFormSettings;

{$mode delphi}{$H+}

interface

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

type

  { TFormSettings }

  TFormSettings = class(TForm)
    Button1: TButton;
    ButtonCancel: TButton;
    ButtonOk: TButton;
    ComboBoxFormat: TComboBox;
    ComboBoxLang: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    LabeledEditFolder: TLabeledEdit;
    LabeledEditFileNameFormat: TLabeledEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    procedure Load;
    procedure Save;
  end;

var
  FormSettings: TFormSettings;

implementation

{$R *.lfm}

uses
  UFioAPI, UCore;

resourcestring
  SSelectFolder = 'Select destination folder';

{ TFormSettings }

procedure TFormSettings.FormCreate(Sender: TObject);
var
  I: TFioDataFormat;
begin
  while ComboBoxFormat.Items.Count < Length(DataFormatText) do
    ComboBoxFormat.Items.Add('');
  while ComboBoxFormat.Items.Count > Length(DataFormatText) do
    ComboBoxFormat.Items.Delete(ComboBoxFormat.Items.Count - 1);
  for I := Low(DataFormatText) to High(DataFormatText) do
    ComboBoxFormat.Items.Strings[Integer(I)] := DataFormatText[I];
end;

procedure TFormSettings.Button1Click(Sender: TObject);
var
  Output: string;
begin
  if SelectDirectory(SSelectFolder, LabeledEditFolder.Text, Output) then
    LabeledEditFolder.Text := Output;
end;

procedure TFormSettings.Load;
begin
  Core.CoolTranslator1.LanguageListToStrings(ComboBoxLang.Items);
  ComboBoxLang.ItemIndex := ComboBoxLang.Items.IndexOfObject(Core.CoolTranslator1.Language);
  LabeledEditFileNameFormat.Text := Core.OutputFormat;
  ComboBoxFormat.ItemIndex := Integer(Core.DataFormat);
  LabeledEditFolder.Text := Core.TargetDirectory;
end;

procedure TFormSettings.Save;
begin
  if ComboBoxLang.Items.Objects[ComboBoxLang.ItemIndex] <> Core.CoolTranslator1.Language then begin
    Core.CoolTranslator1.Language := TLanguage(ComboBoxLang.Items.Objects[ComboBoxLang.ItemIndex]);

  end;
  Core.OutputFormat := LabeledEditFileNameFormat.Text;
  Core.DataFormat := TFioDataFormat(ComboBoxFormat.ItemIndex);
  Core.TargetDirectory := LabeledEditFolder.Text;
end;

end.