IVZBubbleTree.OrbitsPen

Syntax

Description

The OrbitsPen property determines orbit line pen for a bubble tree.

Example

Executing the example requires that the repository contains an express report with the EXP identifier. The module containing the example should have links to the Drawing, Express, Metabase and Visualizators system assemblies. The specified procedure should be called from the Main entry point.

Before executing this example, the bubble tree looks as shown on the description page of the IVZBubbleTree interface. Select purple color for orbit lines in a bubble tree, and select the number of colors for the chart palette:

Sub UserProc;
Var
    Metabase: IMetabase; // Metabase
    Analyzer: IEaxAnalyzer; // Express report
    BubbleTree: IVZBubbleTree; // Bubble tree
    OrbitsPen: IGxPenBase; // Orbit lines
    Color: IGxColor; // Line color
    Palette: IVZPalette; // Color palette
Begin
    // Get metabase object
    Metabase := MetabaseClass.Active;
    // Get express report object
    Analyzer := Metabase.ItemById("EXP").Edit As IEaxAnalyzer;
    // Get bubble tree
    BubbleTree := Analyzer.BubbleTree.BubbleTree;
    // Create pen with purple color fill
    Color := New GxColor.CreateRGB(255, 0, 255);
    OrbitsPen := New GxPen.CreateSolid(Color);
    // Set pen width
    OrbitsPen.Width := 5;
    // Select created pen
    BubbleTree.OrbitsPen := OrbitsPen;
    // Obtain color palette
    Palette := BubbleTree.Palette;
    // Determine the number of colors in palette
    Debug.WriteLine("Number of colors in palette: " +
        Palette.BackgroundArray.Count.ToString);
    // Save changes, made in express report
    (Analyzer As IMetabaseObject).Save;
End Sub UserProc;

After executing the example, orbit lines in a bubble tree are colored purple:

The number of colors in the bubble tree palette is shown in the development environment console window:

Number of colors in the palette: 36