Скрипты Simple-Scada

begin
  if Field1.AsInt = 1 then   // если значение переменной поля равно 1, то
    Field1.Color := clGreen  // изменить цвет поля на зеленый
  else                       // иначе
    Field1.Color := clRed;   // изменить цвет поля на красный 
end.

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

begin
  case Field1.AsInt of                   // если значение переменной поля равно:
    1..3: Field1.Color := clRed;         // от 1 до 3 - изменить цвет поля на красный
    4   : Field1.BorderColor := clGreen; // 4 - изменить цвет рамки поля на зеленый
    5   : Field1.FontColor := $FFFF00;   // 5 - изменить цвет шрифта поля на желтый
    6   : Field1.Color := RGB(0,0,255);  // 6 - изменить цвет поля на синий
  end;
end.

begin
// Sender - это объект, который вызвал скрипт(например поле, изображение и т.д.) 
   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.

При помощи параметра "Sender" можно обращаться только к свойствам класса "TM_Control". Для обращения к остальным свойствам необходимо привести "Sender" к нужному типу. Например, если необходимо в универсальном скрипте изменить свойство "Цвет рамки поля", то необходимо привести "Sender" к типу "TM_Field":

begin
  if Sender is TM_Field then         // проверяем, что Sender это поле
    with Sender as TM_Field do       // приводим Sender к типу "TM_Field"           
      case AsInt of                  // если значение переменной связанной с полем равно:
        1 : BorderColor := clGreen;  // изменить цвет рамки на зеленый
        2 : BorderColor := clRed;    // изменить цвет рамки на красный
        3 : BorderColor := clYellow; // изменить цвет рамки на желтый
        4 : BorderColor := clGray;   // изменить цвет рамки на серый
      end;
end.

Допустим, имеется переменная давления, значение которой меняется в диапазоне от 5,6 до 12,6 и необходимо менять цвет объекта в зависимости от ее значения. Для того, чтобы расчеты работали корректно нужно перевести значение переменной в целое число - для этого ее нужно умножить на 10 и округлить до целого числа, а затем производить необходимые сравнения:

var
  aPressure: Integer;
begin 
   if Sender is TM_Object then     // проверяем, что Sender это объект
     with Sender as TM_Object do   // приводим Sender к типу "TM_Object" 
       begin
       { умножаем значение переменной на 10 и округляем до целого }
         aPressure := Round(Value * 10);
 
       { далее работаем с переменной как с целым числом }
         case aPressure of  // если значение переменной связанной с объектом равно:
           56..61 : Color := clRed;   // от 5,6 до 6,1
           62..70 : Color := clGreen; // от 6,2 до 7,0
           71     : Color := clYellow;// 7,1
           126    : Color := clBlue;  // 12,6
         end;
       end;
end.

Иногда требуется сохранить нужное значение цвета в переменную для последующего использования в скриптах. Для этого можно создать внутреннюю переменную с типом данных LongWord и записать в нее необходимый цвет, например:

begin
  { цвет можно указывать константами цветов (например "clRed"), 
    в формате HTML/HEX (например "$FFFF00"), 
    в формате RGB (например "RGB(0,0,255)") }
  vrColor.Value := clCrimson;
end.​

Затем можно использовать ее для изменения цвета в скриптах, например:

begin
  Shape1.Color := vrColor.AsInt64;
end.