ShowCreateShortcut

Вызов стандартного диалогового окна создания ярлыка объекта репозитория.

Параметры использования

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

Тип значения	Описание
IMetabaseObjectDescriptor	Папка, в которой будет создан ярлык.
Array	Массив типа Variant, содержащий следующие элементы: IMetabaseObjectDescriptor - Папка, в которой будет создан ярлык. IMetabaseObjectDescriptor - Корневой элемент, выше которого нельзя будет подняться в дереве. Папка, указываемая в первом элементе массива, должна располагаться под корневым элементом.

Особенности применения

Отсутствуют

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием "Button1" и объекта репозитория с идентификатором "Obj_1".

    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        v: variant;
        mb: IMetabase;
        Folder: IMetabaseObjectDescriptor;
        Root: IMetabaseObjectDescriptor;
        Target: IUiCommandTarget;
        Context: IUiCommandExecutionContext;
        Data: Array Of Variant;
    Begin
        MB := MetabaseClass.Active;
        Folder := MB.ItemById("Obj_1");
        Root := MB.ItemById("Obj_1");
        Target := WinApplication.Instance.GetPluginTarget("Fld");
        Context := Target.CreateExecutionContext;
        Data := New Variant[2];
        Data[0] := Folder;
        Data[1] := Root;
        Context.Data := Data;
        v := Target.Execute("ShowCreateShortcut", Context);
        If Not v.IsNull Then
            text := (v As IMetabaseObjectDescriptor).Name;
        End If;
    End Sub Button1OnClick;

При нажатии на кнопку будет выведено окно создания ярлыка объекта репозитория "Obj_1".

См. также:

IUiCommandTarget.Execute