IsShortcut: Boolean;
Свойство IsShortcut определяет признак создания ярлыка для существующего объекта репозитория.
Допустимые значения:
True. Создаваемый объект репозитория является ярлыком. В свойстве IMetabaseObjectCreateInfo.Shortcut необходимо определить объект репозитория, для которого будет создан ярлык;
False. Создаваемый объект репозитория не является ярлыком.
Для выполнения примера предполагается наличие в репозитории объекта с идентификатором «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;
После выполнения примера в корневом каталоге репозитория будет создан ярлык для объекта «OBJTEST».
См. также: