Fills a tree view with a class hierarchy which is defined by the TStrings as TClass=TAncestorClass
Namespace: RSVclHelperFunctions
Delphi |
procedure CreateHierarchy(Classes: TStrings; tv: TTreeView; DefaultClasses: TStrings); |
Parameters
Classes
Type: TStrings
a string list of TClass=TAncestorClass
tv
Type: TTreeView
Tree view to create nodes for
DefaultClasses
Type: TStrings
Defines the default classes for all classes if no ancestor class is specified, e.g., 'TClass=' would then search DefaultClasses for 'TClass=DefaultClass'
Reference |
