IPrxScene3DPointSerie.Radius

Syntax

Radius: String;

Description

The Radius property determines a range of radius values for spheres and points. The values should belong to the range [0;0.5].

Fore Example

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

Sub GetRadius;
Var
    Report: IPrxReport;
    Tab: ITabSheet;
    s: IPrxScene3D;
    ser: IPrxScene3DPointSerie;
Begin
    Report := PrxReport.ActiveReport;
    Tab := (Report.ActiveSheet As IPrxTable).TabSheet;
    s := Tab.Objects.Item(0).Extension As IPrxScene3D;
    ser := s.Series.Item(0) As IPrxScene3DPointSerie;
    ser.Radius := "F1:F3";
    ser.RadiusRange.Style.BackgroundColor := New GxColor.CreateRGB(0, 255, 0);
End Sub GetRadius;

After executing the example clicking the hyperlink sets radius values for points, and the cells containing this data are filled with color.

Fore.NET Example

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

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

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Report: IPrxReport;
    s: IPrxScene3D;
    Tab: ITabSheet;
    ser: IPrxScene3DPointSerie;
    Color: GxColorClass = New GxColorClassClass();
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[0] As IPrxScene3DPointSerie;
    ser.Radius := "F1:F3";
    ser.RadiusRange.Style.BackgroundColor := Color.FromKnownColor(GxKnownColor.clLightGreen);
    (Report As IMetabaseObject).Save();
End Sub;

After executing the example radius values are set in the regular report, and the cells containing this data are filled with color.