source: trunk/Forms/FormTargetOptions.pas

unit FormTargetOptions;

interface

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

type

  { TFormTargetOptions }

  TFormTargetOptions = class(TFormEx)
    ButtonCompiler: TButton;
    ButtonExecute: TButton;
    ButtonOk: TButton;
    ButtonCancel: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    OpenDialog1: TOpenDialog;
    ScrollBox1: TScrollBox;
    procedure ButtonCompilerClick(Sender: TObject);
    procedure ButtonExecuteClick(Sender: TObject);
  public
    procedure LoadControls(Target: TTarget);
    procedure SaveControls(Target: TTarget);
  end;


implementation

{$R *.lfm}

{ 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.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.