IMetaAttributesTreeList.UserConditions

Синтаксис

UserConditions: IOrmConditions;

Описание

Свойство UserConditions возвращает пользовательские условия, накладываемые на элементы дерева.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с идентификатором «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;

conds: IOrmConditions;

con: IOrmCondition;

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;

conds := MetaAttributesTreeList1.UserConditions;

con := conds.Add;

con.AttributeName := "DL";

con.Value := 1;

MetaAttributesTreeList1.Breadcrumb := MetaAttributesBreadcrumb1;

MetaAttributesBreadcrumb1.Dictionary := dictInst;

MetaAttributesBreadcrumb1.MetaAttributes := dict.Attributes;

End If;

End Sub Button1OnClick;

После выполнения примера в компоненте MetaAttributesBreadcrumb можно будет выбрать атрибут, определяющий иерархию дерева базы данных временных рядов, отображаемую в компоненте MetaAttributesTreeList. На дерево элементов будет наложено ограничение: отображаются только данные с годовой динамикой.

См. также:

IMetaAttributesTreeList