| Class TCompInfo (unit RplWizInfo) |
TObject
| Constructors |
constructor Create(CompIntf: TIComponentInterface);| Functions |
destructor Destroy;
function GetName: string;
procedure CreateComponent(Parent: TCompInfo; FormIntf: TIFormInterface; NewType: string);
function FindComponent(CompIntf: TIComponentInterface): TCompInfo;
procedure GetMatchingComponents(List: TStrings; OldType: string);
function Replace(Parent: TCompInfo; FormIntf: TIFormInterface; List: TStrings; NewType: string): Integer;
function Search(Parent: TCompInfo; FormIntf: TIFormInterface; List: TStrings; NewType: string): Integer;
procedure SetInterface(NewIntf: TIComponentInterface);| 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;