IDimensionViewer.DimGroup

Синтаксис

DimGroup: IDimElementGroup;

Описание

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

Пример

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

Пример является обработчиком события OnClick для кнопки.

Добавьте ссылки на системные сборки: Dimensions, ExtCtrls, Forms, Metabase.

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