Class TCompInfo (unit RplWizInfo) |
Inherits from
TObject
constructor Create(CompIntf: TIComponentInterface);
- TCompInfo
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.
property Children : TCompList
property ComponentInterface : TIComponentInterface
property Properties : TPropList
property TypeName : string
fChildren : TCompList;
fInterface : TIComponentInterface;
fProperties : TPropList;
fTypeName : string;
constructor Create(CompIntf: TIComponentInterface);
TCompInfo
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.
property Children : TCompList
property ComponentInterface : TIComponentInterface
property Properties : TPropList
property TypeName : string
fChildren : TCompList;
fInterface : TIComponentInterface;
fProperties : TPropList;
fTypeName : string;