IPrxTableIslandLayout.TableStyle

Fore Syntax

Fore.NET Syntax

TableStyle: Prognoz.Platform.Interop.Tab.TabTableStyle;

Description

The TableStyle property determines style of relational data area table.

Fore Example

To execute the example, add links to the Report, Metabase and Tab system assemblies. The example requires a regular report with RR identifier and relational area on the report sheet.

Sub Main;
Var
    MB: IMetabase;
    MObj : IMetabaseObject;
    Report : IPrxReport;
    TabIs : IPrxTableIslands;
    TI : IPrxTableIsland;
    Layout : IPrxTableIslandLayout;
    Style : ITabTableStyle;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("RR").Edit;
    Report := MObj As IPrxReport;
    TabIs := Report.TableIslands;
    TI := TabIs.Item(0);
    TI := TI.Edit;
    Layout := TI.Layout;
    Style := Layout.TableStyle;
    Style.AssignPredefined(TabTablePredefinedStyle.DarkRed);
    TI.Save;
    MObj.Save;
End Sub Main;

After executing the example the specified formatting is applied to the layout.

Fore Example

To execute the example, add links to the Report, Metabase and Tab system assemblies. The example requires a regular report with RR identifier and relational area on the report sheet.

Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
…
Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MObj : IMetabaseObject;
    Report : IPrxReport;
    TabIs : IPrxTableIslands;
    TI : IPrxTableIsland;
    Layout : IPrxTableIslandLayout;
    Style : ITabTableStyle;
Begin
    MB := Params.Metabase;
    MObj := MB.ItemById["RR"].Edit();
    Report := MObj As IPrxReport;
    TabIs := Report.TableIslands;
    TI := TabIs.Item[0];
    TI := TI.Edit();
    Layout := TI.Layout;
    Style := Layout.TableStyle;
    Style.AssignPredefined(TabTablePredefinedStyle.ttpsDarkRed);
    TI.Save();
    MObj.Save();
End Sub;

After executing the example the specified formatting is applied to the layout.