SeparateLinkText: TriState;
Свойство SeparateLinkText определяет использование отдельного текста для гиперссылки. Используется вместе со свойством ITabHyperlink.Text.
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.Action := "=Лист2";
Hyperlink.Enable := TriState.OnOption;
Hyperlink.SeparateLinkText := TriState.OnOption;
Hyperlink.Text := "Goto_List2";
MObj.Save;
End Sub UserProc;
После выполнения примера в ячейке "А0" регламентного отчета будет создана гиперссылка с текстом "Goto_List2", при нажатии на которую будет осуществляться переход на «Лист2».
См. также: