AW: Panel geschmeidig ein- und ausblenden?
Damit Label2 dann direkt unter Label1 positioniert wird.
|
AW: Panel geschmeidig ein- und ausblenden?
Zitat:
Es geht aber vielleicht noch einfacher: Nimm deinen ursprünglichen Code und ersetze das
Delphi-Quellcode:
durch ein
Application.ProcessMessages
Delphi-Quellcode:
.
Control.Update
|
AW: Panel geschmeidig ein- und ausblenden?
Das Stichwort FMX ist gefallen, und jetzt darf ich auf die fertigen Methoden in FMX.Ani.TAnimator verweisen. :]
Sherlock |
AW: Panel geschmeidig ein- und ausblenden?
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? |
AW: Panel geschmeidig ein- und ausblenden?
Zitat:
|
AW: Panel geschmeidig ein- und ausblenden?
Zitat:
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. |
AW: Panel geschmeidig ein- und ausblenden?
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:
|
AW: Panel geschmeidig ein- und ausblenden?
Zitat:
|
AW: Panel geschmeidig ein- und ausblenden?
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. |
AW: Panel geschmeidig ein- und ausblenden?
Zitat:
Zitat:
Delphi-Quellcode:
procedure TForm216.Button2Click(Sender: TObject);
begin TUtilsEasingAnimations.AnimateControl(Button1, 20, 200, TAnimationDirection.adHorizontal, TAnimationType.adChangeLeftTop); end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:00 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz