| Class TReplaceWizardForm (unit RplWizForm) |
TForm
Hidden Paths of Delphi 3, by Ray Lischner. Informant Press, 1997. Copyright © 1997 Tempest Software, Inc. Component Replace Wizard. Search & Replace components dialog
| Constructors |
| Functions |
procedure AllOrSelectedClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TextChange(Sender: TObject);
procedure AddClassName(CompIntf: TIComponentInterface);
procedure GetComponentClasses(CompIntf: TIComponentInterface; AddParent: Boolean);
procedure GetFindNames(FormIntf: TIFormInterface);
procedure GetReplaceNames;Get all the components in the component library.
procedure LoadInfo(FormIntf: TIFormInterface);
procedure ReplaceAll(FormIntf: TIFormInterface; OldType, NewType: string);
procedure ReplaceSelected(FormIntf: TIFormInterface; OldType, NewType: string);
procedure ShowResult(Count: Integer);| Properties |
| Events |
| Variables |
AllOrSelected : TRadioGroup;
CancelButton : TButton;
FindName : TComboBox;
Label1 : TLabel;
ReplaceButton : TButton;
ReplaceLabel : TLabel;
ReplaceName : TComboBox;
AllTypes : TStringList;
SelectedTypes : TStringList;
TypeList : TStrings;| Constructors |
| Functions |
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);| Properties |
| Events |
| Variables |
AllOrSelected : TRadioGroup;
CancelButton : TButton;
FindName : TComboBox;
Label1 : TLabel;
ReplaceButton : TButton;
ReplaceLabel : TLabel;
ReplaceName : TComboBox;
AllTypes : TStringList;
SelectedTypes : TStringList;
TypeList : TStrings;