Есть переменная типа int, каждый бит переменной используется как статус объекта. Необходимо начать моргать объектом, определенным цветом когда бит = 1 и перестать моргать когда бит = 0. Сейчас написал скрипт
begin
if GetBit(Image6.AsInt, 4) then
Image5.FlashColor := clGreen;
end.
Объект начинает моргать если бит устанавливается в 1 и потом уже не перестает моргать, даже если бит = 0.
Как остановить моргание?
Это потому, что Вы включаете моргание цветом, но не выключаете его. Правильный скрипт должен быть таким:
if GetBit(Image6.AsInt, 4) then
Image5.FlashColor := clGreen
else
Image5.FlashColor := clNone;