Вывод на семафор от 2х переменных...

[George]

Добрый день.
Можно-ли (и, если да, то подскажите как) вывести на один семафор изменения по двум переменным (цветом).
Т.е. на контроллере есть 2 переменных "Предупреждение" и "Тревога" (булиновские)
По изменению любой из них зеленый семафор должен менять цвет на красный или желтый.
Поскольку таких семафоров много, скрипт нужен универсальный.
(я, естественно, уже поэспериментировал, но удовлетворительного результата не получил)
Спасибо.

[kedr]

Переменную-предупреждение привязываем к объекту как основную, переменную-тревогу - как дополнительную.
Далее пишем универсальный скрипт:

Код: (delphi)

with Sender as TM_Object do
  case Variable.AsInt + 10*VariableEx.AsInt of
    00: Color := clGreen;     //-- Норма
    01: Color := clYellow;    //-- Предупреждение
    10,11: Color := clRed;    //-- Тревога
  end;

И привязываем этот скрипт к событиям OnDataChange и OnDataChangeEx объекта.

[kedr]

Или так, если речь чисто о булевых переменных:

Код: (delphi)

with Sender as TM_Object do
  if VariableEx.AsBool then
    Color := clRed
  else if AsBool then
    Color := clYellow
  else
    Color := clGreen;
  end;

[George]

Спасибо! Очень помогло!