IVZBubbleTree.Captions

Executing the example requires that the repository contains an express report with the EXPRESS_REPORT identifier containing bubble tree. Display collection of labels to the bubble tree elements.

Add links to the Metabase, Express, Visualizators system assemblies. The specified procedure should be called from the Main entry point.

Sub UserProc;
Var
    Metabase: IMetabase;
    EaxAnalyzer: IEaxAnalyzer;
    BubbleTree: IVZBubbleTree;
    i: Integer;
    AllKeys: IVZStringArray;
    Key, Captions: String;
Begin
    // Get the current repository
    Metabase := MetabaseClass.Active;
    // Get express report
    EaxAnalyzer := Metabase.ItemById("EXPRESS_REPORT").Edit As IEaxAnalyzer;
    // Get bubble tree
    BubbleTree := EaxAnalyzer.BubbleTree.BubbleTree;
    // Get all label keys
    AllKeys := BubbleTree.Captions.AllKeys;
    // Display the collection of labels for bubble tree elements
    For i:=0 To AllKeys.Count-1 Do
        Key := AllKeys.Item(i);
        Captions := BubbleTree.Captions.Item(Key);
        BubbleTree.Captions.Item(Key) := Captions;
        Debug.WriteLine(Captions);
    End For;
End Sub UserProc;

After executing the example the console displays labels for bubble tree elements:

IVZBubbleTree.Captions

Syntax

Description

Example