Firemonkey: Animationen in Frames?

[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