Class TMgrInstallFileGroupsDlg (unit Idmgrfg)

Inherits from

TInstallDialogManager

Constructors


constructor Create(AOwner: TComponent);

Public declarations

SelectDirectory procedure



Functions

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

Properties

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


Events

event OnChangeGroup : TChangeGroupEvent

Events

event OnChangeInspectingGroupEvent : TChangeGroupEvent


Variables

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;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

SelectDirectory procedure


Functions


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


Properties


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


Events


event OnChangeGroup : TChangeGroupEvent

Events


event OnChangeInspectingGroupEvent : TChangeGroupEvent


Variables


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;