Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?

Официальный форум Simple-Scada.

Автор Тема: Как правильно моргать объектом?  (Прочитано 3238 раз)

Timur007

  • Новичок
  • *
  • Сообщений: 15
    • Просмотр профиля
Есть переменная типа int, каждый бит переменной используется как статус объекта. Необходимо начать моргать объектом, определенным цветом когда бит = 1 и перестать моргать когда бит = 0. Сейчас написал скрипт

Код
begin
  if GetBit(Image6.AsInt, 4) then
    Image5.FlashColor := clGreen;     
end.

Объект начинает моргать если бит устанавливается в 1 и потом уже не перестает моргать, даже если бит = 0.
Как остановить моргание?
« Изменён: 15 Августа 2016, 22:36:42 от Simple-Scada »

Simple-Scada

  • Администратор
  • *****
  • Сообщений: 3003
    • Просмотр профиля
    • Simple-Scada
Re: Как правильно моргать объектом?
« Ответ #1 : 09 Июня 2016, 18:48:45 »
Это потому, что Вы включаете моргание цветом, но не выключаете его. Правильный скрипт должен быть таким:

Код
if GetBit(Image6.AsInt, 4) then
  Image5.FlashColor := clGreen
else
  Image5.FlashColor := clNone;
« Изменён: 15 Августа 2016, 22:36:33 от Simple-Scada »

Timur007

  • Новичок
  • *
  • Сообщений: 15
    • Просмотр профиля
Re: Как правильно моргать объектом?
« Ответ #2 : 09 Июня 2016, 18:50:52 »
Благодарю!