Firemonkey: Animationen in Frames?

[kaju74]

Moin.

Ich experimentiere gerade mit FM rum und bin da wohl auf ein Problem gestoßen:

Wenn man ein FMX-Frame in die Hauptform einbettet und dieses Frame eine Animation hat (z.B. einen Shape per ColorKey-Animation in der Farbe ändern), dann wird diese Animation nicht abgespielt.

Nimmt man statt eines Frames eine Form, funktioniert alles. Nach Analyse des Quellcodes wird bei [MyAnimation].Start u.a. folgende Codezeile abgearbeitet:

Zitat:

procedure TAnimation.Start;
begin
...
if (Abs(FDuration) < 0.001) or (Root = nil) or (csDesigning in ComponentState) then
...
end;

Bei einer Form ist 'Root' z.B. 'TFormMain', bei einem Frame ist 'Root' allerdings = nil. In diesem Fall wird auch kein Thread zur zyklischen Animation erstellt, was dann wohl das eigentliche Problem ist.

Frage: Sind Animationen dieses Art in Frames nicht möglich??

Gruß,
Marc

[kaju74]

Aha, nächste Erkenntnis:

TCustomForm implementiert 'IRoot', TFrame nicht. Daher funktionieren Komponenten-basierte Animationen nicht in Frames. Na super...

Marc

[mkinzler]

Dann verwende eine Form. Die kannst Du in FMX ja genauso wie einen Frame verwenden.

[Sir Rufo]

Kann ich so nicht wirklich nachvollziehen.

Ein Button auf einem Frame kann ich per FloatAnimation in der Höhe ändern.

[kaju74]

Richtig - aber nicht, wenn Du eine Animation-Komponente verwendest. Die funktionieren nicht...

LG,
Marc

[Mavarik]

Zitat von kaju74:

Richtig - aber nicht, wenn Du eine Animation-Komponente verwendest. Die funktionieren nicht...

QC Nr?

[Sir Rufo]

Zitat von kaju74:

Richtig - aber nicht, wenn Du eine Animation-Komponente verwendest. Die funktionieren nicht...

LG,
Marc

Ähm, TButton-Komponente auf Frame, TFloatAnimation-Komponente auf Frame und an den Button geklatscht ...

[Sir Rufo]

Zitat von kaju74:

Aha, nächste Erkenntnis:

TCustomForm implementiert 'IRoot', TFrame nicht. Daher funktionieren Komponenten-basierte Animationen nicht in Frames. Na super...

Marc

Ein Frame kann kein Root sein warum sollte ein Frame also dann das Interface IRoot implementieren?

[kaju74]

Interessant - mit TButton geht es. Und nun probiere es mal mit TRectangle und einer ColorKey-Animation. Die geht auf einer Form aber nicht in einem Frame.

Oder geht das bei Dir auch?

LG,
Marc

[kaju74]

Also, das scheint irgendwie an der ColorKey-Animation zu liegen. Mit der Color-Animation geht's...

Das Problem scheint hier zu liegen:

Delphi-Quellcode:

procedure TColorKeyAnimation.ProcessAnimation;
var
  T: TRttiType;
  P: TRttiProperty;
  Key1, Key2: TKey;
begin
  if FInstance <> nil then
  begin
    if FKeys.FindKeys(NormalizedTime, Key1, Key2) then
    begin
      if (TFloatKey(Key2).Key - TFloatKey(Key1).Key) = 0 then
        Exit;
      T := SharedContext.GetType(FInstance.ClassInfo);
      if T <> nil then
      begin
        P := T.GetProperty(FPath);
        if (P <> nil) and P.PropertyType.IsOrdinal then
          P.SetValue(FInstance,
            InterpolateColor(TColorKey(Key1).Value, TColorKey(Key2).Value,
              (NormalizedTime - TFloatKey(Key1).Key) / (TFloatKey(Key2).Key - TFloatKey(Key1).Key)));
      end;
    end;
  end;
end;

Die Zeile:

if (TFloatKey(Key2).Key - TFloatKey(Key1).Key) = 0 then verhält sich in einer Form anders als in einem Frame. In einem Frame sind beide Werte = 0, sodaß mit "Exit" aus der Methode gesprungen wird. Bei einer Form nicht. Hier ist der erste Wert = 1 und der zweite = 0.

???

Gruß,
Marc