ITabHyperlink.Color

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Rep: IPrxReport;
    Tab: ITabSheet;
    Range: ITabRange;
    Hyperlink: ITabHyperlink;
Begin
    MB:=MetabaseClass.Active;
    MObj:=MB.ItemById("Reg_rep").Edit;
    Rep:=MObj As IPrxReport;
    Tab:=Rep.ActiveSheet.Table;
    Range:=Tab.Cell(0,0);
    Hyperlink:=Range.Style.Hyperlink;
    Hyperlink.Color:=GxColor.FromName("Red");
    MObj.Save;
End Sub UserProc;