Style: IVZControlStyle;
The Style property determines style for a control.
Executing the example requires that the repository contains an express report with the EXP identifier. The unit 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 IVZBubbleTree interface description page. Set top and right border alignment and use turquoise color fill for bubble tree legend with intervals:
Sub UserProc;
Var
Metabase: IMetabase;
Analyzer: IEaxAnalyzer;
BubbleTree: IVZBubbleTree;
Style: IVZControlStyle;
Brush: IGxSolidBrush;
Legend: IVZIntervalsLegend;
Begin
// Get the current repository
Metabase := MetabaseClass.Active;
// Get express report
Analyzer := Metabase.ItemById("EXP").Edit As IEaxAnalyzer;
// Get bubble tree
BubbleTree := Analyzer.BubbleTree.BubbleTree;
// Get legend with intervals
Legend := BubbleTree.Legends.Item(0) As IVZIntervalsLegend;
// Align legend horizontally
Legend.HorizontalAlignment := VisualizatorHorizontalAlignment.Right;
// Align legend vertically
Legend.VerticalAlignment := VisualizatorVerticalAlignment.Top;
// Set legend style with turquoise color fill
Style := New VZControlStyle.Create;
Brush := New GxSolidBrush.Create(New GxColor.CreateRGB(48, 213, 200));
Style.Background := Brush;
Legend.Style := Style;
// Save changes, made in express report
(Analyzer As IMetabaseObject).Save;
End Sub UserProc;
After executing the example bubble tree legend with intervals is aligned at top and right borders, and filled with turquoise color:
See also: