IDimensionTree.Expanded

Синтаксис

Expanded(Element: Integer): Boolean;

Параметры

Element. Индекс вершины дерева.

Описание

Свойство Expanded определяет отображение иерархии вершины дерева - в развёрнутом виде или в свёрнутом.

Комментарии

Допустимые значения:

Пример

Для выполнения примера в репозитории необходимо наличие справочника, содержащего иерархию элементов.

Разместите на форме компоненты DimensionTree, UiDimension, Label, два компонента Button с наименованиями «DimensionTree1», «UiDimension1», «Label1», «Button1», «Button2» соответственно.

Задайте дополнительные свойства:

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

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
    DimensionTree1.Expand(13True);
    If DimensionTree1.Expanded(13) = True Then
        Label1.Text := "Вершина дерева развёрнута";
    End If;
End Sub Button1OnClick;
Sub Button2OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
    DimensionTree1.Collapse(13True);
    If DimensionTree1.Expanded(13) = False Then
        Label1.Text := "Вершина дерева свёрнута";
    End If;
End Sub Button2OnClick;

В результате выполнения примера на форме будут отображены элементы заданного справочника для разворачивания и сворачивания иерархии вершины дерева с индексом «13».

При нажатии на кнопку «Развернуть» будет развёрнута иерархия элементов и отображена соответствующая надпись:

При нажатии на кнопку «Свернуть» будет свёрнута иерархия элементов и отображена соответствующая надпись:

См. также:

IDimensionTree