IVZBubbleChart.ShowBubbleHistory

ShowBubbleHistory: Boolean;

ShowBubbleHistory: boolean;

Sub UserProc;
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    BC: IVZBubbleChart;
Begin
    // Get repository
    MB := MetabaseClass.Active;
    // Get express report
    Express := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Get bubble chart
    BC := Express.BubbleChart.BubbleChart;
    // Enable displaying of bubble moving history
    BC.ShowBubbleHistory := True;
    // Enable displaying of year tooltip
    BC.ShowBubbleHistoryLabels := True;
    // Disable possibility to change chart zoom
    BC.UseZoomOnWheel := False;
    // Display history on clicking the bubble
    BC.ShowHistoryMode := VisualizatorHistoryModeEnum.Click;
    // Disable displaying of history on moving to the other year
    If BC.ShowHistoryPreviousStepsOnly Then
        BC.ShowHistoryPreviousStepsOnly := False;
    End If;
    // Refresh bubble chart and refresh report
    Express.BubbleChart.Refresh;
    (Express As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Visualizators;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    BC: IVZBubbleChart;
Begin
    // Get repository
    MB := Params.Metabase;
    // Get express report
    Express := MB.ItemById["EXPRESS"].Edit() As IEaxAnalyzer;
    // Get bubble chart
    BC := Express.BubbleChart.BubbleChart;
    // Enable displaying of bubble moving history
    BC.ShowBubbleHistory := True;
    // Enable displaying of year tooltip
    BC.ShowBubbleHistoryLabels := True;
    // Disable possibility to change chart zoom
    BC.UseZoomOnWheel := False;
    // Display history on clicking the bubble
    BC.ShowHistoryMode := VisualizatorHistoryModeEnum.hmeClick;
    // Disable displaying of history on moving to the other year
    If BC.ShowHistoryPreviousStepsOnly Then
        BC.ShowHistoryPreviousStepsOnly := False;
    End If;
    // Refresh bubble chart and refresh report
    Express.BubbleChart.Refresh();
    (Express As IMetabaseObject).Save();
End Sub;