Анимированное изображение по вещественной переменной

[ZloiVadik]

Здравствуйте. Помогите сделать универсальный скрипт для вещественной переменной для анимации изображения.
Попробовал сделать на базе скрипта с цветом, но не получается...
Задача: при 0 объект не движется. При >0 объект движется

Код: (delphi)

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
      // если значение переменной связанной с объектом равно:
        if AsInt > 0 then
          AnimSpeed := 16 // запустить анимацию
        else // иначе
          AnimSpeed := 0; // остановить анимацию
      end;
    end;

end.

[Simple_Scada]

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

У класса "TM_Object" нет свойства AnimSpeed. Данное свойство есть только у изображений "TM_Image". Поэтому Sender нужно приводить именно к типу "TM_Image". Исправленный скрипт ниже. Если не разберетесь, то пришлите текущую версию проекта на support@simple-scada.com и укажите скрипт, который нужно проверить.

Код: (delphi)

var
  aPressure: Integer;
begin
  if Sender is TM_Image then     // проверяем, что Sender это изображение
    with Sender as TM_Image do   // приводим Sender к типу "TM_Image"
      begin
        aPressure := Round(Value * 10);
        if aPressure > 0 then
          AnimSpeed := 16        // запустить анимацию
        else                     // иначе
          AnimSpeed := 0;        // остановить анимацию
      end;
end.

[ZloiVadik]

спасибо, работает