TextAngle: Double;
TextAngle: Double;
Свойство TextAngle определяет угол поворота текста подписи.
Допустимыми значениями являются 0, 90 и 270.
Для выполнения примера в репозитории предполагается наличие регламентного отчёта с идентификатором REPORT. В отчетё создана диаграмма с идентификатором PrxChart1.
Добавьте ссылки на системные сборки: Chart, Metabase, Report, Tab.
Sub UserProc;
Var
Mb: IMetabase;
Report: IPrxReport;
Chart: IChart;
Serie: IChartSerieBase;
CLabel: IChartLabel;
Begin
Mb := MetabaseClass.Active;
Report := Mb.ItemById("REPORT").Edit As IPrxReport;
Chart := (Report.ActiveSheet As IPrxTable).TabSheet.Objects.Object("PrxChart1").Extension As IChart;
// Настройки ряда по умолчанию
Serie := Chart.Series.DefaultSerie;
// Настройки подписей
Serie.LabelsEnabled := True;
CLabel := Serie.DefaultLabel;
CLabel.Position := ChartLabelPosition.PeakInside;
CLabel.TextAngle := 90;
// Сохранение изменений
(Report As IMetabaseObject).Save;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Chart;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Public Shared Sub Main(Params: StartParams);
Var
Mb: IMetabase;
Report: IPrxReport;
Chart: IChart;
Serie: IChartSerieBase;
CLabel: IChartLabel;
Begin
Mb := Params.Metabase;
Report := Mb.ItemById["REPORT"].Edit() As IPrxReport;
Chart := (Report.ActiveSheet As IPrxTable).TabSheet.Objects.Object["PrxChart1"].Extension As IChart;
// Настройки ряда по умолчанию
Serie := Chart.Series.DefaultSerie;
// Настройки подписей
Serie.LabelsEnabled := True;
CLabel := Serie.DefaultLabel;
CLabel.Position := ChartLabelPosition.clpPeakInside;
CLabel.TextAngle := 90;
// Сохранение изменений
(Report As IMetabaseObject).Save();
End Sub;
При выполнении примера для диаграммы будут настроены подписи данных. Подписи будут отображаться у вершины внутри ряда и повёрнуты на 90 градусов.
См. также: