отображение Alarms в Genesis 7

Добрый день!

Все очень просто.

Начнем с того, что в Вашей основной экранной форме Вы не хотите постоянны видеть состояние тревог, но хотите "держать руку на пульсе". Для этого в основной экранной форме нужно все-таки иметь установленный AWXView32, но, возможно, настроенный так, что он имеет подписку на нужные события, но невидим, и не содержит ни одного столбца. Например так:

Далее идем в его VBA код:

Код создаем для обработки событиям OnNewAlarm.

В принципе тут можно просто написать что-то тапа:

Private Sub AWXVIEW32OCX1_OnNewAlarm()
    x = ThisDisplay.OpenPopupWindow("Pop-UP.gdf", False, True, False)
End Sub

Но это приведет к появлению всплывающего окна на кажное событие, и если они приходят парами, то два (или более) окна подряд Вам могут показаться лишними:)

Поэтому лучше всего проверить, не было ли окно уже открыто, и написать для этого отдельную несложную функцию. Например, так:

Private Sub AWXVIEW32OCX1_OnNewAlarm()
    OpenPopupOnce "Pop-UP.gdf"
      
End Sub

Public Function OpenPopupOnce(szFile As String) As Long
    On Error GoTo catch
    FileOpenOne = 0
    Dim szCaption As String
    Dim oPopup As GwxDisplay
    szCaption = szFile + " - GraphWorX32 by ICONICS"
    Set oPopup = ThisDisplay.GetOpenPopupWithTitle(szCaption)
    If oPopup Is Nothing Then
        If Not (ThisDisplay.OpenPopupWindow(szFile, False, True, False) Is Nothing) Then
            FileOpenOne = 1
        End If
    Else
        oPopup.ShowWindow
        FileOpenOne = 2
    End If
catch:
End Function

В результате получите примерно следующее:

Естественно, во всплывающей форме нужно поставить "нормальный", (в смылсе - видимый) Активикс, и для красоты - кнопку закрытия окна.

Все вышеописанные примеры можно найти на

ftp://ftp.prosoft.ru/pub/Software/Genesis32/to_forum/ALARM_popup/

С уважением,

Сергей Гусев,

ПРОСОФТ

Добрался до ftp на Прософт...

В данном примере хорошо бы еще использовать функцию GetNumberofAlarms, иначе окно будет появляться каждый раз при получении ЛЮБОГО сообщения.

Вот нет у меня тревог, а приходит некое системное сообщение о критериях фильтрации и.т.д, причем оно может не отображаться в AWXView32 - тут же выскакивает всплывающее окно.

OnNewAlarm() возникает даже при подтверждении тревог.

Поэтому я и говорю, что надо посчитать именно тревоги и принять решение о необходимости "всплывания" окна