IUiSecManagerParams.Root

Синтаксис Fore

Синтаксис Fore.NET

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

Описание

Свойство Root определяет параметры корневой папки навигатора.

Пример Fore

Для выполнения примера предполагается наличие формы и расположенной на ней кнопки «Button1». Подключите сборки Metabase, Ui.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Target: IUiCommandTarget;
    Context: IUiCommandExecutionContext;
    SecParams: IUiSecManagerParams;
Begin
    Target := WinApplication.Instance.GetPluginTarget("Adm");
    Context := Target.CreateExecutionContext;
    SecParams := New UiSecManagerParams.Create;
    SecParams.Metabase := MetabaseClass.Active; // Задаем метабазу
    SecParams.Root := SecParams.Metabase.ItemById("OBJ53"); //Указываем корневую папку
    SecParams.Active := SecManagerMode.Navigator; // Активируем закладку «Навигатор»
    Context.Data := SecParams;
    Target.Execute("OpenNavigator", Context);

End Sub Button1OnClick

После выполнения примера будет открыт менеджер безопасности на вкладке «Навигатор». В качестве корневой папки задана папка с идентификатором «OBJ53».

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Imports Prognoz.Platform.Interop.Ui;
Imports Prognoz.Platform.Interop.Metabase;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
    Var
    WinApp: WinApplication = New  WinApplicationClass_2();
    Target: IUiCommandTarget;
    Context: IUiCommandExecutionContext;
    SecParams: IUiSecManagerParams;
Begin
    Target := WinApp.GetPluginTarget("Adm");
    Context := Target.CreateExecutionContext();
    SecParams := new  UiSecManagerParams.Create();
    SecParams.Metabase := Self.Metabase; //Задаем метабазу
    SecParams.Root := SecParams.Metabase.ItemById["OBJ53"]; //Указываем корневую папку
    SecParams.Active := SecManagerMode.smbcNavigator; // Активируем закладку «Навигатор»
    Context.Data := SecParams;
    Target.Execute("OpenNavigator",  Context,  Null);

End Sub;

См. также:

IUiSecManagerParams | OpenNavigator: Плагин "Adm"