IVZTreeItem.Selected

Синтаксис Fore

Selected: Boolean;

Синтаксис Fore.NET

Selected: boolean;

Описание

Свойство Selected определяет, используется ли выделение области дерева визуализатора.

Комментарии

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

• True. Используется выделение области дерева визуализатора;

• False. Не используется выделение области дерева визуализатора.

Пример Fore

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

Добавьте ссылки на системные сборки Metabase, Express, Visualizators.

Sub UserProc;
Var
    Metabase: IMetabase;
    EaxAnalyzer: IEaxAnalyzer;
    BubbleTree: IVZBubbleTree;
    RootItem: IVZTreeItem;
    Items: IVZTreeItems;
    Index: Integer;
    Item: IVZTreeItem;
    Model: IVZTreeModel;
Begin
    Metabase := MetabaseClass.Active;
    EaxAnalyzer := Metabase.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    BubbleTree := EaxAnalyzer.BubbleTree.BubbleTree;
    // Модель дерева
    Model := BubbleTree.Model;
    // Корневой элемент пузырькового дерева
    RootItem := Model.RootItem;
    //RootItem.Selected := False;
    RootItem.Selected := True;
    Debug.WriteLine("Идентификатор корневого элемента: " + RootItem.ID);
    // Дочерние элементы дерева
    Items := RootItem.Items;
    Debug.WriteLine("=== Дочерние элементы ===");
    For Index := 0 To Items.Count-1 Do
        // Идентификаторы дочерних элементов по индексу
        Item := Items.Item(Index);
        Debug.WriteLine((Index+1).ToString + ". Идентификатор: " + " " + Item.ID + ", родитель: " + Item.Parent.ID);
    End For;
    (EaxAnalyzer As IMetabaseObject).Save;
End Sub UserProc;

После выполнения примера в окно консоли будет выведена следующая информация:

• идентификатор корневого элемента;

• идентификаторы дочерних элементов и соответствующие идентификаторы родительских элементов.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Visualizators;
…
Public Shared Sub Main(Params: StartParams);
Var
    Metabase: IMetabase;
    EaxAnalyzer: IEaxAnalyzer;
    BubbleTree: IVZBubbleTree;
    RootItem: IVZTreeItem;
    Items: IVZTreeItems;
    Index: Integer;
    Item: IVZTreeItem;
    Model: IVZTreeModel;
Begin
    Metabase := Params.Metabase;
    EaxAnalyzer := Metabase.ItemById["EXPRESS"].Edit() As IEaxAnalyzer;
    BubbleTree := EaxAnalyzer.BubbleTree.BubbleTree;
    // Модель дерева
    Model := BubbleTree.Model;
    // Корневой элемент пузырькового дерева
    RootItem := Model.RootItem;
    //RootItem.Selected := False;
    RootItem.Selected := True;
    System.Diagnostics.Debug.WriteLine("Идентификатор корневого элемента: " + RootItem.ID);
    // Дочерние элементы дерева
    Items := RootItem.Items;
    System.Diagnostics.Debug.WriteLine("=== Дочерние элементы ===");
    For Index := 0 To Items.Count-1 Do
        // Идентификаторы дочерних элементов по индексу
        Item := Items.Item[Index];
        System.Diagnostics.Debug.WriteLine((Index+1).ToString() + ". Идентификатор: " + " " + Item.ID + ", родитель: " + Item.Parent.ID);
    End For;
    (EaxAnalyzer As IMetabaseObject).Save();
End Sub;

См. также:

IVZTreeItem