ITabView.FixedBordersStyle

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    SheetT: IPrxTable;
    Tab: ITabSheet;
    View: ITabView;
    pStyle: ITabCellStyle;
Begin
    MB := MetabaseClass.Active;
    Report := MB.ItemById("REP_TABSHEET").Edit As IPrxReport;
    SheetT := Report.Sheets.Item(0) As IPrxTable;
    Tab := SheetT.TabSheet;
    View := Tab.View;
    View.FixedColumnsCount := 1;
    pStyle := View.FixedBordersStyle;
    pStyle.BorderStyle(TabBorder.EdgeTop) := TabBorderStyle.LineStyleNone;
    pStyle.BorderStyle(TabBorder.EdgeLeft) := TabBorderStyle.Dash;
    pStyle.BorderColor(TabBorder.EdgeLeft) := New GxColor.CreateRGB(255, 0, 0);
    (Report As IMetabaseObject).Save;
End Sub UserProc;