ColInterval: Double;
ColInterval: System.Double;
Свойство ColInterval задаёт расстояние между столбцами легенды диаграмм.
Значение задаётся в миллиметрах.
Для использования свойства ColInterval установите свойство ColIntervalAuto в значение False.
Для выполнения примера предполагается наличие регламентного отчёта, на листе которого расположена диаграмма и внешняя легенда. К отчету добавлен модуль, из которого с помощью гиперссылки вызывается процедура UserProc. В инспекторе сборок модуля должны быть указаны ссылки на системные сборки Chart, Report, Tab.
Sub UserProc;
Var
Chart: IChartExternLegend;
Begin
Chart := (PrxReport.ActiveReport.ActiveSheet As IPrxTable).TabSheet.Objects.Item(1) As IChartExternLegend;
Chart.ColIntervalAuto := False;
Chart.ColInterval := 10;
End Sub UserProc;
После выполнения примера расстояние между столбцами внешней легенды изменится на 10 миллиметров.
Для выполнения примера предполагается наличие регламентного отчета, на листе которого расположена диаграмма и внешняя легенда. К отчету добавлена .NET сборка для обработки событий отчёта. В модуле указанной сборки в классе EventsClass описано событие OnBeforeOpenReport. Добавьте ссылки на системные сборки Chart и Tab.
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Chart;
Imports Prognoz.Platform.Interop.Tab;
...
Public Override Sub OnBeforeOpenReport(Report:IPrxReport; Var Cancel:Boolean);
Var
Chart: IChartExternLegend;
Begin
Cancel := False;
Chart := (Report.ActiveSheet As IPrxTable).TabSheet.Objects.Item[1] As IChartExternLegend;
Chart.ColIntervalAuto := False;
Chart.ColInterval := 10;
End Sub OnBeforeOpenReport;
При открытии отчёта расстояние между столбцами внешней легенды изменится на 10 миллиметров.
См. также: