source: tags/1.0.0/Forms/UFormTargetOptions.pas

unit UFormTargetOptions;

{$mode delphi}

interface

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

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);
  private
    { private declarations }
  public
    procedure LoadControls(Target: TTarget);
    procedure SaveControls(Target: TTarget);
  end;

var
  FormTargetOptions: TFormTargetOptions;


implementation

{$R *.lfm}

uses
  UCore;

{ 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.PersistentForm1.Save(Self);
end;

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

procedure TFormTargetOptions.FormShow(Sender: TObject);
begin
  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.