IMetabaseObjectCreateInfo.IsShortcut

Синтаксис

IsShortcut: Boolean;

IsShortcut: boolean;

Описание

Свойство IsShortcut определяет признак создания ярлыка, для существующего объекта репозитория.

Комментарии

Если свойству установлено значение True, то в свойстве IMetabaseObjectCreateInfo.Shortcut необходимо определить объект репозитория, для которого будет создан ярлык.

Пример

Для выполнения примера предполагается наличие в репозитории объекта с идентификатором «OBJTEST».

Добавьте ссылку на системную сборку Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
Begin
    MB := MetabaseClass.Active;
    CrInfo := MB.CreateCreateInfo;
    CrInfo.Id := "Shortcut_OBJTEST";
    CrInfo.Name := "Ярлык для OBJTEST";
    CrInfo.Parent := MB.Root;
    CrInfo.Permanent := True;
    CrInfo.Shortcut := MB.ItemById("OBJTEST");
    CrInfo.IsShortcut := True;
    MB.CreateObject(CrInfo);
End Sub UserProc;

Public Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
Begin
    MB := Params.Metabase;
    CrInfo := MB.CreateCreateInfo();
    CrInfo.Id := "Shortcut_OBJTEST";
    CrInfo.Name := "Ярлык для OBJTEST";
    CrInfo.Parent := MB.Root;
    CrInfo.Permanent := True;
    CrInfo.Shortcut := MB.ItemById["OBJTEST"];
    CrInfo.IsShortcut := True;
    MB.CreateObject(CrInfo);
End Sub;

После выполнения примера в корневом каталоге репозитория будет создан ярлык для объекта «OBJTEST».

См. также:

IMetabaseObjectCreateInfo | Работа с ярлыком