IMetaAttributesTreeList.Dictionary

Syntax

Dictionary: IMetaDictionary;

Description

The Dictionary property determines the dictionary, on which the MetaAttributesTreeList component is configured.

Example

Executing the example requires a form with a button with the Button1 identifier, the MetaAttributesBreadcrumb and the MetaAttributesTreeList components with the MetaAttributesBreadcrumb1 and the MetaAttributesTreeList1 identifiers. The repository must contain a time series database with the OBJ_FC identifier. Click the button to start executing the example.

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.Breadcrumb := MetaAttributesBreadcrumb1;

MetaAttributesBreadcrumb1.Dictionary := dictInst;

MetaAttributesBreadcrumb1.MetaAttributes := dict.Attributes;

End If;

End Sub Button1OnClick;

After executing the example, the attribute that determines the time series database tree hierarchy that is displayed in the MetaAttributesTreeList component can be selected in the MetaAttributesBreadcrumb component.