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

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.

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;



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;