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

[estra]

 

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

[Andrey Efimov]

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

 

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

[estra]

Если установить Endbled = True, она и так стартует.

А как добраться до анимации в стиле, чтобы запустить ее из кода?

[Andrey Efimov]

Проверил на 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;

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

[estra]

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