Background: 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;
После выполнения примера ряд диаграммы будет закрашен красно-желтым градиентом.
Пример Fore.NET
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
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;
См. также: