Перейти к содержанию
Fire Monkey от А до Я
  • 0

Как применить анимацию к элементу стиля?


estra

Вопрос

6197151.jpg

 

Редактирую стиль, добавляю к нему компонент TImage и для свойства RotateAngle создаю FloatAnimation (параметры анимации на скрине). Но при запуске никакой анимации нет. Почему? И как все же добиться работоспособности анимации для элемента стиля?

Ссылка на комментарий

Рекомендуемые сообщения

  • 0
  • Модераторы

Вроде как анимацию нужно стартовать, либо в коде, либо по триггеру. Правда не знаю как с этим обстоят дела в стилях.

 

Возможно, позже получится посмотреть.

Ссылка на комментарий
  • 0
  • Модераторы

Проверил на Label и свойстве Opacity.

У меня анимация срабатывает сразу, в design-time, без всяких галочек, просто положил на стиль лейбла и всё.

Как получить доступ из кода:

procedure TForm1.Button1Click(Sender: TObject);
var
  StyleObject: TFmxObject;
  StyleAni: TFloatAnimation;
begin
  StyleObject := Label1.FindStyleResource('floatanimationstyle');
  if (StyleObject <> nil) and (StyleObject is TFloatAnimation) then
  begin
    StyleAni := TFloatAnimation(StyleObject);
    StyleAni.Duration := 0.9;
    StyleAni.StartValue := 0;
    StyleAni.StopValue := 1;
    StyleAni.Start;
  end;
end;

Проверил, данный код работает.

Ссылка на комментарий
  • 0

Спасибо, в конечном счете заработало, но не сразу и как то странно. Сначала положил на форму Label, сделал необходимые манипуляции и все заработало. Затем положил CornerButton, повторил манипуляции, но анимация упорно не работала. Затем положил Button, все повторил, и с кнопкой анимация заработала. Вернулся к CornerButton, и с ней все заработало. Странно это как то...

Ссылка на комментарий
Гость
Эта тема закрыта для публикации ответов.
×
×
  • Создать...