ITabTableStyle.PredefinedStyle

Синтаксис Fore

PredefinedStyle: TabTablePredefinedStyle;

Синтаксис Fore.NET

PredefinedStyle: Prognoz.Platform.Interop.Tab.TabTablePredefinedStyle;

Описание

Свойство PredefinedStyle возвращает значение чередующегося стиля таблицы , используемого на листе отчета.

Комментарии

Используйте свойство для определения, является ли чередующийся стиль предустановленным или созданным пользователем.

Если свойство возвращает значение Undefined, то чередующийся стиль создан пользователем.

Пример Fore

Для выполнения примера создайте регламентный отчет и модуль, подключите модуль к отчету. В модуле добавьте ссылки на системные сборки Report, Tab и Ui. На листе отчета создайте гиперссылку на данную процедуру.

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;

При нажатии на гиперссылку будет выдаваться информационное сообщение со списком предустановленных стилей таблицы, используемых на листе отчета.

Пример Fore.NET

Для выполнения примера создайте регламентный отчет, создайте обработчик события OnBeforeOpenReport, в нем добавьте ссылки на системные сборки Report, tab, Forms.Net и Ui. Также для выполнения примера понадобится функция getst, описанная в примере Fore, добавьте ее в обработчик.

    Imports Prognoz.Platform.Interop.Report;
    Imports Prognoz.Platform.Interop.tab;
    Imports Prognoz.Platform.Forms.Net;
    Imports Prognoz.Platform.Interop.Ui;

    Public Override Sub OnBeforeOpenReport(Report : IPrxReport; Var Cancel : Boolean);
    Var tstyle : ITabTableStyle;
        tab : ITabSheet;
        i : Integer;
        s : String;
        WinAppCls:WinApplicationClassClass=New WinApplicationClassClass();
    Begin
    tab := Report.ActiveSheet.Table;
        For i := 0 To tab.TableStyles.Count - 1 Do
            tstyle := tab.TableStyles.Item[i];
            s := s + tstyle.Name + ": " + getst(tstyle.PredefinedStyle.ToString()) + char.ConvertFromUtf32(13) + char.ConvertFromUtf32(10);
        End For;
        WinAppCls.InformationBox(s,Null);
    End Sub OnBeforeOpenReport;

После выполнения примера перед открытием регламентного отчета будет выдаваться информационное сообщение со списком чередующихся стилей таблицы, используемых на листе отчета.

См. также:

ITabTableStyle