IVZBubbleChart.ShowBubbleHistory

ShowBubbleHistory: Boolean;

ShowBubbleHistory: boolean;

Sub UserProc;
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    BC: IVZBubbleChart;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим экспресс-отчет
    Express := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Получим пузырьковую диаграмму
    BC := Express.BubbleChart.BubbleChart;
    // Включим отображение истории передвижения пузырька
    BC.ShowBubbleHistory := True;
    // Включим отображение годовых подсказок
    BC.ShowBubbleHistoryLabels := True;
    // Отключим возможность изменения масштаба диаграммы
    BC.UseZoomOnWheel := False;
    // Отображение истории при щелчке мыши по пузырьку
    BC.ShowHistoryMode := VisualizatorHistoryModeEnum.Click;
    // Отключим включение истории при переходе на другой год
    If BC.ShowHistoryPreviousStepsOnly Then
        BC.ShowHistoryPreviousStepsOnly := False;
    End If;
    // Обновим пузырьковую диаграмму и обновим отчет
    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
    // Получим репозиторий
    MB := Params.Metabase;
    // Получим экспресс-отчет
    Express := MB.ItemById["EXPRESS"].Edit() As IEaxAnalyzer;
    // Получим пузырьковую диаграмму
    BC := Express.BubbleChart.BubbleChart;
    // Включим отображение истории передвижения пузырька
    BC.ShowBubbleHistory := True;
    // Включим отображение годовых подсказок
    BC.ShowBubbleHistoryLabels := True;
    // Отключим возможность изменения масштаба диаграммы
    BC.UseZoomOnWheel := False;
    // Отображение истории при щелчке мыши по пузырьку
    BC.ShowHistoryMode := VisualizatorHistoryModeEnum.hmeClick;
    // Отключим включение истории при переходе на другой год
    If BC.ShowHistoryPreviousStepsOnly Then
        BC.ShowHistoryPreviousStepsOnly := False;
    End If;
    // Обновим пузырьковую диаграмму и обновим отчет
    Express.BubbleChart.Refresh();
    (Express As IMetabaseObject).Save();
End Sub;