Formular schrumpfen
Also,
ich hab mir überlegt, dass es ganz nett aussehen würde, wenn mein Formular beim Minimieren nicht einfach in die Taskleiste verschwindet sondern sich Breite und Höhe soweit minimieren, bis es verschwunden ist. Dabei wollte ich dann noch die Alphablendvalue verringern. Das mit der Transparenz ist kein Problem, allerdings ist das Schrumpfen nicht so leicht. Benutzen tue ich folgenden Code:
Delphi-Quellcode:
Der Funktioniert zwar, allerdings ruckelt es und die Geschwindigkeit ist am Anfang bei einem 900*620 großen Formular sehr gering.... am ende siehts schön aus aber der Anfang ist üäh...
while (self.Height > 0) and (self.Width > 0) do
begin // alphablendvalue:=alphablendvalue-5; self.Width:=self.Width-10; self.Left:=self.Left+5; self.height:=self.height-10; self.top:=self.top+5; Weis jemand ne Lösung? mfg. Chaosente |
Re: Formular schrumpfen
Da gibt es Freeware-Kompos für, z.B. diese. AFAIR war bei den Jedis auch eine dabei (TFormAnimate oder so).
|
Re: Formular schrumpfen
Ja ich hab hier was gefunden (http://homepages.borland.com/jedi/je...it.php?Id=2535), aber kann man das nicht selber machen... die Geschwindigkeit kann ich nämlich nicht einstellen... oder ich bin zu dumm....
|
Re: Formular schrumpfen
Den Code in einen Timer packen (ohne while). Wenn
Delphi-Quellcode:
, einfach den Timer deaktivieren.
(self.Height > 0) and (self.Width > 0)
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:52 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