source: tags/1.3.1/Forms/UFormSettings.pas

unit UFormSettings;

{$mode delphi}

interface

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

type

  { TFormSettings }

  TFormSettings = class(TForm)
    ButtonOk: TButton;
    ButtonCancel: TButton;
    CheckBoxAutomaticDPI: TCheckBox;
    CheckBoxStartMinimizedToTray: TCheckBox;
    CheckBoxStartOnLogon: TCheckBox;
    CheckBoxAlwaysOnTop: TCheckBox;
    ComboBoxLanguage: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    SpinEditDPI: TSpinEdit;
    procedure ButtonOkClick(Sender: TObject);
    procedure CheckBoxAutomaticDPIChange(Sender: TObject);
    procedure CheckBoxStartOnLogonChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    procedure Load;
    procedure Save;
    procedure UpdateInterface;
  end;

var
  FormSettings: TFormSettings;

implementation

{$R *.lfm}

uses
  UCore;

{ TFormSettings }

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

procedure TFormSettings.ButtonOkClick(Sender: TObject);
begin
  if ComboBoxLanguage.ItemIndex <> -1 then
    Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
end;

procedure TFormSettings.CheckBoxAutomaticDPIChange(Sender: TObject);
begin
  UpdateInterface;
end;

procedure TFormSettings.CheckBoxStartOnLogonChange(Sender: TObject);
begin
  UpdateInterface;
end;

procedure TFormSettings.FormCreate(Sender: TObject);
begin
  Core.CoolTranslator1.TranslateComponentRecursive(Self);
end;

procedure TFormSettings.Load;
begin
  CheckBoxAlwaysOnTop.Checked := Core.AlwaysOnTop;
  CheckBoxStartOnLogon.Checked := Core.StartOnLogon;
  CheckBoxStartMinimizedToTray.Checked := Core.StartMinimizedToTray;
  CheckBoxAutomaticDPI.Checked := Core.ScaleDPI1.AutoDetect;
  SpinEditDPI.Value := Core.ScaleDPI1.DPI.X;
  UpdateInterface;
end;

procedure TFormSettings.Save;
begin
  Core.AlwaysOnTop := CheckBoxAlwaysOnTop.Checked;
  Core.StartOnLogon := CheckBoxStartOnLogon.Checked;
  Core.StartMinimizedToTray := CheckBoxStartMinimizedToTray.Checked;
  Core.ScaleDPI1.AutoDetect := CheckBoxAutomaticDPI.Checked;
  Core.ScaleDPI1.DPI := Point(SpinEditDPI.Value, SpinEditDPI.Value);
end;

procedure TFormSettings.UpdateInterface;
begin
  CheckBoxStartMinimizedToTray.Enabled := CheckBoxStartOnLogon.Checked;
  SpinEditDPI.Enabled := not CheckBoxAutomaticDPI.Checked;
  Label2.Enabled := not CheckBoxAutomaticDPI.Checked;
end;

end.