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