source: trunk/Forms/FormTargetOptions.pas

unit FormTargetOptions;

interface

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

type

  { TFormTargetOptions }

  TFormTargetOptions = class(TForm)
    ButtonOk: TButton;
    ButtonCancel: TButton;
    ButtonCompiler: TButton;
    ButtonExecute: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    OpenDialog1: TOpenDialog;
    procedure ButtonCompilerClick(Sender: TObject);
    procedure ButtonExecuteClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  public
    procedure LoadControls(Target: TTarget);
    procedure SaveControls(Target: TTarget);
  end;


implementation

{$R *.lfm}

uses
  Core;

{ TFormTargetOptions }

procedure TFormTargetOptions.ButtonCompilerClick(Sender: TObject);
begin
  OpenDialog1.FileName := Edit1.Text;
  if OpenDialog1.Execute then Edit1.Text := OpenDialog1.FileName;
end;

procedure TFormTargetOptions.ButtonExecuteClick(Sender: TObject);
begin
  OpenDialog1.FileName := Edit2.Text;
  if OpenDialog1.Execute then Edit2.Text := OpenDialog1.FileName;
end;

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

procedure TFormTargetOptions.FormCreate(Sender: TObject);
begin
  Core.Core.Translator.TranslateComponentRecursive(Self);
  Core.Core.ThemeManager.UseTheme(Self);
end;

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

procedure TFormTargetOptions.LoadControls(Target: TTarget);
begin
  Edit1.Text := Target.CompilerPath;
  Edit2.Text := Target.ExecutorPath;
end;

procedure TFormTargetOptions.SaveControls(Target: TTarget);
begin
  Target.CompilerPath := Edit1.Text;
  Target.ExecutorPath := Edit2.Text;
end;

end.