IMetabaseObjectCreateInfo.Shortcut

Синтаксис

Shortcut: IMetabaseObjectDescriptor;

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

Описание

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

Комментарии

Для создания ярлыка свойство IMetabaseObjectCreateInfo.IsShortcut должно принимать значение True.

Для автоматического сохранения ярлыка в репозитории задайте свойству IMetabaseObjectCreateInfo.Permanent значение True.

Для задания расположения ярлыка используйте свойство IMetabaseObjectCreateInfo.Parent.

Пример

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

Imports Prognoz.Platform.Interop.Metabase;
…
Public Shared 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.IsShortcut := True;
    // Укажем идентификатор объекта, для которого будет создан ярлык
    CrInfo.Shortcut := MB.ItemById["OBJTEST"];
    // Сохраним описание ярлыка
    CrInfo.Permanent := True;
    // Создадим объект в репозитории
    MB.CreateObject(CrInfo);
End Sub;

После выполнения примера в корневом каталоге репозитория будет создан ярлык с идентификатором SHORTCUT_OBJTEST.

См. также:

IMetabaseObjectCreateInfo