Class TCompInfo (unit RplWizInfo)

Inherits from

TObject

Constructors


constructor Create(CompIntf: TIComponentInterface);

TCompInfo


Functions

destructor Destroy;


function GetName: string;

Return the component's name, that is, the value of its Name property.

procedure CreateComponent(Parent: TCompInfo; FormIntf: TIFormInterface; NewType: string);

Create a new component of type NewType, duplicating the old component's properties.

function FindComponent(CompIntf: TIComponentInterface): TCompInfo;

Search for the component whose interface is CompIntf.

procedure GetMatchingComponents(List: TStrings; OldType: string);

Find all components whose type is OldType; add the names of the matching components to List.

function Replace(Parent: TCompInfo; FormIntf: TIFormInterface; List: TStrings; NewType: string): Integer;

Create a component and its children.

function Search(Parent: TCompInfo; FormIntf: TIFormInterface; List: TStrings; NewType: string): Integer;

If this component's name is in List, delete it and recreate the component using type, NewType, and recursively recreate its children.

procedure SetInterface(NewIntf: TIComponentInterface);

Change the component interface reference.

Properties

property Children : TCompList


property ComponentInterface : TIComponentInterface


property Properties : TPropList


property TypeName : string


Events

Variables

fChildren : TCompList;


fInterface : TIComponentInterface;


fProperties : TPropList;


fTypeName : string;



Constructors


constructor Create(CompIntf: TIComponentInterface);

TCompInfo


Functions


destructor Destroy;


function GetName: string;

Return the component's name, that is, the value of its Name property.


procedure CreateComponent(Parent: TCompInfo; FormIntf: TIFormInterface; NewType: string);

Create a new component of type NewType, duplicating the old component's properties.


function FindComponent(CompIntf: TIComponentInterface): TCompInfo;

Search for the component whose interface is CompIntf. Return nil for not found. To search for an interface, compare component handles, which are unique among all existing components.


procedure GetMatchingComponents(List: TStrings; OldType: string);

Find all components whose type is OldType; add the names of the matching components to List.


function Replace(Parent: TCompInfo; FormIntf: TIFormInterface; List: TStrings; NewType: string): Integer;

Create a component and its children. If the component is named in List, use NewType for its type.


function Search(Parent: TCompInfo; FormIntf: TIFormInterface; List: TStrings; NewType: string): Integer;

If this component's name is in List, delete it and recreate the component using type, NewType, and recursively recreate its children. If any children are in List, recreate them with the NewType. If this component is not in the list, search its children.


procedure SetInterface(NewIntf: TIComponentInterface);

Change the component interface reference. Take care now to free the old interface until it is safe to do so.


Properties


property Children : TCompList


property ComponentInterface : TIComponentInterface


property Properties : TPropList


property TypeName : string


Events


Variables


fChildren : TCompList;


fInterface : TIComponentInterface;


fProperties : TPropList;


fTypeName : string;