SymbolSpace: Double;
SymbolSpace: System.Double;
Свойство SymbolSpace задаёт расстояние между значком и текстом для элементов легенды диаграмм.
Значение задается в миллиметрах. По умолчанию значение SymbolSpace равно 2 миллиметра.
Для использования свойства SymbolSpace установите свойству SymbolSpaceAuto значение False.
Для выполнения примера предполагается наличие регламентного отчёта, на листе которого расположена диаграмма и внешняя легенда. К отчету добавлен модуль, из которого с помощью гиперссылки вызывается процедура UserProc. В инспекторе сборок модуля должны быть указаны ссылки на системные сборки Chart, Report, Tab.
Sub UserProc;
Var
Chart: IChartExternLegend;
Begin
Chart := (PrxReport.ActiveReport.ActiveSheet As IPrxTable).TabSheet.Objects.Item(1) As IChartExternLegend;
Chart.SymbolSpaceIntervalAuto := False;
Chart.SymbolSpaceInterval := 5;
End Sub UserProc;
После выполнения примера расстояние между значком и текстом элементов внешней легенды изменится на 5 миллиметров.
Для выполнения примера предполагается наличие регламентного отчета, на листе которого расположена диаграмма и внешняя легенда. К отчету добавлена .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.SymbolSpaceIntervalAuto := False;
Chart.SymbolSpaceInterval := 5;
End Sub OnBeforeOpenReport;
При открытии отчёта расстояние между значком и текстом элементов внешней легенды будет установлено в 5 мм.
См. также: