IChartSerie.SeriePoint

Синтаксис

Параметры

Index. Индекс точки ряда данных.

Описание

Свойство SeriePoint определяет настройки точки ряда данных по заданному индексу.

Пример Fore

Для выполнения примера добавьте ссылки на системные сборки «Metabase», «Report», «Chart», «Tab» и «Drawing». Предполагается наличие в репозитории регламентного отчета с идентификатором «OBJ_1», диаграммы с идентификатором «PrxChart1» на активном листе.

Sub UserProc;
Var
    mb: IMetabase;
    rep: IPrxReport;
    chart: IChart;
    SeriePoint: IChartSeriePoint;
Begin
    mb := MetabaseClass.Active;
    rep := mb.ItemById("OBJ_1").Edit As IPrxReport;
    chart := (rep.ActiveSheet As IprxTable).TabSheet.Objects.Object("PrxChart1").Extension As IChart;
    SeriePoint := chart.Series.Item(0).SeriePoint(0);
    SeriePoint.Selected := True;
    SeriePoint.Background.Type := ChartBackgroundType.Color;
    SeriePoint.Background.Color := GxColor.CreateARGB(255, 245, 120, 255);
    SeriePoint.Label.Visible := True;
    SeriePoint.Label.Type := ChartLabelType.Noteline;
    (rep As IMetabaseObject).Save;
End Sub UserProc;

После выполнения примера точка с номером «0» ряда данных с номером «0» будет сиреневого цвета.

Пример Fore.NET

Предполагается наличие в репозитории регламентного отчета с идентификатором «OBJ_1», диаграммы с идентификатором «PrxChart1» на активном листе.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Chart;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
...
Sub UserProc(Params: StartParams);
Var
    mb: IMetabase;
    rep: IPrxReport;
    chart: IChart;
    SeriePoint: IChartSeriePoint;
    color: GxColor;
Begin
    mb := Params.Metabase;
    rep := mb.ItemById["OBJ_1"].Edit() As IPrxReport;
    chart := (rep.ActiveSheet As IprxTable).TabSheet.Objects.Object["PrxChart1"].Extension As IChart;
    SeriePoint := chart.Series.Item[0].SeriePoint[0];
    SeriePoint.Selected := True;
    SeriePoint.Background.Type := ChartBackgroundType.cbtColor;
    color := New GxColor();
    color.CreateARGB[255, 245, 120, 255];
    SeriePoint.Background.Color := color;
    SeriePoint.Label.Visible := True;
    SeriePoint.Label.Type := ChartLabelType.cltNoteline;
    (rep As IMetabaseObject).Save();
End Sub;

После выполнения примера точка с номером «0» ряда данных с номером «0» будет сиреневого цвета.

См. также:

IChartSerie