Class TMgrInstallFileGroupsDlg (unit Idmgrfg) |
Inherits from
TInstallDialogManager
constructor Create(AOwner: TComponent);
- Public declarations
SelectDirectory procedure
procedure Attach;
destructor Destroy;
procedure ChangeInspectingLabel;
Protected declarations Both the inspecting group and current group have probably changed.
procedure DoChangeDirBtnClick(Sender: TObject);
procedure DoExpandBtnClick(Sender: TObject);
procedure DoGroupListBoxClick(Sender: TObject);
procedure DoGroupListBoxDblClick(Sender: TObject);
procedure DoGroupListBoxDrawItem(Control: TWinControl;Index: Integer;Rect: TRect;State: TOwnerDrawState);
procedure DoPreviousBtnClick(Sender: TObject);
Draw the size text
procedure SetButtons;
Set the labels, and text of the components.
procedure SetIncludedBitmap(Value: TBitmap);
Expand the %f meta-variable
procedure RefreshInspectingGroup;
Set all the event handlers to our handling
property ChangeDirBtn : TButton
Published declarations
property DescriptionMemo : TMemo
property DirectoryLabel : TLabel
property ExpandBtn : TButton
property GroupListBox : TListBox
property IncludedBitmap : TBitmap
property InspectingLabel : TLabel
property PreviousBtn : TButton
property SpaceAvailableLabel : TLabel
property SpaceRequiredLabel : TLabel
property UnitDescription : String
event OnChangeGroup : TChangeGroupEvent
Events
event OnChangeInspectingGroupEvent : TChangeGroupEvent
Continue : Boolean;
CurrentGroup : TInstallFileGroup;
CurrentInspectingGroup : TInstallFileGroup;
FChangeDirBtn : TButton;
Private declarations
FChangeGroupEvent : TChangeGroupEvent;
Events
FChangeInspectingGroupEvent : TChangeGroupEvent;
FDescriptionMemo : TMemo;
FDirectoryLabel : TLabel;
FExpandBtn : TButton;
FGroupListBox : TListBox;
FIncludedBitmap : TBitmap;
FInspectingLabel : TLabel;
FPreviousBtn : TButton;
FSpaceAvailableLabel : TLabel;
FSpaceRequiredLabel : TLabel;
FUnitDescription : String;
constructor Create(AOwner: TComponent);
Public declarations
SelectDirectory procedure
procedure Attach;
destructor Destroy;
procedure ChangeInspectingLabel;
Protected declarations
Both the inspecting group and current group have probably changed.
procedure DoChangeDirBtnClick(Sender: TObject);
procedure DoExpandBtnClick(Sender: TObject);
procedure DoGroupListBoxClick(Sender: TObject);
procedure DoGroupListBoxDblClick(Sender: TObject);
procedure DoGroupListBoxDrawItem(Control: TWinControl;Index: Integer;Rect: TRect;State: TOwnerDrawState);
procedure DoPreviousBtnClick(Sender: TObject);
Draw the size text
procedure SetButtons;
Set the labels, and text of the components.
procedure SetIncludedBitmap(Value: TBitmap);
Expand the %f meta-variable
procedure RefreshInspectingGroup;
Set all the event handlers to our handling
property ChangeDirBtn : TButton
Published declarations
property DescriptionMemo : TMemo
property DirectoryLabel : TLabel
property ExpandBtn : TButton
property GroupListBox : TListBox
property IncludedBitmap : TBitmap
property InspectingLabel : TLabel
property PreviousBtn : TButton
property SpaceAvailableLabel : TLabel
property SpaceRequiredLabel : TLabel
property UnitDescription : String
event OnChangeGroup : TChangeGroupEvent
Events
event OnChangeInspectingGroupEvent : TChangeGroupEvent
Continue : Boolean;
CurrentGroup : TInstallFileGroup;
CurrentInspectingGroup : TInstallFileGroup;
FChangeDirBtn : TButton;
Private declarations
FChangeGroupEvent : TChangeGroupEvent;
Events
FChangeInspectingGroupEvent : TChangeGroupEvent;
FDescriptionMemo : TMemo;
FDirectoryLabel : TLabel;
FExpandBtn : TButton;
FGroupListBox : TListBox;
FIncludedBitmap : TBitmap;
FInspectingLabel : TLabel;
FPreviousBtn : TButton;
FSpaceAvailableLabel : TLabel;
FSpaceRequiredLabel : TLabel;
FUnitDescription : String;