Скрипты Simple-Scada

begin
  if Image1.AsInt = 1 then       // если значение переменной изображения = 1, то
    Image1.FlashColor := clRed   // включить мигание изображения красным цветом
  else                           // иначе
    Image1.FlashColor := clNone; // отключить мигание изображения
end.

begin
  if Sender is TM_Object then   // проверяем, что Sender это объект
    with Sender as TM_Object do // приводим Sender к типу "TM_Object"
      if AsInt = 1 then         // если значение переменной объекта равно 1, то 
        FlashColor := clRed     // включить мигание объекта красным цветом
      else                      // иначе
        FlashColor := clNone;   // отключить мигание объекта
end.

begin
  { отключаем мигание в начале скрипта - таким образом не нужно будет 
    отдельно отключать мигание для каждого условия ниже }  
  Image1.FlashColor := clNone;
  case Image1.AsInt of              // если значение переменной равно:
    1 : Image1.Color := clYellow;   // 1 - изменить цвет на желтый
  { 2 – изменить цвет на "без цвета" - для того, чтобы мигание было только 
    зеленым цветом, а не с желтого на зеленый }   
    2 : 
    begin
      Image1.Color := clNone; 
      Image1.FlashColor := clGreen; // включить мигание зеленым цветом
    end;
    3 : Image1.Color := clBlue;     // 3 – изменить цвет на синий
  end;
end.

begin
// Sender - это объект, который вызвал скрипт(например поле, изображение и т.д.) 
  if Sender is TM_Object then     // проверяем, что Sender это объект
    with Sender as TM_Object do   // приводим Sender к типу "TM_Object" 
    begin
    { отключаем мигание в начале скрипта - таким образом не нужно будет
      отдельно отключать мигание для каждого условия ниже } 
      FlashColor := clNone;
      case AsInt of              // если значение переменной равно:
        1 : Color := clYellow;   // 1 - изменить цвет на желтый
       { 2 – изменить цвет на "без цвета" - для того, чтобы мигание было только 
        зеленым цветом, а не с желтого на зеленый }  
        2 : 
        begin
          Color := clNone; 
          FlashColor := clGreen; // включить мигание зеленым цветом
        end;
        3 : Color := clBlue;     // 3 – изменить цвет на синий
    end;  
  end;
end.