Panel geschmeidig ein- und ausblenden?

[Glados]

Damit Label2 dann direkt unter Label1 positioniert wird.

[Uwe Raabe]

Zitat von Glados:

Damit Label2 dann direkt unter Label1 positioniert wird.

Dann hast du aber irgendwas mit Align oder Anchors oder sonstwie mit der Position bei dem Label verändert. Das ging aus deiner Beschreibung so erstmal nicht hervor.

Es geht aber vielleicht noch einfacher: Nimm deinen ursprünglichen Code und ersetze das Application.ProcessMessages durch ein Control.Update .

[Sherlock]

Das Stichwort FMX ist gefallen, und jetzt darf ich auf die fertigen Methoden in FMX.Ani.TAnimator verweisen. :]

Sherlock

[Glados]

Mit Control.Update; funktioniert es ohne Artefakte.
Ich nehme an mit Application.ProcessMessages; werden viele unnötige Dinge abgearbeitet und mit Control.Update; lediglich das Updaten des Controls welches animiert werden soll?

[Zacherl]

Zitat von Glados:

Ich nehme an mit Application.ProcessMessages; werden viele unnötige Dinge abgearbeitet und mit Control.Update; lediglich das Updaten des Controls welches animiert werden soll?

Ja, so in etwa. Allerdings reagiert deine Anwendung während der Animation dann auch nicht mehr auf Benutzereingaben.

[Uwe Raabe]

Zitat von Zacherl:

Allerdings reagiert deine Anwendung während der Animation dann auch nicht mehr auf Benutzereingaben.

Das ist allerdings so, in vielen Fällen aber auch erwünscht und meistens kein Problem, solange die Animationszeiten entsprechend kurz sind.

Nehmen wir nur mal den Fall, wo die Animation in einem ButtonClick-Event ausgeführt wird. Wenn dann im Application.ProcessMessages der gleiche ButtonClick nochmal ausgelöst wird, hat man plötzlich zwei Animationsschleifen gleichzeitig laufen.

Man kann das mit etwas Geschick recht einfach nachvollziehen: Ein Form mit zwei Buttons, bei dem der eine Button wie im obigen Beispiel animiert wird, wenn am auf den anderen klickt. Jetzt mal das Programm laufen lassen und einen schnellen Doppelklick auf den Button machen. Bei Application.ProcessMessages ergibt sich ein anderes Verhalten als bei Control.Update. Im ersten Fall steht der Button nach einem kurzen hin und her an der Stelle, an der er nach einem einfachen Klick stehen würde. Verwendet man Control.Update werden die Animationen nacheinander durchgeführt und der Button steht am Ende da, wo er auch nach zwei Klicks stehen sollte. Für Application.ProcessMessages müsste man nun den Event gegen sich selbst verriegeln damit das Gewusel aufhört, aber selbst dann ist das Verhalten noch anders als bei Control.Update.

[Glados]

Bei relativ kurzen Animationen könnte man also Control.Update nehmen? Es handelt sich hier bei mit nur um rund 300ms.

Inwieweit ist das hier denn OK? Mit TTask und TThread.Synchronize.
So kann ich zwei Buttons schnell hintereinander klicken und animieren.

Delphi-Quellcode:

 TTask.Run(
   procedure
  begin
   while (D <= TUtilsEasingAnimations.AnimateDuration) do
    begin
     TThread.Synchronize(nil,
       procedure
      begin
       setControlDimension(TUtilsEasingCore.EaseOutQuint(D, iStart, iEnd - iStart, TUtilsEasingAnimations.AnimateDuration), Control, aAnimationDirection, aAnimationType);
       Application.ProcessMessages;
       // Control.Parent.Update;
       // Control.Update; // hinterlässt "Schlieren". Außer ich update auch das Control.Parent (s.o)
      end);
     D := GetTickCount - C;
    end;
  end);

Zitat:

Das Stichwort FMX ist gefallen,

Die Starter hat doch kein FMX soweit ich weiß.

[Uwe Raabe]

Zitat von Glados:

Inwieweit ist das hier denn OK? Mit TTask und TThread.Synchronize.

Compiliert das überhaupt? Und was passiert hier bei dem oben beschriebenen Doppelklick-Experiment?

[Glados]

Es kompiliert. Das Doppelklick-Experiment lässt beide Buttons zeitgleich animieren.
Aber es gibt durch das Synchronize dennoch anderweitige Artefakte. Ich bin jetzt mit Control.Update und Control.Parent.Update verblieben.

[Uwe Raabe]

Zitat von Glados:

Es kompiliert.

Komisch, hier kommt: Symbol 'setControlDimension' kann nicht erfasst werden.

Zitat von Glados:

Das Doppelklick-Experiment lässt beide Buttons zeitgleich animieren.

Bei meinem Doppelklick-Experiment (Doppelklick auf Button2) wurde aber immer nur der eine Button (Button1) animiert. Der andere (Button2) war nur deswegen da, weil der animierte einem schon mal schnell unter der Maus wegrutschte.

Delphi-Quellcode:

procedure TForm216.Button2Click(Sender: TObject);
begin
  TUtilsEasingAnimations.AnimateControl(Button1, 20, 200, TAnimationDirection.adHorizontal, TAnimationType.adChangeLeftTop);
end;