IPrxDataIslandNumbering.IsOn

Syntax

IsOn: Boolean;

Description

The IsOn property determines whether numbering is enabled for rows and columns.

Comments

Numbering settings can be used to set number format and initial value; numbering starts with one by default.

Fore Example

Executing the example requires a regular report with the REGULAR_REPORT identifier, the report sheet contains a data area. Add links to the Metabase, Report, Drawing system assemblies.

Sub UserProc;
Var
    Mb: IMetabase;
    Numb: IPrxDataIslandNumbering;
    DataIsl: IPrxDataIsland;
    Rep: IPrxReport;
    Header: IPrxDataIslandHeader;
    Name: IPrxDataIslandNaming;
Begin
    Mb := MetabaseClass.Active;
    // Get regular report and address data area
    Rep := Mb.ItemById("REGULAR_REPORT").Edit As IPrxReport;
    DataIsl := Rep.DataIslands.Item(0).Edit;
    // Determine row heading parameters
    Header := DataIsl.Properties.LeftHeader;
    // Determine numbering settings
    Numb := Header.Numbering;
    Numb.IsOn := True;
    Numb.IsCrossDimension := True;
    Name := Numb.Naming;
    Name.Style.BackgroundColor := GxColor.FromName("Yellow");
    // Save changes made in data area and calculate report
    DataIsl.Save;
    Rep.Recalc;
    // Save changes in object structure
    (Rep As IMetabaseObject).Save;
End Sub UserProc;

Row heading numbering appears and cells with numbering are filled with yellow color in the regular report. In general settings general numbering for all dimensions is enabled.

Fore.NET Example

The requirements and result of the Fore.NET example execution match with those in the Fore example

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

Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    Numb: IPrxDataIslandNumbering;
    DataIsl: IPrxDataIsland;
    Rep: IPrxReport;
    Header: IPrxDataIslandHeader;
    Name: IPrxDataIslandNaming;
    GxColorCls: GxColorClass = New GxColorClassClass();
Begin
    Mb := Params.Metabase;
    // Get regular report and address data area
    Rep := Mb.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
    DataIsl := Rep.DataIslands.Item[0].Edit();
    // Determine row heading parameters
    Header := DataIsl.Properties.LeftHeader;
    // Determine numbering settings
    Numb := Header.Numbering;
    Numb.IsOn := True;
    Numb.IsCrossDimension := True;
    Name := Numb.Naming;
    Name.Style.BackgroundColor := GxColorCls.FromName("Yellow");
    // Save changes made in data area and calculate report
    DataIsl.Save();
    Rep.Recalc();
    // Save changes in object structure
    (Rep As IMetabaseObject).Save();
End Sub;