ITabRegion.BorderStyle

BorderStyle: TabBorderStyle;

BorderStyle: Prognoz.Platform.Interop.Tab.TabBorderStyle;

Class EventsClass: ReportEvents
    Public Sub OnAfterRecalcSheet(Sheet: IPrxSheet);
    Var
        
        Tab: ITabSheet;
        Reg: ITabRegion;
    Begin
        // Получили таблицу листа отчёта
        Tab := Sheet.Table;
        // Добавили регион в коллекцию
        Reg := Tab.Regions.Add;
        // Определили диапазон таблицы, в котором располагается регион
        Reg.Range := Tab.Cells(1, 1, 3, 3);
        // Задали цвет фона региона таблицы
        Reg.BackgroundColor := New GxColor.CreateARGB(64, 255, 0, 0);
        // Задали цвет границы региона таблицы
        Reg.BorderColor := New GxColor.CreateRGB(255, 0, 0);
        // Задали тип линии границы региона таблицы
        Reg.BorderStyle := TabBorderStyle.Double;
        // Задали толщину линии границы региона таблицы
        Reg.BorderWeight := TabBorderWeight.Hairline;
        // Задали видимость региона таблицы
        Reg.Visible := True;
        // Добавили второй регион в коллекцию
        Reg := Tab.Regions.Add;
        // Определили второй диапазон таблицы, в котором располагается регион
        Reg.Range := Tab.Cells(2, 2, 4, 4);
        // Задали оформление второго региона таблицы
        Reg.BackgroundColor := New GxColor.CreateARGB(64, 0, 0, 255);
        Reg.BorderColor := New GxColor.CreateRGB(0, 0, 255);
        Reg.Visible := True;
    End Sub OnAfterRecalcSheet;
End Class EventsClass;

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
…
Class EventsClass: ReportEventArgsClass
    Public Sub OnAfterRecalcSheet(Sheet: IPrxSheet);
    Var
        Tab: ITabSheet;
        Reg: ITabRegion;
        Color: GxColorClass_2 = New GxColorClass_2();
    Begin
        // Получили таблицу листа отчёта
        Tab := Sheet.Table;
        // Добавили регион в коллекцию
        Reg := Tab.Regions.Add();
        // Определили диапазон таблицы, в котором располагается регион
        Reg.Range := Tab.Cells[1, 1, 3, 3];
        // Задали цвет фона региона таблицы
        Color.CreateARGB(64, 255, 0, 0);
        Reg.BackgroundColor := Color;
        // Задали цвет границы региона таблицы
        Color.CreateRGB(255, 0, 0);
        Reg.BorderColor := Color;
        // Задали тип линии границы региона таблицы
        Reg.BorderStyle := TabBorderStyle.tbsDouble;
        // Задали толщину линии границы региона таблицы
        Reg.BorderWeight := TabBorderWeight.tbwHairline;
        // Задали видимость региона таблицы
        Reg.Visible := True;
        // Добавили второй регион в коллекцию
        Reg := Tab.Regions.Add();
        // Определили второй диапазон таблицы, в котором располагается регион
        Reg.Range := Tab.Cells[2, 2, 4, 4];
        // Задали оформление второго региона таблицы
        Color.CreateARGB(64, 0, 0, 255);
        Reg.BackgroundColor := Color;
        Color.CreateRGB(0, 0, 255);
        Reg.BorderColor := Color;
        Reg.Visible := True;
    End Sub OnAfterRecalcSheet;
End Class EventsClass;