ITabHyperlink.Target

Синтаксис

Target: TabHyperlinkTarget;

Target: Prognoz.Platform.Interop.Tab.TabHyperlinkTarget;

Описание

Свойство Target определяет способ загрузки страницы при переходе по ссылке.

Комментарии

Значение данного свойства не учитывается при настройке гиперссылок в таблицах форм ввода.

Пример

Для выполнения примера предполагается наличие в репозитории регламентного отчёта с идентификатором REGULAR_REPORT.

Добавьте ссылки на системные сборки: Metabase, Report, Tab.

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Rep: IPrxReport;
    Tab: ITabSheet;
    Range: ITabRange;
    Hyperlink: ITabHyperlink;
Begin
    MB:= MetabaseClass.Active;
    MObj:= MB.ItemById("REGULAR_REPORT").Edit;
    Rep:= MObj As IPrxReport;
    Tab:= (Rep.ActiveSheet As IprxTable).TabSheet;
    Range:= Tab.Cell(0, 0);
    Hyperlink:= Range.Style.Hyperlink;
    Hyperlink.Action:= "http://www.example.com";
    Hyperlink.ActionType:= TabHyperlinkActionType.OpenURL; 
    Hyperlink.Enable:= TriState.OnOption;
    Hyperlink.Target:= TabHyperlinkTarget.Blank;
    Hyperlink.SeparateLinkText:= TriState.OnOption;
    Hyperlink.Text:= "Сайт компании";
    MObj.Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;

Public Shared Sub Main(Params : StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Rep: IPrxReport;
    Tab: ITabSheet;
    Range: ITabRange;
    Hyperlink: ITabHyperlink;
Begin
    MB:= Params.Metabase;
    MObj:= MB.ItemById["REGULAR_REPORT"].Edit();
    Rep:= MObj As IPrxReport;
    Tab:= (Rep.ActiveSheet As IprxTable).TabSheet;
    Range:= Tab.Cell[0, 0];
    Hyperlink:= Range.Style.Hyperlink;
    Hyperlink.Action:= "http://www.example.com";
    Hyperlink.ActionType:= TabHyperlinkActionType.thatOpenURL; 
    Hyperlink.Enable:= TriState.tsOnOption;
    Hyperlink.Target:= TabHyperlinkTarget.thtBlank;
    Hyperlink.SeparateLinkText:= TriState.tsOnOption;
    Hyperlink.Text:= "Сайт компании";
    MObj.Save();
End Sub;

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

См. также:

ITabHyperlink