![]() |
[Komponente] TWinLogoAni - Animiertes Windows-Logo
Liste der Anhänge anzeigen (Anzahl: 2)
Hi,
hab mal aus Spaß eine kleine Komponente gebastelt, die das animierte Windows-Logo darstellt. Kennt ihr bestimmt, vom Explorer oder IE: oben rechts ist dort das Windows-Logo, wenn gerade eine Seite geladen wird ist es animiert. Genau das könnt ihr mit meiner Komponente auch machen: Entweder mit der Eigenschaft "Animated" oder über die Prozeduren StartAnimation bzw. StopAnimation kann eingestellt werden, ob das Logo animiert ist - mit der Eigenschaft "AniInterval" kann die Geschwindigkeit der Animation eingestellt werden. Über die Eigenschaft "Size" kann dann noch die Größe des Logos eingestellt werden: Small, Middle, Large. Benötigt wird die Shell32.dll unter Windows XP, aus der das Windows-Logo ausgelesen wird. Hier die Unit, die Komponente muss dann noch installiert werden (habe mal unter 'Beispiele' registriert, ihr könnt das ja auch ändern). Viel Spaß damit! |
Re: [Komponente] TWinLogoAni - Animiertes Windows-Logo
Der Screenshot sieht ganz gut aus, ich werde es mir mal runterladen und ausprobieren...
Bleibt nur noch die Frage...: Was hat das Ding eigentlich für einen Sinn??? Greetz by Hux |
Re: [Komponente] TWinLogoAni - Animiertes Windows-Logo
Du kannst wie beim IE die aktivität deines Programms zeigen?
Aber mit TAnimate + die entsprechende GIF würde es och gehen. PS: gibt es davomn auch 'nen Vista-Style ... dort sieht es ja ganz anders aus :zwinker: |
Re: [Komponente] TWinLogoAni - Animiertes Windows-Logo
Zitat:
Shell32.dll ausgelesen wird. Kann mich aber auch irren :) |
Re: [Komponente] TWinLogoAni - Animiertes Windows-Logo
Zitat:
Zitat:
Zitat:
Das ist keine GIF sondern ein Bitmap, in der die einzelnen Images untereinander sind. Das Bitmap wird komplett von der Shell32 ausgelesen und per Canvas.CopyRect dann einzeln in ein TImage geladen. [Edit] So könnt ihr das Original-Bitmap aus der Shell32 auslesen:
Delphi-Quellcode:
var h: HModule; Bitmap: TBitmap;
begin h:=LoadLibrary('Shell32.dll'); Bitmap:=TBitmap.Create; try Bitmap.LoadFromResourceID(h, 240); //241 für Middle, 242 für Large Bitmap.SaveToFile(...); //zum angucken finally FreeLibrary(h); Bitmap.Free; end; end; Zitat:
Wenn einer Vista hat, kann er's ja mal testen... Wenn das entsprechende Bitmap in Vista an der selben Stelle in der Shell32 liegt müsste es theoretisch gehen. |
Re: [Komponente] TWinLogoAni - Animiertes Windows-Logo
HI,
ich hab mir den Screenshit angeschaut. Irgendwie lustig. Aber mein Browser öffnet die *.pas Datei in einem neuen Fenster, anstatt mir anzubieten, sie zu downloaden. Könntest du die nich in eine Zip-Datei quetschen? Tumm |
Re: [Komponente] TWinLogoAni - Animiertes Windows-Logo
Rechte Maustaste -> "Ziel speichern unter..." :roll:
|
Re: [Komponente] TWinLogoAni - Animiertes Windows-Logo
Oh, ähh... Vergessen :lol:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:52 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz