IPrxScene3DNamedPointSerie.PointsInRows

Syntax

PointsInRows: Boolean;

Description

The PointsInRows property determines positions of sphere names in the specified range (in rows or in columns). When the property is set to True, the points names are taken from the rows of the range. When the property is set to False, the points names are taken from the range columns.

The property is set to True by default.

Fore Example

Executing the example requires a regular report with the REGULAR_REPORT identifier, the report sheet contains a 3D scene with specific source data and data in the range B6:E6. A unit is added to the report that is used to call the GetPointsInRows procedure using the hyperlink. Add links to the Report, Tab, Metabase system assemblies.

Sub GetPointsInRows;
Var
    Report: IPrxReport;
    Tab: ITabSheet;
    s: IPrxScene3D;
    ser: IPrxScene3DNamedPointSerie;
Begin
    Report := PrxReport.ActiveReport;
    Tab := (Report.ActiveSheet As IPrxTable).TabSheet;
    s := Tab.Objects.Item(0).Extension As IPrxScene3D;
    ser := s.Series.Item(s.Series.Count - 1) As IPrxScene3DNamedPointSerie;
    If ser.PointsInRows Then
       ser.PointsInRows := False;
    End If;
    ser.Points := "B6:E6";
End Sub GetPointsInRows;

After executing the example on clicking the hyperlink the points names are taken from the specified range columns.

Fore.NET Example

Executing the example requires a regular report with the REGULAR_REPORT identifier, the report sheet contains a 3D scene with specific source data and data in the range B6:E6. Add links to the Report, Tab, Metabase system assemblies.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Report: IPrxReport;
    s: IPrxScene3D;
    Tab: ITabSheet;
    ser: IPrxScene3DNamedPointSerie;
Begin
    MB := Params.Metabase;
    Report := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
    Tab := (Report.Sheets.Item[0] As IPRxTable).TabSheet;
    s := Tab.Objects.Item[0].Extension As IPrxScene3D;
    ser := s.Series.Item[s.Series.Count - 1] As IPrxScene3DNamedPointSerie;
    If ser.PointsInRows Then
       ser.PointsInRows := False;
    End If;
    ser.Points := "B6:E6";

(Report As IMetabaseObject).Save();
End Sub;

After executing the example the points names are taken from the specified range columns in the regular report.