Text: String;
Text: string;
Свойство Text возвращает текст подписи данных на диаграмме.
Для выполнения примера предполагается наличие регламентного отчёта, на листе которого расположена диаграмма. К отчету добавлен модуль, из которого с помощью гиперссылки вызывается процедура UserProc. В инспекторе сборок модуля должны быть указаны ссылки на системные сборки Chart, Report, Tab.
Sub UserProc;
Var
Chart: IChart;
Begin
Chart := (PrxReport.ActiveReport.ActiveSheet As IPrxTable).TabSheet.Objects.Item(1).Extension As IChart;
WinApplication.InformationBox(Chart.Series.Item(0).Label(0).Text);
End Sub UserProc;
После выполнения примера при нажатии на гиперссылку появится сообщение, содержащее текст первой подписи первого ряда данных на диаграмме.
Для выполнения примера предполагается наличие регламентного отчета, на листе которого расположена диаграмма и внешняя легенда. К отчету добавлена .NET сборка для обработки событий отчёта. В модуле указанной сборки в классе EventsClass описано событие OnBeforeOpenReport. В инспекторе сборок модуля должны быть указаны ссылки на системные сборки Chart, Report, Tab.
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Chart;
Imports System.Windows.Forms;
...
Public Override Sub OnBeforeOpenReport(Report : IPrxReport; Var Cancel : Boolean);
Var
Chart: IChart;
Begin
Chart := (Report.ActiveSheet As IPrxTable).TabSheet.Objects.Item[1].Extension As IChart;
MessageBox.Show(Chart.Series.Item[0].Label[0].Text);
End Sub OnBeforeOpenReport;
После открытия отчета появится сообщение, содержащее текст первой подписи первого ряда данных на диаграмме.
См. также: