innosetup/Projects/Src/CompFilesDesigner.pas

unit CompFilesDesigner;

interface

uses
  Classes, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,
  UIStateForm, NewStaticText, DropListBox, CompWizardFilesHelper;

type
  TFilesDesignerForm = class(TUIStateForm)
    Panel1: TPanel;
    InsertButton: TButton;
    CancelButton: TButton;
    AppFilesEditButton: TButton;
    AppFilesRemoveButton: TButton;
    AppFilesAddDirButton: TButton;
    AppFilesAddButton: TButton;
    AppFilesListBox: TDropListBox;
    AppFilesLabel: TNewStaticText;
    NotCreateAppDirCheck: TCheckBox;
    Bevel1: TBevel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure InsertButtonClick(Sender: TObject);
  private
    FFilesHelper: TWizardFormFilesHelper;
    function GetText: String;
  public
    property Text: string read GetText;
  end;

implementation

{$R *.dfm}

procedure TFilesDesignerForm.FormCreate(Sender: TObject);
begin
  FFilesHelper := TWizardFormFilesHelper.Create(Handle,
    NotCreateAppDirCheck, AppFilesListBox, AppFilesAddButton, AppFilesAddDirButton,
    AppFilesEditButton, AppFilesRemoveButton);
end;

procedure TFilesDesignerForm.FormDestroy(Sender: TObject);
begin
  FFilesHelper.Free;
end;

function TFilesDesignerForm.GetText: String;
begin
  Result := '';
  FFilesHelper.AddScript(Result);
end;

procedure TFilesDesignerForm.InsertButtonClick(Sender: TObject);
begin
  if FFilesHelper.FilesCount = 0 then
    ModalResult := mrCancel;
end;

end.