ShowCounts: Boolean;
Свойство ShowCounts определяет, выводить ли количество дочерних элементов для каждой вершины иерархии.
Допустимые значения:
True. Выводить количество дочерних элементов;
False. Не выводить количество дочерних элементов.
Пример компонента MetaAttributesTreeList с отображаемым количеством дочерних элементов (слева) и без (справа):
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонентов MetaAttributesBreadcrumb и MetaAttributesTreeList с наименованиями «MetaAttributesBreadcrumb1» и «MetaAttributesTreeList1». В репозитории должна располагаться база данных временных рядов с идентификатором OBJ_FC. Пример будет выполняться при нажатии на кнопку.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
mb: IMetabase;
rubDescr: IMetabaseObjectDescriptor;
dict: IMetaDictionary;
dictInst: IMetaDictionaryInstance;
rub: IRubricator;
rubInst: IRubricatorInstance;
Begin
mb := MetabaseClass.Active;
rubDescr := mb.ItemById("OBJ_FC");
rub := rubDescr.Bind As IRubricator;
rubInst := rubDescr.Open(Null) As IRubricatorInstance;
dictInst := rubInst.GetDictionary(RubricatorDictionary.Facts);
If dictInst <> Null Then
dict := (dictInst As IMetabaseObjectInstance).Object As IMetaDictionary;
MetaAttributesTreeList1.Dictionary := dict;
MetaAttributesTreeList1.ShowCounts := True;
MetaAttributesTreeList1.Breadcrumb := MetaAttributesBreadcrumb1;
MetaAttributesBreadcrumb1.Dictionary := dictInst;
MetaAttributesBreadcrumb1.MetaAttributes := dict.Attributes;
End If;
End Sub Button1OnClick;
После выполнения примера в компоненте MetaAttributesBreadcrumb можно будет выбрать атрибут, определяющий иерархию дерева базы данных временных рядов, отображаемую в компоненте MetaAttributesTreeList. Для каждой вершины будет отображаться количество дочерних элементов.
См. также: