BubbleSizeScale: Double;
BubbleSizeScale: double;
The BubbleSizeScale property determines scale of bubbles.
Range of available values is [0; 3]. The default value is 1.
Executing the example requires a regular report with the 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.
The requirements and result of the Fore.NET example execution match with those in 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: