Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
begin
if Sender is TM_Object then
with Sender as TM_Object do
if VariableEx.AsBool = false then
Color := clRed
else
if AsBool = false then
Color := clYellow
else
Color := clGreen
end.
begin
if Sender is TM_Object then
with Sender as TM_Object do
if VariableEx.AsBool = false then
Color := clRed; Alarm_Win.ShowClient(GetClientName); PlayUserSound(GetClientName,'03281.ogg',True);
end. else
if AsBool = false then
Color := clYellow; Warning_Win.ShowClient(GetClientName); PlayUserSound(GetClientName,'02072.ogg',True);
end. else
Color := clGreen;
end.
with Sender as TM_Object do
if VariableEx.AsBool then
Color := clRed // + сообщение
else if AsBool then
Color := clYellow // + сообщение
else
Color := clGreen;
begin
if Sender is TM_Object then // проверяем, что Sender это объект
with Sender as TM_Object do // приводим Sender к типу "TM_Object"
case AsInt of // если значение переменной связанной с объектом равно:
1..5: Color := clRed; // от 1 до 5 - изменить цвет на красный
6, 7: Color := clGreen; // 6 или 7 - изменить цвет на зеленый
8 : Color := clYellow; // 8 - изменить цвет на желтый
end;
end.
Т.е. сейчас у Вас по превышению аварийных значений выдаются соответствующие сообщения и нужно чтобы они сопровождались звуком? Мы правильно поняли?