1
Ошибки / Re: Мигание цветом по дополнительной переменной
« : 28 Ноября 2018, 11:25:01 »
Спасибо, большое. Не сообразил сразу, исправил - работает 
Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Страницы: [1]
2
Ошибки / Re: Мигание цветом по дополнительной переменной
« : 28 Ноября 2018, 10:55:51 »
Код скрипта стандартный, как в примерах:
В проекте действия по доп.переменным убраны. Обошелся вставкой мигающих прямоугольников возле поля. Отображаются при наличии аварии (корректно).
Код: (delphi)
begin
if Sender is TM_Object then // проверяем, что Sender это объект
with Sender as TM_Object do // приводим Sender к типу "TM_Object"
if AsBool = true then // если значение переменной объекта равно 1, то
FlashColor := clRed // включить мигание объекта красным цветом
else // иначе
FlashColor := clNone; // отключить мигание объекта
end.
В проекте действия по доп.переменным убраны. Обошелся вставкой мигающих прямоугольников возле поля. Отображаются при наличии аварии (корректно).
3
Ошибки / Мигание цветом по дополнительной переменной
« : 28 Ноября 2018, 09:51:58 »
В проекте создано поле, отображающее показания датчика (Real). В качестве дополнительной переменной этого поля назначен тэг, показывающий аварию датчика (Bool). На изменение дополнительной переменной повешен скрипт, включающий мигание цветом поля (при аварии датчика). Так вот, при изменении аварийного тэга с 0 на 1, мигание включается, а при возврате на 0 оно не отключается до перезапуска клиента. Причем, если точно такой же скрипт вешать на основную переменную для любого другого объекта, то все работает корректно.
Страницы: [1]