IVZBaseDataVisualizer.Background

Copy example

Sub UserProc;
Var
    Metabase: IMetabase;
    Analyzer: IEaxAnalyzer;
    BubbleTree: IVZBaseDataVisualizer;
    Formatter: IVZBaseFormatter;
    Color: IGxColor;
    Brush: IGxBrush;
    Bitmap: IGxBitmap;
    Image: IGxImage;
    Graphics: IGxGraphics;
    Rect: IGxRectF;
    UnRed: IUndoRedo;
Begin
    // Get repository
    Metabase := MetabaseClass.Active;
    // Get express report
    Analyzer := Metabase.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Get bubble tree
    BubbleTree := Analyzer.BubbleTree.BubbleTree As IVZBaseDataVisualizer;
    // Change visualizer background brush settings
    Color := GxColor.FromName("Yellow");
    Brush := New GxSolidBrush.Create(Color);
    BubbleTree.Background := Brush;
    // Get percentage expression of the 0.425 number using the data formatting tool
    Formatter := BubbleTree.Formatter;
    Formatter.FormatByParam("{0}", 0.425, "0.00%");
    Debug.WriteLine("The 0.425 number expressed as percentage: " + Formatter.FormatByParam("{0}", 0.425, "0.00%"));
    // Enable visualizer animation
    If Not BubbleTree.EnableAnimating Then
        BubbleTree.EnableAnimating := True;
    End If;
    // Enable visualizer print mode
    If BubbleTree.IsPrintMode Then
        BubbleTree.IsPrintMode := False;
    End If;
    // Visualizer is unchanged
    If BubbleTree.IsDirty Then
        BubbleTree.IsDirty := False;
    End If;
    // Get change stack of visualizer settings
    UnRed := BubbleTree.UndoRedo;
    // Set availability and number of stack changes
    UnRed.Enabled:= True;
    UnRed.Limit:= 5;
    // Save visualizer image to file
    Bitmap := BubbleTree.GetBitmap(1795, 1205, 300);
    Bitmap.SaveToFile("C:\Image.jpg");
    // Render visualizer to graphic object
    Image := New GxImage.CreateFromFile("C:\Graph.jpg");
    Graphics := GxGraphicsClass.FromImage(Image);
    Rect := New GxRectF.Create(100, 100, 100, 100);
    BubbleTree.Draw(Graphics, Rect, 300, True);
    // Refresh report and save changes
    Analyzer.RefreshAll;
    (Analyzer As IMetabaseObject).Save;
End Sub UserProc;