SCADA-система Simple-Scada

[yurgin_757]

Здравствуйте.

Если задача в том, чтобы менять цвет флага на приложенном Вами изображении, то лучший вариант решения - это сохранить флаг как отдельное изображение белого цвета на прозрачном фоне. В качестве основной переменной изображения флага указать переменную, по которой должен меняться цвет и создать скрипт по событию "OnDataChange" с требуемыми условиями смены цвета, например:

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

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

Если обязательно требуется использовать отдельные изображения, то можно создать PNG изображение, состоящее из необходимых кадров и поместить его в папку "...\Simple-Scada 2\Pictures". Далее, при помощи утилиты Pictures разбить изображение на кадры, как это описано по ссылке. После этого, анимированное изображение станет доступно в редакторе в группе "Пользовательские" и можно будет изменять кадр изображения через скрипты (свойство "Frame"). Для этого изображение нужно связать с соответствующей переменной и на событие "OnDataChange" написать универсальный скрипт. Пример скрипта для Boolean переменной:

begin
  if Sender is TM_Image then   // проверяем, что Sender это изображение
    with Sender as TM_Image do // приводим Sender к типу "TM_Image"
      if AsBool then           // если значение основной переменной изображения = True
        Frame := 1             // показать первый кадр изображения
      else                     // иначе
        Frame := 2;            // показать второй кадр изображения
end.

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

При возникновении дополнительных вопросов, их можно направить на почту техподдержки support@simple-scada.com.

Спасибо, получилось!
...и даже с миганием флага получилось.

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.