source: trunk/Forms/UInstanceOptions.pas

unit UInstanceOptions;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComCtrls, ExtCtrls, DOM, XMLWrite, XMLRead, USource, UInstance,
  USourceSelection;

type

  { TInstanceOptionsForm }

  TInstanceOptionsForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ButtonCancel: TButton;
    ButtonOk: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ButtonCancelClick(Sender: TObject);
    procedure ButtonOkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    IsNew: Boolean;
  public
    Instance: TInstance;
    FPCSource: TSource;
    IDESource: TSource;
  end;

var
  InstanceOptionsForm: TInstanceOptionsForm;

implementation

{$R *.lfm}

uses
  UMainForm;

{ TInstanceOptionsForm }

procedure TInstanceOptionsForm.ButtonOkClick(Sender: TObject);
begin
  Instance.Name := Edit1.Text;
  Instance.FPCSource := FPCSource;
  Instance.IDESource := IDESource;
end;

procedure TInstanceOptionsForm.ButtonCancelClick(Sender: TObject);
begin
  if IsNew then Instance.Free;
end;

procedure TInstanceOptionsForm.Button1Click(Sender: TObject);
begin
  SourceSelectionForm.ProjectType := 'Compiler';
  if SourceSelectionForm.ShowModal = mrOk then begin
    if Assigned(SourceSelectionForm.ListView1.Selected) then
      FPCSource := TSource(SourceSelectionForm.ListView1.Selected.Data)
      else FPCSource := nil;
    if Assigned(FPCSource) then
      Edit2.Text := FPCSource.GetName
      else Edit2.Text := '';
  end;
end;

procedure TInstanceOptionsForm.Button2Click(Sender: TObject);
begin
  SourceSelectionForm.ProjectType := 'IDE';
  if SourceSelectionForm.ShowModal = mrOk then begin
    if Assigned(SourceSelectionForm.ListView1.Selected) then
      IDESource := TSource(SourceSelectionForm.ListView1.Selected.Data)
      else IDESource := nil;
    if Assigned(IDESource) then
      Edit3.Text := IDESource.GetName
      else Edit3.Text := '';
  end;
end;

procedure TInstanceOptionsForm.FormCreate(Sender: TObject);
begin
end;

procedure TInstanceOptionsForm.FormDestroy(Sender: TObject);
begin
end;

procedure TInstanceOptionsForm.FormShow(Sender: TObject);
begin
  if not Assigned(Instance) then begin
    Instance := TInstance.Create;
    Instance.Id := MainForm.Instances.GetNewId;
    Instance.Name := 'Instance ' + IntToStr(Instance.Id);
    IsNew := True;
  end else IsNew := False;

  Edit1.Text := Instance.Name;
  FPCSource := Instance.FPCSource;
  IDESource := Instance.IDESource;
  if Assigned(FPCSource) then
    Edit2.Text := FPCSource.GetName
    else Edit2.Text := '';
  if Assigned(IDESource) then
    Edit3.Text := IDESource.GetName
    else Edit3.Text := '';
end;

end.