IVZTreeItem.Selected

Copy example

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;
    // Tree model
    Model := BubbleTree.Model;
    // Bubble tree root element
    RootItem := Model.RootItem;
    RootItem.Selected := True;
    Debug.WriteLine("Root element identifier: " + RootItem.ID);
    // Parent elements of tree
    Items := RootItem.Items;
    Debug.WriteLine("=== Child elements===");
    For Index := 0 To Items.Count-1 Do
        // Identifiers of child elements by index
        Item := Items.Item(Index);
        Debug.WriteLine((Index+1).ToString + ". Identifier: " + " " + Item.ID + ", parent: " + Item.Parent.ID);
    End For;
    (EaxAnalyzer As IMetabaseObject).Save;
End Sub UserProc;