IPrxDataIslandProperties.TableStyle

Fore Syntax

Fore.NET Syntax

TableStyle: Prognoz.Platform.Intertop.Tab.ITabTableStyle;

Description

The TableStyle property determines the formatting style of the data area table.

Fore Example

Executing the example requires that the repository contains a regular report with the REPORT identifier. Add links to the Report, Metabase and Tab system assemblies. At least one data source is added to this regular report. A data area is built on the basis of this source.

Sub UserProc;
Var
    MB: IMetabase;
    Rep: IPrxReport;
    DataIs: IPrxDataIsland;
    DataIsProp: IPrxDataIslandProperties;
    TabStyle: ITabTableStyle;
Begin
    MB := MetabaseClass.Active;
    Rep := MB.ItemById("REPORT").Edit As IPrxReport;
    DataIs := Rep.DataIslands.Item(0).Edit;
        DataIsProp := DataIs.Properties;
        TabStyle := DataIsProp.TableStyle;
        TabStyle.AssignPredefined(TabTablePredefinedStyle.Orange);
    DataIs.Save;
   (Rep As IMetabaseObject).Save;
End Sub UserProc;

After executing the example the orange table formatting style is set for the first data area of the regular report.

Fore.NET Example

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

Sub UserProc(Params: StartParams);
Var
    MB: IMetabase;
    Rep: IPrxReport;
    DataIs: IPrxDataIsland;
    DataIsProp: IPrxDataIslandProperties;
    TabStyle: ITabTableStyle;
Begin
    MB := Params.Metabase;
    Rep := MB.ItemById["Report"].Edit() As IPrxReport;
    DataIs := Rep.DataIslands.Item[0].Edit();
        DataIsProp := DataIs.Properties;
        TabStyle := DataIsProp.TableStyle;
        TabStyle.AssignPredefined(TabTablePredefinedStyle.ttpsOrange);
    DataIs.Save();
    (Rep As IMetabaseObject).Save();
End Sub UserProc;