BackgroundInfo: IChartBackgroundInfo;
BackgroundInfo: Prognoz.Platform.Interop.Chart.IChartBackgroundInfo;
Свойство BackgroundInfo определяет свойства заливки внешней легенды диаграмм.
Для выполнения примера предполагается наличие регламентного отчета с идентификатором «Report». В отчете присутствуют объекты: диаграмма и внешняя легенда.
Sub Main;
Var
mb: IMetabase;
rep: IPrxReport;
legend: IPrxChartLegend;
chartlegend: IChartExternLegend;
items: IChartExternLegendItems;
chartBI : IChartBackgroundInfo;
Begin
mb:= MetabaseClass.Active;
rep:= mb.ItemById("OBJ42859").Edit As IPrxReport;
legend:= ((rep.ActiveSheet As IprxTable).TabSheet.Objects.Item(1)) As IPrxChartLegend;
chartlegend:= legend As IChartExternLegend;
chartlegend.AxisIcon:= ChartLegendAxisIcon.Axis;
chartBI:= chartlegend.BackgroundInfo;
chartBI.Color:= New GxColor.CreateARGB( 255, 245, 120, 255);
items:= chartlegend.InternalItems;
(rep As IMetabaseObject).Save;
End Sub Main;
После выполнения примера поменяется цвет заливки внешней легенды диаграммы.
Для выполнения примера предполагается наличие регламентного отчета с идентификатором «Report». В отчете присутствуют объекты: диаграмма и внешняя легенда.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Chart;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Drawing;
...
Public Shared Sub Main(Params: StartParams);
Var
mb: IMetabase;
rep: IPrxReport;
legend: IPrxChartLegend;
chartlegend: IChartExternLegend;
items: IChartExternLegendItems;
chartBI: IChartBackgroundInfo;
color: GxColorClass_2;
Begin
mb := Params.Metabase;
rep := mb.ItemById["OBJ42859"].Edit() As IPrxReport;
legend := ((rep.ActiveSheet As IprxTable).TabSheet.Objects.Item[1]) As IPrxChartLegend;
chartlegend := legend As IChartExternLegend;
chartlegend.AxisIcon := ChartLegendAxisIcon.claiAxis;
chartBI := chartlegend.BackgroundInfo;
color := New GxColorClass_2();
color.CreateARGB(255, 245, 120, 255);
chartBI.Color := color;
items := chartlegend.InternalItems;
(rep As IMetabaseObject).Save();
End Sub;
End Class;
После выполнения примера поменяется цвет заливки внешней легенды диаграммы.
См. также: