source: trunk/IDE/Forms/FormTargetOptions.pas

unit FormTargetOptions;

interface

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

type

  { TFormTargetOptions }

  TFormTargetOptions = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ButtonProducerSelect: TButton;
    ButtonExecutorSelect: TButton;
    EditProducer: TEdit;
    EditExecutor: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    LabelName: TLabel;
    OpenDialog1: TOpenDialog;
    procedure ButtonProducerSelectClick(Sender: TObject);
    procedure ButtonExecutorSelectClick(Sender: TObject);
  private
    { private declarations }
  public
    procedure LoadControls(Target: TTarget);
    procedure SaveControls(Target: TTarget);
  end;


implementation


{$R *.lfm}

{ TFormTargetOptions }

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

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

procedure TFormTargetOptions.LoadControls(Target: TTarget);
begin
  LabelName.Caption := Target.Name;
  ButtonExecutorSelect.Enabled := Assigned(Target.Executor);
  EditExecutor.Enabled := Assigned(Target.Executor);
  if Assigned(Target.Executor) then
    EditExecutor.Text := Target.Executor.ExecutorPath
    else EditExecutor.Text := '';
  ButtonProducerSelect.Enabled := Assigned(Target.Producer);
  EditProducer.Enabled := Assigned(Target.Producer);
  if Assigned(Target.Producer) then
    EditProducer.Text := Target.Producer.CompilerPath
    else EditProducer.Text := '';
end;

procedure TFormTargetOptions.SaveControls(Target: TTarget);
begin
  Target.Executor.ExecutorPath := EditExecutor.Text;
  Target.Producer.CompilerPath := EditProducer.Text;
end;

end.