BubbleChart: IEaxBubbleChart;
BubbleChart: Prognoz.Platform.Interop.Express.IEaxBubbleChart;
Свойство BubbleChart возвращает объект, содержащий пузырьковую диаграмму экспресс-отчета.
Пузырьковая диаграмма позволяет просматривать динамику изменения показателей в виде анимированной диаграммы. Ряды диаграммы представлены в виде пузырьков, движение которых показывает изменение значений ряда.
Для выполнения примера предполагается наличие экспресс-отчета с идентификатором «EXPRESS_REPORT». Измерения источника данных экспресс-отчета основаны на следующих справочниках:
справочник с идентификатором «D_Indicators», содержащий четыре элемента. Данные, хранящиеся по этим элементам, будут определять динамику движения пузырьков матрицы;
территориальный справочник с идентификатором «D_Map»;
календарный справочник с идентификатором «Calendar».
Sub UserProc;
Var
MB: IMetabase;
Eax: IEaxAnalyzer;
Pivot: IPivot;
Selection: IDimSelectionSet;
IDim, ODim, TimeDim: IDimSelection;
Bubble: IEaxBubbleChart;
Begin
MB := MetabaseClass.Active;
Eax := MB.ItemById("EXPRESS_REPORT").Edit As IEaxAnalyzer;
Pivot := Eax.Pivot;
Selection := Pivot.Selection;
//Поиск измерений
IDim := Selection.FindById("D_Indicators");
ODim := Selection.FindById("D_Map");
TimeDim := Selection.FindById("Calendar");
//Сброс расположения измерений
Pivot.LeftHeader.Clear;
Pivot.TopHeader.Clear;
//Отметим первую территорию
ODim.SelectElement(0, False);
//Отметим элементы первого уровня календаря
TimeDim.SelectSiblings(0);
//Настройка параметров пузырьковой
диаграммы
//Указываем измерения
Bubble := Eax.BubbleChart;
//Активация пузырьковой
диаграммы
Bubble.Active := True;
//Настройка измерений
Bubble.IndicatorsDim := IDim.Dimension;
Bubble.ObjectivesDim := ODim.Dimension;
Bubble.TimeLineDim := TimeDim.Dimension;
//Определяем элементы по которым будут браться значения для измерений пузырьковой
диаграммы
Bubble.IndicatorElement(BubbleChartDimension.X) := 0;
Bubble.IndicatorElement(BubbleChartDimension.Y) := 1;
Bubble.IndicatorElement(BubbleChartDimension.Radial) := 2;
Bubble.IndicatorElement(BubbleChartDimension.Color) := 3;
//Сохранение изменений
(Eax As IMetabaseObject).Save;
End Sub UserProc;
В результате выполнения примера будет осуществлена настройка экспресс-отчета для работы пузырьковой диаграммы. В экспресс-отчете будет установлено необходимое расположение измерений, по измерениям будет установлена необходимая отметка. Для пузырьковой диаграммы будут указаны измерения и определены элементы, по которым будут браться значения для формирования динамики движения пузырьков.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Chart;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Pivot;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Eax: IEaxAnalyzer;
Pivot: IPivot;
Selection: IDimSelectionSet;
IDim, ODim, TimeDim: IDimSelection;
Bubble: IEaxBubbleChart;
Begin
MB := Params.Metabase;
Eax := MB.ItemById["EXPRESS_REPORT"].Edit() As IEaxAnalyzer;
Pivot := Eax.Pivot;
Selection := Pivot.Selection;
//Поиск измерений
IDim := Selection.FindById("D_Indicators");
ODim := Selection.FindById("D_Map");
TimeDim := Selection.FindById("Calendar");
//Сброс расположения измерений
Pivot.LeftHeader.Clear();
Pivot.TopHeader.Clear();
//Отметим первую территорию
ODim.SelectElement(0, False);
//Отметим элементы первого уровня календаря
TimeDim.SelectSiblings(0);
//Настройка параметров пузырьковой
диаграммы
//Указываем измерения
Bubble := Eax.BubbleChart;
//Активация пузырьковой
диаграммы
Bubble.Active := True;
//Настройка измерений
Bubble.IndicatorsDim := IDim.Dimension;
Bubble.ObjectivesDim := ODim.Dimension;
Bubble.TimeLineDim := TimeDim.Dimension;
//Определяем элементы по которым будут браться значения для измерений пузырьковой
диаграммы
Bubble.IndicatorElement[BubbleChartDimension.bcdX] := 0;
Bubble.IndicatorElement[BubbleChartDimension.bcdY] := 1;
Bubble.IndicatorElement[BubbleChartDimension.bcdRadial] := 2;
Bubble.IndicatorElement[BubbleChartDimension.bcdColor] := 3;
//Сохранение изменений
(Eax As IMetabaseObject).Save();
End Sub;
См. также: