IChartSerie.SeriePoint

Fore Syntax

SeriePoint(Index: Integer): IChartSeriePoint;

Fore.NET Syntax

SeriePoint[Index: Integer]: Prognoz.Platform.Interop.Chart.IChartSeriePoint;

Parameters

Index. Index of the data series point.

Description

The SeriePoint property determines settings of a data series point by a specified index.

Fore Example

To execute this example, add references to the Metabase, Report, Chart, Tab, and Drawing system assemblies. The repository must contain a regular report with the identifier OBJ_1, and a chart with the identifier PrxChart1 in the active sheet.

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;

After executing the example the point 0 of the data series 0 is shown in lavender color.

Fore.NET Example

The repository must contain a regular report with the identifier OBJ_1, and a chart with the identifier PrxChart1 in the active sheet.

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;

After executing the example the point 0 of the data series 0 is shown in lavender color.