Acitve : SecManagerMode;
Active : Prognoz.Platform.Interop.Ui.SecManagerMode;
Свойство Active определяет активную вкладку при открытии менеджера безопаности.
Для выполнения примера предполагается наличие формы и расположенной на ней кнопки «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.Active := SecManagerMode.Classes; // Активируем вкладку «Классы»
Context.Data := SecParams;
Target.Execute("OpenNavigator", Context);
End Sub Button1OnClick;
После выполнения примера будет открыт менеджер безопасности на вкладке «Классы объектов».
Необходимые требования и результат выполнения примера 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.Active := SecManagerMode.smbcClasses; // Активируем вкладку «Классы»
Context.Data := SecParams;
Target.Execute("OpenNavigator", Context, Null);
End Sub;
См. также: