Class TdlgFileGroupFiles (unit Instfile)

Inherits from

TForm

Constructors



Functions

procedure AfterInstallCBChange(Sender: TObject);


procedure AfterInstallCBDblClick(Sender: TObject);


procedure BeforeInstallCBChange(Sender: TObject);

Change of a property or event value

procedure BeforeInstallCBDblClick(Sender: TObject);


procedure btnAddClick(Sender: TObject);

Add not only the text we are to display, but a reference to the object.

procedure btnCloseClick(Sender: TObject);


procedure btnRefreshClick(Sender: TObject);


procedure btnRemoveClick(Sender: TObject);


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure FileListClick(Sender: TObject);


procedure FileListDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure FileMaskEditChange(Sender: TObject);

Version stuff

procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormShow(Sender: TObject);

If there is a duplicate file, an exception will be raised.

procedure OnReplacingCBChange(Sender: TObject);


procedure OnReplacingCBDblClick(Sender: TObject);


procedure AfterInstallMethodList(const S: String);


procedure AfterInstallPropertyList(Prop: TPropertyEditor);

This is so the OnChange events will not be triggered.

procedure BeforeInstallMethodList(const S: String);


procedure BeforeInstallPropertyList(Prop: TPropertyEditor);


procedure OnReplacingMethodList(const S: String);


procedure OnReplacingPropertyList(Prop: TPropertyEditor);


procedure PropertyList(Prop: TPropertyEditor);


procedure RefreshFileList;


procedure SetAfterInstallProperty(Prop: TPropertyEditor);


procedure SetBeforeInstallProperty(Prop: TPropertyEditor);


procedure SetButtons;


procedure SetOnReplacingProperty(Prop: TPropertyEditor);


Properties

property ComponentEditor : TDefaultEditor

Public declarations

property FileGroup : TInstallFileGroup


property FormDesigner : TFormDesigner


Events

Variables

AfterInstallCB : TComboBox;


BeforeInstallCB : TComboBox;


Bevel1 : TBevel;


Bevel2 : TBevel;


btnAdd : TButton;


btnClose : TBitBtn;


btnRefresh : TButton;


btnRemove : TButton;


Button1 : TButton;


Button2 : TButton;


cbOverwriteMode : TComboBox;


DirectoryListBox : TDirectoryListBox;


Divider1 : TPanel;


Divider2 : TPanel;


Divider3 : TPanel;


Divider4 : TPanel;


DriveComboBox : TDriveComboBox;


edDestDir : TEdit;


edDestName : TEdit;


FileList : TListBox;


FileListBox : TFileListBox;


FileMaskEdit : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


OnReplacingCB : TComboBox;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Panel7 : TPanel;


Panel8 : TPanel;


TabbedNotebook1 : TTabbedNotebook;


OldDir : String;


ComponentList : TComponentList;

Private declarations

FComponentEditor : TDefaultEditor;


FFileGroup : TInstallFileGroup;


FFormDesigner : TFormDesigner;



Constructors


Functions


procedure AfterInstallCBChange(Sender: TObject);


procedure AfterInstallCBDblClick(Sender: TObject);


procedure BeforeInstallCBChange(Sender: TObject);

Change of a property or event value


procedure BeforeInstallCBDblClick(Sender: TObject);


procedure btnAddClick(Sender: TObject);

Add not only the text we are to display, but a reference to the object.


procedure btnCloseClick(Sender: TObject);


procedure btnRefreshClick(Sender: TObject);


procedure btnRemoveClick(Sender: TObject);


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure FileListClick(Sender: TObject);


procedure FileListDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure FileMaskEditChange(Sender: TObject);

Version stuff


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormShow(Sender: TObject);

If there is a duplicate file, an exception will be raised. Ignore it.


procedure OnReplacingCBChange(Sender: TObject);


procedure OnReplacingCBDblClick(Sender: TObject);


procedure AfterInstallMethodList(const S: String);


procedure AfterInstallPropertyList(Prop: TPropertyEditor);

This is so the OnChange events will not be triggered.


procedure BeforeInstallMethodList(const S: String);


procedure BeforeInstallPropertyList(Prop: TPropertyEditor);


procedure OnReplacingMethodList(const S: String);


procedure OnReplacingPropertyList(Prop: TPropertyEditor);


procedure PropertyList(Prop: TPropertyEditor);


procedure RefreshFileList;


procedure SetAfterInstallProperty(Prop: TPropertyEditor);


procedure SetBeforeInstallProperty(Prop: TPropertyEditor);


procedure SetButtons;


procedure SetOnReplacingProperty(Prop: TPropertyEditor);


Properties


property ComponentEditor : TDefaultEditor

Public declarations


property FileGroup : TInstallFileGroup


property FormDesigner : TFormDesigner


Events


Variables


AfterInstallCB : TComboBox;


BeforeInstallCB : TComboBox;


Bevel1 : TBevel;


Bevel2 : TBevel;


btnAdd : TButton;


btnClose : TBitBtn;


btnRefresh : TButton;


btnRemove : TButton;


Button1 : TButton;


Button2 : TButton;


cbOverwriteMode : TComboBox;


DirectoryListBox : TDirectoryListBox;


Divider1 : TPanel;


Divider2 : TPanel;


Divider3 : TPanel;


Divider4 : TPanel;


DriveComboBox : TDriveComboBox;


edDestDir : TEdit;


edDestName : TEdit;


FileList : TListBox;


FileListBox : TFileListBox;


FileMaskEdit : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


OnReplacingCB : TComboBox;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Panel7 : TPanel;


Panel8 : TPanel;


TabbedNotebook1 : TTabbedNotebook;


OldDir : String;


ComponentList : TComponentList;

Private declarations


FComponentEditor : TDefaultEditor;


FFileGroup : TInstallFileGroup;


FFormDesigner : TFormDesigner;