Официальный форум Simple-Scada.
begin Shape1.Color := clRed; Image1.Color := RandomColor; Valve1.Color := RGB(255, 255, 0);end.
begin if Field1.Value > 10 then // если значение переменной поля больше 10 begin Shape1.Color := clRed; // меняем цвет фигуры на красный Image1.Color := clRed; // меняем цвет изображения на красный end else // если значение меньше либо равно 10 begin Shape1.Color := clGray; // меняем цвет фигуры на серый Image1.Color := clNone; // меняем цвет изображения на стандартный end;end.