Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Сбрасывать значение переменных других емкостей и включать выбранную.А можно пример как по кнопке с фиксацией button1 сбросить button2 и button3? Универсальным скриптом тут не получится как я понимаю.
Слой можно менять через свойство "Слой".
В работу с DA-серверами изменения не вносились с 2018г.Спасибо, решил вопрос, при переустановке слетели настройки opc da в плане пароля учетной записи. О требовании пароля в инструкции прям в шапке написано. Спасибо за инструкцию, уже не раз выручала)
procedure ChangeField(AFontColor, AColor, aFlashColor: Cardinal);
begin
(Sender as TM_Field).FontColor := AFontColor; // цвет текста
(Sender as TM_Field).Color := AColor; // цвет фона
(Sender as TM_Field).FlashColor := aFlashColor; // цвет мигания
end;
begin
if not (Sender is TM_Field) then Exit; // если скрипт вызван не объектом Поле, то прерываем выполнение
case (Sender as TM_Field).AsInt of // если значение переменной равно:
0 : ChangeField(clGreen, ($BAFFFF), clNone); // активен бит 0 Норма
1 : ChangeField(clBlack, clDarkSalmon, clNone); // активен бит 1 Выход за предупредительную. Квитировано
2 : ChangeField(clBlack, clForestGreen, clDarkSalmon); // активен бит 2 Выход за предупредительную снизу
3 : ChangeField(clBlack, clForestGreen, clDarkSalmon); // активен бит 3 Выход за предупредительную сверху
4 : ChangeField(clGreen, clFireBrick, clGreen); // Выход за аварийную. Квитировано
5 : ChangeField(clBlack, clYellow, clFireBrick); // Выход за аварийную снизу
6 : ChangeField(clBlack, clYellow, clFireBrick); // Выход за аварийную сверху
else
ChangeField(clBlack, clGray, clNone);
end;
end.