Настройка системы всплывающих сообщений в BSI
Ниже описана скриптовая функция и параметры этой функции для сообщения, всплывающего в самом приложении.
gRoot.PushAllert sTitle sMessage iIcon sOnClickCallbackFunc aButtons aParams
где
{1}sTitle: Str – Заголовок
{2}sMessage: Str - Текстсообщения
{3}iIcon: Int - Индекс иконки сообщения из глобального списка (опциональный - если не указан, то 73 (Information))
{4}sOnClickCallbackFunc: Str - function(iButton, aParams) - имя скриптовой колбэк ф-ции обработки кликов по кнопкам (опциональный - если не указан то просто сообщение без кнопок)
{4a}iButton: Int - Индекс иконки кнопки из глобального списка - является индификатором кнопки (-1: закрытие сообщение; 0: клик по сообщению)
{4b}aParams: array(...) - Колбэк параметры переданные в ф-цию gRoot.PushAllert
+ {4}iTimeOut: Int - время жизни сообщения (в миллисекундах, по умолчанию 15 сек)
*gRoot.PushAlert "BSI", sMessage, abInformation, 15000, "MessageBoxIdx", array(array(abOK, "OK"), array(abCancel, "Cancel")), Array("Text Callback Message!")
{5}aButtons: array(array(iButton, sTips)) - массивкнопоксообщения
{5a}iButton: Int - Индекс иконки кнопки из глобального списка - является индификатором кнопки передаваемый в колбэк ф-цию
{5b}sTips: Str - описание кнопки
{6} aParams: array(...) - Колбэк параметры, передаваемые в колбэк ф-цию
Скриптовая функция и параметры этой функции для сообщения, всплывающего в системном трее.
gRoot.TrayMessage sTitle sMessage iMsgType iTimeOut sOnClickCallbackFunc aParams
где
{1}sTitle: Str - Заголовок
{2}sMessage: Str - Текстсообщения
{3}iMsgType: Int - типсообщения (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom) (поумолчанию mtInformation)
{4}iTimeOut: Int - время жизни сообщения (в миллисекундах, по умолчанию 10 сек)
{5}sOnClickCallbackFunc:Str - function(aParams) - имя скриптовой колбэк ф-ции обработки клика (опциональный - если не указан, то просто сообщение без колбека)
{5a}aParams: array(...) - Колбэк параметры, переданные в ф-цию gRoot.TrayMessage
*{5}sOnClickCallbackFunc:Str - function(...) - имя скриптовой колбэк ф-ции обработки клика (опциональный - если не указан, то просто сообщение без колбека)
{6}aParams: array(...) - Параметры, передаваемые в колбэк ф-цию ) - имя скриптовой колбэк ф-ции обработки клика (опциональный - если не указан, то просто сообщение без колбека)
Пример скрипта:
' Alert Button Icon
abOK = 174
abCancel = 129
abInformation = 73
abHelp = 83
abAlert = 90
abWarning = 91
abError = 169
abMessage = 137
Пример колбэк функции для TrayMessage
function MessageBox(sMessage)
gRoot.MessageBox sMessage
end function
Пример колбэк ф-ции для AlertMessage
function MessageBoxIdx(iId, aParams)
Select Case iId
Case -1 gRoot.MessageBox aParams(0) + " OnClose Alert)"
Case 0 gRoot.MessageBox aParams(0) + " OnClik Alert)"
Case abOK gRoot.MessageBox aParams(0) + " OnClik Ok Button)"
Case abCansel gRoot.MessageBox aParams(0) + " OnClik Cancel Button)"
End Select
end function
Появление сообщения, в окне которого будет переданное сообщение (sMessage). При клике на это сообщение вызывается ф-ция MessageBox с параметром Text Callback Message!
function TrayMessage(sMessage)
gRoot.TrayMessage "BSI", sMessage, mtInformation, 10000, "MessageBox", Array("Text Callback Message!")
end function
Появление AlertMessage с сообщением sMessage икнопками OK, Cancel.
При нажатии кнопки OK вызывается ф-ция MessageBoxIdx (abOK, ("Text Callback Message!"))
При нажатии кнопки Cancel вызывается ф-ция MessageBoxIdx (abCancel, ("Text Callback Message!"))
При клике по сообщению вызывается ф-целя MessageBoxIdx (0, ("Text Callback Message!"))
Если никаких действий не происходит в течение 10 сек, то вызывается ф-целя MessageBoxIdx (-1, ("Text Callback Message!"))
function AlertMessage(sMessage)
gRoot.PushAlert "BSI", sMessage, abInformation, "MessageBoxIdx", array(array(abOK, "OK"), array(abCancel, "Cancel")), Array("Text Callback Message!")
end function
Пример использования этого скрипта.
Вызов из командной строки BSI. Но описанный выше скрипт должен быть загружен!
RunScript AlertMessage(Test Alert Message)
RunScript TrayMessage(Test Tray Message)