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.

[Simple-Scada]

Обновление по большей части содержит оптимизации производительности и исправления. Полный список изменений ниже.

Изменения:
интерфейс сервера: добавлен переключатель на табличный вид в меню "Проекты", "Клиенты", "OPC-серверы";
интерфейс сервера: добавлен фильтр по тексту в меню "Клиенты";
новая опция "игнорировать свойства" для импорта переменных с UA-серверов;
улучшена скорость построения отчетов. При многократном построении отчёта расходуется значительно меньше оперативной памяти;
утилита настроек: добавлена опция "Оптимизировать компиляцию отчетов" (включена по умолчанию). Опция ускоряет многократное построение одного и того же отчета;
утилита настроек: добавлена опция "Папка для скомпилированных отчетов". Позволяет задать путь в который будут сохраняться скомпилированные версии отчетов;
если у кнопки недостаточно прав, то окно подтверждения не выдаётся, сразу отображается окно "недостаточно прав";
классу TM_ClientData добавлен метод MemberOf. Возвращает True, если пользователь состоит в указанной группе;
редактор: при работе с файлами проекта предпринимается несколько попыток чтения, если файлы заняты другим процессом;
редактор: чтобы быстро открыть скрипт, привязанный к объекту, можно кликнуть по нему ПКМ вместо использования кнопки "...";
редактор: при импорте с OPC-UA серверов, свойства теперь отмечены другой иконкой;
web: у компонента "Список сообщений" исправлено отображение изменённых через скрипты свойств;
web: улучшена обработка кликов у фигур. Клики в пределах компонента (но вне самой фигуры!) теперь не учитываются;
на сервере в списке подписок отображается имя страницы, если подстраница скрыта;
сервер: улучшена производительно множества математических операций и расчетов;
сервер: улучшена производительность архивации. Для архивации требуется меньше оперативной памяти;
сервер: путь к системной папке скады выводится в лог;
добавлены дополнительные проверки на недопустимые имена БД в настройках проекта;
десктоп клиенты: исправлена утечка памяти при постоянных вызовах SetTrendClient / SetTrendAll, когда пользователь находится вне меню трендов;
десктоп клиенты: исправлено выделение в списке интервалов, после смены интервала скриптами, либо колёсиком мыши;
исправление: если границы переменной связаны с другими переменными, то теперь правильно берётся начальное (либо восстановленное) значение этих переменных при запуске проекта;
исправление: для PostgreSQL могла неправильно задаваться версия системы архивации;
исправлена проверка символов "-" и "+" в e-mail адресах при создании пользователей через веб/десктоп клиент;
исправлено отображение значений у опций "Масштаб и перемещение шкалы" и "Группировка шкал" в настройках проекта;
исправлена ошибка, из-за которой значения измененных границ (через поля ввода) не сразу отображались у клиентов;
исправлен вылет редактора в редакторе скриптов: ошибка возникала при попытке перехода к следующему найденному после удаления/редактирования кода;
исправлен запуск проекта в режиме отладки, когда этот проект добавлен в автозапуск и сервер выключен;