Class TdlgFileGroupFiles (unit Instfile) |
Inherits from
TForm
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);
property ComponentEditor : TDefaultEditor
Public declarations
property FileGroup : TInstallFileGroup
property FormDesigner : TFormDesigner
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;
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);
property ComponentEditor : TDefaultEditor
Public declarations
property FileGroup : TInstallFileGroup
property FormDesigner : TFormDesigner
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;