Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi AnimateWindow(..) zerstört VCL-Stile (https://www.delphipraxis.net/175857-animatewindow-zerstoert-vcl-stile.html)

Der schöne Günther 24. Jul 2013 12:20

AnimateWindow(..) zerstört VCL-Stile
 
Liste der Anhänge anzeigen (Anzahl: 2)
Zum nachvollziehen:

1) Neue VCL-Anwendung
2) Projekt->Optionen->Erscheinungsbild: Beliebigen Stil hinzufügen und als Standardstil setzen
3) TButton hinzufügen und onClick:

Delphi-Quellcode:
AnimateWindow(Button1.Handle, 100, AW_HOR_POSITIVE or AW_HIDE);
   sleep(100);
   AnimateWindow(Button1.Handle, 100, AW_HOR_POSITIVE);

Siehe Bilder.


Ich kann den Button1 jetzt nehmen und Invalidate(), Repaint() oder sonstwas aufrufen, aber doof ist es trotzdem. Vor allem da es für die Dauer der Animation natürlich immer noch nicht stimmt. Gibt es einen Ausweg?

jaenicke 24. Jul 2013 13:29

AW: AnimateWindow(..) zerstört VCL-Stile
 
Zitat:

Zitat von Der schöne Günther (Beitrag 1222480)
Gibt es einen Ausweg?

  • Keine API-Aufrufe, die an der VCL vorbei auf die GUI zugreifen
  • Keine VCL Styles
  • Firemonkey inkl. dessen Animationen
Ich frage mich, ob man diese API-Funktionen überhaupt groß beeinflussen kann, selbst wenn Embarcadero das in den Styles einbauen wollen würde...

Der schöne Günther 6. Aug 2013 10:22

AW: AnimateWindow(..) zerstört VCL-Stile
 
Das ist wirklich schade, denn ich sehe zur WinAPI-Methode AnimateWindow() keine Alternative. Controls mit mehreren Kindelementen manuell über den Bildschirm schieben würde (ohne es getestet zu haben) sicher zu einer einzigen Flacker- und Ruckelorgie verkommen.

Am ehesten würde ich auf die Styles verzichten, was aber relativ schade ist. Denn mit praktisch Null Aufwand lässt sich das Erscheinungsbild rabiat ändern. Und die meisten sehen wirklich toll aus...

FireMonkey ist leider noch keine Option, da bsp. der TeeChart viele Dinge auf FireMonkey noch nicht kann. Sobald sich das ändert stürze ich mich drauf :-)

jaenicke 6. Aug 2013 13:38

AW: AnimateWindow(..) zerstört VCL-Stile
 
Zitat:

Zitat von Der schöne Günther (Beitrag 1223656)
Das ist wirklich schade, denn ich sehe zur WinAPI-Methode AnimateWindow() keine Alternative. Controls mit mehreren Kindelementen manuell über den Bildschirm schieben würde (ohne es getestet zu haben) sicher zu einer einzigen Flacker- und Ruckelorgie verkommen.

Wenn du es so machst, ja.
Du kannst aber auch einfach einen Screenshot von dem Bereich machen und nur den animieren. Das klappt problemlos und ohne ruckeln...
Sprich: Screenshot, PaintBox drüber, Controls verstecken, animiert ausblenden, fertig.

Du kannst sogar ein Bild nehmen, auf das du den Screenshot legst und das mit AnimateWindow ausblenden. Aber wie gesagt würde ich darauf bei Styles eher verzichten.

Der schöne Günther 6. Aug 2013 14:14

AW: AnimateWindow(..) zerstört VCL-Stile
 
Ich hatte (und habe) keine Ahnung, wie man Controls inkl. ihrer Kinder abfotographieren könnte, deshalb habe ich direkt die eigentlichen Komponenten animiert. :oops:

Wenn man einfach das Bild abfotographiert, dann wäre doch auch mit den Styles kein Problem. Warum sollte man denn dann trotzdem drauf verzichten?


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:21 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