EditedSerie: Integer;
Свойство EditedSerie определяет индекс ряда в режимах редактирования: «по точкам» и «рисование».
Данные режимы устанавливаются свойством IChart.InteractiveMode.
Свойство EditedSerie принимает значение «-1», в случае если неверно задан режим или не выбран ряд.
Для выполнения примера предполагается наличие регламентного отчёта, на листе которого расположена диаграмма. К отчету добавлен модуль, с помощью которого по гиперссылке вызывается процедура GetS. Подключите системные сборки: Chart, Report, Tab.
Sub GetS;
Var
Chart : IChart;
Begin
Chart := PrxReport.ActiveReport.ActiveSheet.Table.Objects.Item(0).Extension As IChart;
Chart.InteractiveMode := ChartInteractiveMode.EditByPoint;
Chart.EditedSerie := 0;
End Sub GetS;
Будет установлен режим редактирования диаграммы «по точкам», и выбран для редактирования ряд с индексом «0».
Создайте регламентный отчет с идентификатором «REGULAR_REPORT», на котором расположена диаграмма. Добавьте на форму компоненты Button, UiChartNet, ChartBoxNet, с наименованиями «button1», «uiChartNet1», «chartBoxNet1» соответственно. Подключите системные сборки: Metabase, Report, Chart, Tab.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Chart;
Imports Prognoz.Platform.Interop.Tab;
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
Report: IPrxReport;
Sheet: IPrxSheet;
PrxTable: IPrxTable;
TabSheet: ITabSheet;
Chart: IChart;
MB: IMetabase;
Begin
MB := Self.Metabase;
Report := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
Sheet := Report.Sheets.Item[0];
PrxTable := Sheet As IPrxTable;
TabSheet := PrxTable.TabSheet;
Chart := TabSheet.Objects.Item[0].Extension As IChart;
Chart.InteractiveMode := ChartInteractiveMode.ciamEditByPoint;
Chart.EditedSerie := 0;
chartBoxNet1.CtrlBox.Chart := Chart As DxChart;
End Sub;
На форме будет отображена диаграмма из регламентного отчета, и выбран режим редактирования «по точкам».
См. также: