ITabTableStyle.PredefinedStyle

Syntax

PredefinedStyle: TabTablePredefinedStyle;

Description

The PredefinedStyle property returns the value of alternating table style used on the report sheet.

Comments

Use this property to determine whether the alternating style is preinstalled or created by the user.

If property returns the Undefined value, the alternating style is created by the user.

Example

Executing the example requires to create a regular report and a unit, bind the unit to the report. Add links to the Report, Tab and Ui system assemblies in the unit. Create on the report sheet the hyperlink to this procedure.

Sub UserProc;
Var tstyle : ITabTableStyle;
    tab : ITabSheet;
    i : Integer;
    s : String;

Function getst(j : String): String;
Var t : String;
Begin
    Select Case j
        Case "-1": t := "Undefined";
        Case "0": t := "Blue";
        Case "1": t := "DarkBlue";
        Case "2": t := "Red";
        Case "3": t := "DarkRed";
        Case "4": t := "Green";
        Case "5": t := "DarkGreen";
        Case "6": t := "Purple";
        Case "7": t := "DarkPurple";
        Case "8": t := "Orange";
        Case "9": t := "DarkOrange";
    End Select;
    Return t;
End Function getst;

Begin
    tab := (PrxReport.ActiveReport.ActiveSheet As IPrxTable).TabSheet;
    For i := 0 To tab.TableStyles.Count - 1 Do
        tstyle := tab.TableStyles.Item(i);
        s := s + tstyle.Name + ": " + getst(tstyle.PredefinedStyle.ToString) + #13+#10;
    End For;
    WinApplication.InformationBox(s);
End Sub UserProc;

The information message with preinstalled table styles used on the report sheet are displayed by clicking the button.