Background: IChartBackgroundInfo;
Background: Prognoz.Platform.Interop.Chart.IChartBackgroundInfo;
Свойство Background определяет параметры заливки для ряда данных.
Тип заливки ряда определяет свойство Type. Каждому типу соответствует определенный набор свойств интерфейса IChartBackgroundInfo.
Применение типа заливки ряда имеет ограничение по типам диаграммы, описанным в перечислении ChartBackgroundType.
Для выполнения примера предполагается наличие гистограммы в регламентном отчете с идентификатором «REGULAR_REPORT». Подключите системные сборки: Chart, Drawing, Metabase, Report, Tab.
Sub UserProc;
Var
MB: IMetabase;
Report: IPrxReport;
Sheet: ITabSheet;
Chart: IChart;
Serie: IChartSerie;
Begin
MB := MetabaseClass.Active;
Report := MB.ItemById("REGULAR_REPORT").Edit As IPrxReport;
Sheet := (Report.Sheets.Item(0) As IPrxTable).TabSheet;
Chart := Sheet.Objects.Item(0).Extension As IChart;
Serie := Chart.Series.Item(0);
Serie.Background.Type := ChartBackgroundType.Gradient;
Serie.Background.Color := GxColor.FromName("Red");
Serie.Background.GradientColor := GxColor.FromName("Yellow");
(Report As IMetabaseObject).Save;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Chart;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Report: IPrxReport;
Sheet: ITabSheet;
Chart: IChart;
Serie: IChartSerie;
GxColorCls: GxColorClassClass = New GxColorClassClass();
Begin
MB := Params.Metabase;
Report := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
Sheet := (Report.Sheets.Item[0] As IPrxTable).TabSheet;
Chart := Sheet.Objects.Item[0].Extension As IChart;
Serie := Chart.Series.Item[0];
Serie.Background.Type := ChartBackgroundType.cbtGradient;
Serie.Background.Color := GxColorCls.FromName("Red");
Serie.Background.GradientColor := GxColorCls.FromName("Yellow");
(Report As IMetabaseObject).Save();
End Sub;
После выполнения примера ряд диаграммы будет закрашен красно-желтым градиентом.
См. также: