IMetabaseObjectCreateInfo.Shortcut

Синтаксис

Shortcut: IMetabaseObjectDescriptor;

Shortcut: Prognoz.Platform.Interop.Metabase.IMetabaseObjectDescriptor;

Описание

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

Комментарии

Необходимым условием для создания ярлыка является установка свойству IMetabaseObjectCreateInfo.IsShortcut значения True.

Пример

Для выполнения примера предполагается наличие в репозитории объекта с идентификатором «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.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.Shortcut := MB.ItemById["OBJTEST"];
    CrInfo.IsShortcut := True;
    MB.CreateObject(CrInfo);
End Sub;

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

См. также:

IMetabaseObjectCreateInfo