KCL Design System - TKclDesignClassList
|
|
Version 1.00
|
TKclDesignClassList is a
class used by TKclCompPalleteToolbar and many other components. The instance
of this class stores and managers a list of TClass.
Unit
KclClassesMan
Hierarchy
TObject - TList -
TKclDesignClassList
Properties
If this property is setted to True,
when add a class to the ClassList, the list will automaticly call procedure
RegisterClass to register it.
- Classes[Index: Integer]: TComponentClass
Classes stored in the list.
- ClassInfos[Index: Integer]: TKclDesignClassInformation
Class details in the list.
- Images: TKclClassesImageList
ImageList that stores the component
icon.
Methods
constructor Create
;
destructor Destroy;
override;
function AddClass(AClass:
TComponentClass; APalette: string = ''; AImageIndex: Integer = -1; CheckIfExist:
Boolean = True; AllowRegister: Boolean = True): Integer
;
Add AClass to the list. If associated
with TCompPalleteToolbar, AClass will appear at APalette with image index
of AImageIndex. If AllowRegister and property AutoRegister are True,
AClass will be registered by procedure RegisterClass.
function AddClassInfo(AClassInfo:
TKclDesignClassInformation): Integer;
Add AClassInfo containing TComponentClass
to the list.
function ClassExists(AClass:
TClass): Boolean;
Whether AClass exists in the list.
function ClassIndex(AClass:
TClass): Integer;
f
The index of AClass in the list.
If AClass does not exists in the list, this function returns -1.
function ClassInfoIndex(AClassInfo:
TKclDesignClassInformation): Integer;
The index of AClassInfo in the
list. If AClassInfo does not exists in the list, this function returns -1.
Clear the list. Also free all instance
of TKclDesignClassInformation in the list. So do not call List.Clear, use
this method instead.
procedure DelClass(AClass:
TComponentClass);
Delete AClass in the list.
procedure FillPalleteStrings(AStrings:
TStrings; IngoreBlank: Boolean = True);
Fill AStrings with all the Palette
string in each class information..
Demos
DfmBuilder
MQY Studio 2002.12