BubbleSizeScale: Double;
BubbleSizeScale: double;
The BubbleSizeScale property determines zoom of bubbles.
Range of acceptable values [0; 3]. The default value is 1.
The Executing the example requires a regular report with Diagr identifier, containing a bubble chart.
Add links to the Chart, Metabase, Report, Tab system assemblies.
Sub UserProc;
Var
mb: IMetabase;
report: IprxReport;
chart: IChart;
Info: IChartBubbleInfo;
Begin
mb := MetabaseClass.Active;
report := Mb.ItemById("Diagr").Edit As IPrxReport;
chart := (report.ActiveSheet As IPrxTable).TabSheet.Objects.Item(0).Extension As IChart;
info := chart.BubbleInfo;
info.BubbleSizeScale := 2;
info.ShowNegativeBubbles := False;
info.RepresentedBubbleSizeMeasure := BubbleSizeMeasure.Width;
(report As IMetabaseObject).Save;
End Sub UserProc;
After executing the example the following properties are set for the chart: bubbles scale equals to 2, bubbles with negative size are not drawn, bubble size is determined by the width.
Requirements and the result of execution of the Fore.NET example are similar to the Fore example.
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Chart;
Imports Prognoz.Platform.Interop.Tab;
…
Public Shared Sub Main(Params: StartParams);
Var
mb: IMetabase;
report: IprxReport;
chart: IChart;
Info: IChartBubbleInfo;
Begin
mb := Params.Metabase;
report := Mb.ItemById["Diagr"].Edit() As IPrxReport;
chart := (report.ActiveSheet As IPrxTable).TabSheet.Objects.Item[0].Extension As IChart;
info := chart.BubbleInfo;
info.BubbleSizeScale := 2;
info.ShowNegativeBubbles := False;
info.RepresentedBubbleSizeMeasure := BubbleSizeMeasure.bsmWidth;
(report As IMetabaseObject).Save();
End Sub;
See also: