Свойство Root определяет параметры корневой папки навигатора.
Для выполнения примера предполагается наличие формы и расположенной на ней кнопки «Button1». В репозитории предполагается наличие папки с идентификатором F_ROOT.
Подключите системные сборки: 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("F_ROOT"); //Указываем корневую папку
SecParams.Active := SecManagerMode.Navigator; // Активируем закладку «Навигатор»
Context.Data := SecParams;
Target.Execute("OpenNavigator", Context);
End Sub Button1OnClick
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["F_ROOT"]; //Указываем корневую папку
SecParams.Active := SecManagerMode.smbcNavigator; // Активируем закладку «Навигатор»
Context.Data := SecParams;
Target.Execute("OpenNavigator", Context, Null);
End Sub;
После выполнения примера будет открыт менеджер безопасности на вкладке «Навигатор». В качестве корневой папки будет задана указанная папка.
См. также: