Создание и настройка обработчика событий

Для задания обработки определенных событий рабочего пространства используйте обработчик событий.

Обработчик событий - это модуль, созданный на языке Fore, или сборка, созданная на языке Fore.NET. Обработчик событий позволяет задавать действия при наступлении определенных событий, расширяя функциональные возможности рабочего пространства.

Автоматическое создание обработчика событий

Для создания обработчика событий выполните команду:

Обработчик событий так же может быть создан в окне «Обработка событий»:

После выполнения данных действий будет открыт стандартный диалог выбора объекта в навигаторе объектов.

Созданный модуль или сборка содержат в себе готовую структуру, в которой представлены все события для рабочего пространства:

Class EventsClass: WorkspaceEvents
    Public Sub OnBeforeOpenWorkspace(WorkspaceArgs: IUiWorkspaceCancelEventArgs);
    Begin
    End Sub OnBeforeOpenWorkspace;

    Public Sub OnBeforePrintWorkspace(WorkspaceArgs: IUiWorkspaceCancelEventArgs);
    Begin
    End Sub OnBeforePrintWorkspace;

    Public Sub OnAfterPrintWorkspace(WorkspaceArgs: IUiWorkspaceEventArgs);
    Begin
    End Sub OnAfterPrintWorkspace;

    Public Sub OnBeforeExportWorkspace(WorkspaceArgs: IUiWorkspaceExportCancelEventArgs);
    Begin
    End Sub OnBeforeExportWorkspace;

    Public Sub OnAfterExportWorkspace(WorkspaceArgs: IUiWorkspaceExportEventArgs);
    Begin
    End Sub OnAfterExportWorkspace;

    Public Sub OnBeforeSaveWorkspace(WorkspaceArgs: IUiWorkspaceCancelEventArgs);
    Begin
    End Sub OnBeforeSaveWorkspace;

    Public Sub OnBeforeCreateShape(WorkspaceArgs: IUiWorkspaceShapeCancelEventArgs);
    Begin
    End Sub OnBeforeCreateShape;

    Public Sub OnAfterCreateShape(WorkspaceArgs: IUiWorkspaceShapeEventArgs);
    Begin
    End Sub OnAfterCreateShape;

    Public Sub OnBeforeDeleteShape(WorkspaceArgs: IUiWorkspaceShapeCancelEventArgs);
    Begin
    End Sub OnBeforeDeleteShape;

    Public Sub OnAfterDeleteShape(WorkspaceArgs: IUiWorkspaceShapeEventArgs);
    Begin
    End Sub OnAfterDeleteShape;

End Class EventsClass;

Imports Prognoz.Platform.Interop.Workspace;

Public Class EventsClass: IWxUserEvents

Public Sub OnBeforeOpenWorkspace(Args : UiWorkspaceCancelEventArgs);
Begin
End Sub OnBeforeOpenWorkspace;

Public Sub OnBeforePrintWorkspace(Args : UiWorkspaceCancelEventArgs);
Begin
End Sub OnBeforePrintWorkspace;

Public Sub OnAfterPrintWorkspace(Args : UiWorkspaceEventArgs);
Begin
End Sub OnAfterPrintWorkspace;

Public Sub OnBeforeExportWorkspace(Args : UiWorkspaceExportCancelEventArgs);
Begin
End Sub OnBeforeExportWorkspace;

Public Sub OnAfterExportWorkspace(Args : UiWorkspaceExportEventArgs);
Begin
End Sub OnAfterExportWorkspace;

Public Sub OnBeforeSaveWorkspace(Args : UiWorkspaceCancelEventArgs);
Begin
End Sub OnBeforeSaveWorkspace;

Public Sub OnBeforeCreateShape(Args : UiWorkspaceShapeCancelEventArgs);
Begin
End Sub OnBeforeCreateShape;

Public Sub OnAfterCreateShape(Args : UiWorkspaceShapeEventArgs);
Begin
End Sub OnAfterCreateShape;

Public Sub OnBeforeDeleteShape(Args : UiWorkspaceShapeCancelEventArgs);
Begin
End Sub OnBeforeDeleteShape;

Public Sub OnAfterDeleteShape(Args : UiWorkspaceShapeEventArgs);
Begin
End Sub OnAfterDeleteShape;

End Class EventsClass;

Подключение обработчика событий

Для подключения обработчика событий выполните команду «Обработчик событий > Настроить» на вкладке «Главная» ленты инструментов:

В открывшемся окне выберите модуль и класс, в котором находится обработчик событий:

Для настройки и редактирования событий в среде разработки нажмите кнопку «Открыть в среде разработки».

Пример модуля

Для выполнения примера предполагается наличие в модуле класса Eventclass. Подключите системные сборки: Ui, Workspace.

Class EventsClass: WorkspaceEvents
Public Sub OnBeforeOpenWorkspace(Args: IUiWorkspaceCancelEventArgs);
Begin
Winapplication.InformationBox("Сообщение перед открытием рабочего пространства");
Args.Cancel := False;
End Sub OnBeforeOpenWorkspace;
End Class EventsClass;

В результате работы обработчика событий перед открытием рабочего пространства будет выходить сообщение "Сообщение перед открытием рабочего пространства".