Class TReplaceWizardForm (unit RplWizForm) |
Inherits from
TForm
Hidden Paths of Delphi 3, by Ray Lischner.
Informant Press, 1997.
Copyright © 1997 Tempest Software, Inc.
Component Replace Wizard.
Search & Replace components dialog
procedure AllOrSelectedClick(Sender: TObject);
When the user changes the All/Selected choice, update the list
of components to search for.
procedure FormCreate(Sender: TObject);
Create the string lists to store component types for FindName.
procedure FormDestroy(Sender: TObject);
Free the string lists when freeing the form.
procedure TextChange(Sender: TObject);
Enable the OK button only when the user has supplied Find
and Replace component names.
procedure AddClassName(CompIntf: TIComponentInterface);
Add a class name to the current type list.
procedure GetComponentClasses(CompIntf: TIComponentInterface; AddParent: Boolean);
Get all the classes that are used by the children of CompIntf.
procedure GetFindNames(FormIntf: TIFormInterface);
Get all the components that are actually in use.
procedure GetReplaceNames;
refers to AllTypes or SelectedTypes Get all the components in the component library.
procedure LoadInfo(FormIntf: TIFormInterface);
Load component information from the given form interface.
procedure ReplaceAll(FormIntf: TIFormInterface; OldType, NewType: string);
procedure ReplaceSelected(FormIntf: TIFormInterface; OldType, NewType: string);
Replace the matching components.
procedure ShowResult(Count: Integer);
AllOrSelected : TRadioGroup;
CancelButton : TButton;
FindName : TComboBox;
Label1 : TLabel;
ReplaceButton : TButton;
ReplaceLabel : TLabel;
ReplaceName : TComboBox;
AllTypes : TStringList;
SelectedTypes : TStringList;
TypeList : TStrings;
procedure AllOrSelectedClick(Sender: TObject);
When the user changes the All/Selected choice, update the list
of components to search for.
procedure FormCreate(Sender: TObject);
Create the string lists to store component types for FindName.
procedure FormDestroy(Sender: TObject);
Free the string lists when freeing the form.
procedure TextChange(Sender: TObject);
Enable the OK button only when the user has supplied Find
and Replace component names.
procedure AddClassName(CompIntf: TIComponentInterface);
Add a class name to the current type list.
procedure GetComponentClasses(CompIntf: TIComponentInterface; AddParent: Boolean);
Get all the classes that are used by the children of CompIntf.
If AddParent is True, also add CompIntf's type.
procedure GetFindNames(FormIntf: TIFormInterface);
Get all the components that are actually in use.
procedure GetReplaceNames;
refers to AllTypes or SelectedTypes
Get all the components in the component library.
procedure LoadInfo(FormIntf: TIFormInterface);
Load component information from the given form interface.
procedure ReplaceAll(FormIntf: TIFormInterface; OldType, NewType: string);
procedure ReplaceSelected(FormIntf: TIFormInterface; OldType, NewType: string);
Replace the matching components.
procedure ShowResult(Count: Integer);
AllOrSelected : TRadioGroup;
CancelButton : TButton;
FindName : TComboBox;
Label1 : TLabel;
ReplaceButton : TButton;
ReplaceLabel : TLabel;
ReplaceName : TComboBox;
AllTypes : TStringList;
SelectedTypes : TStringList;
TypeList : TStrings;