1
Ваши вопросы / Re: Вопросы по скриптам в Simple-Scada 2
« : 02 Марта 2018, 08:55:52 »
Кстати, да. Так лучше. Так и сделаю
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Создаем скрипт с запуском по изменению переменной.Это не совсем то, что нужно. Например:
begin
if Variable.AsInt = -1 then
text1.FontColor := clRed;
end.
begin
if Variable.AsInt = -1 then
text1.FontColor := clRed
else
text1.FontColor := clGreen;
end.
begin
if (aVar1 = -1) or (aVar2 = -1) or (aVar3 = -1) or (aVar4 = -1) or (aVar5 = -1) or (aVar6 = -1) then
Text1.fontColor := clRed
else Text1.FontColor := clBlack;
end;
var
aText: TM_Text;
aName: string;
halfTag: integer;
TagText: UTF8string;
begin
if Sender is TM_Text then
begin
aText := Sender as TM_Text;
halftag := Trunc(aText.Tag div 10);
case halftag of
0: TagText := "Error";
1: TagText := "Колонка 1 ";
2: TagText := "Колонка 2 ";
3: TagText := "Колонка 3 ";
end;
Window1.Title := TagText + aText.Text;
end;
end.
Window1.Title := aText.Text;
Text1.Text := IntToStr((aInt_Est.Value div 3600) div 24) + ' дней ' + IntToStr((aInt_Est.Value div 3600) mod 24) + 'часов ' + IntToStr((aInt_Est.Value mod 3600) div 60) + 'минут';