source: branches/ByteArray/Forms/FormSettings.pas

unit FormSettings;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
  FormEx;

type

  { TFormSettings }

  TFormSettings = class(TFormEx)
    ButtonOk: TButton;
    ButtonCancel: TButton;
    CheckBoxAutoStartMachine: TCheckBox;
    ComboBoxStartUpForm: TComboBox;
    ComboBoxTheme: TComboBox;
    ComboBoxLanguage: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ScrollBox1: TScrollBox;
    procedure ButtonOkClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private

  public

  end;

var
  FormSettings: TFormSettings;


implementation

{$R *.lfm}

uses
  Core, Theme, Languages;

{ TFormSettings }

procedure TFormSettings.FormShow(Sender: TObject);
begin
  Core.Core.Translator1.LanguageListToStrings(ComboBoxLanguage.Items);
  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.Core.Translator1.Language);
  if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;

  Core.Core.ThemeManager1.Themes.LoadToStrings(ComboBoxTheme.Items);
  ComboBoxTheme.ItemIndex := ComboBoxTheme.Items.IndexOfObject(Core.Core.ThemeManager1.Theme);
  if ComboBoxTheme.ItemIndex = -1 then ComboBoxTheme.ItemIndex := 0;

  ComboBoxStartUpForm.Text := Core.Core.StartUpForm;
  CheckBoxAutoStartMachine.Checked := Core.Core.AutoStartMachine;
end;

procedure TFormSettings.ButtonOkClick(Sender: TObject);
begin
  if ComboBoxLanguage.ItemIndex <> -1 then
    Core.Core.Translator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
  if ComboBoxTheme.ItemIndex <> -1 then
    Core.Core.ThemeManager1.Theme := TTheme(ComboBoxTheme.Items.Objects[ComboBoxTheme.ItemIndex]);

  Core.Core.StartUpForm := ComboBoxStartUpForm.Text;
  Core.Core.AutoStartMachine := CheckBoxAutoStartMachine.Checked;
end;

end.