IDimensionViewer.DimGroup

Синтаксис

DimGroup: IDimElementGroup;

Описание

Свойство DimGroup определяет группу элементов справочника, на базе которой будет строиться дерево элементов в компоненте.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопкой с наименованием "Button1", компонентов DimensionTree, DimensionCombo и компонента UiDimension, являющегося источником данных для DimensionTree и DimensionCombo. Справочник, загруженный в UiDimension должен иметь две группы элементов.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

MB: IMetabase;

Groups: IMetabaseObjectDescriptors;

ElemGroup: IDimElementGroup;

Begin

MB := MetabaseClass.Active;

Groups := (UiDimension1.Dimension As IMetabaseObject).Children;

ElemGroup := Groups.Item(0).Bind As IDimElementGroup;

DimensionTree1.DimGroup := ElemGroup;

ElemGroup := Groups.Item(1).Bind As IDimElementGroup;

DimensionCombo1.DimGroup := ElemGroup;

End Sub Button1OnClick;

После выполнения примера при нажатии на кнопку в компоненте "DimensionTree1" будет отображаться дерево, основанное на первой группе элементов справочника, а в "DimensionCombo1" - дерево, основанное на второй группе элементов.

См. также:

IDimensionViewer