[Komponente] TWinLogoAni - Animiertes Windows-Logo

[Martin K]

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!

[HuxXx]

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

[himitsu]

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:

[gothic_mike]

Zitat:

Zitat von himitsu

PS: gibt es davomn auch 'nen Vista-Style ... dort sieht es ja ganz anders aus :zwinker:

Ich tippe mal, dass das im Vista-Style ist, wenn du das Programm unter Vista ausführst, da ja das Logo aus der
Shell32.dll ausgelesen wird. Kann mich aber auch irren :)

[Martin K]

Zitat:

Zitat von HuxXx

Bleibt nur noch die Frage...: Was hat das Ding eigentlich für einen Sinn???

Genau das:

Zitat:

Zitat von himitsu

Du kannst wie beim IE die aktivität deines Programms zeigen

Oder was auch immer...

Zitat:

Zitat von himitsu

Aber mit TAnimate + die entsprechende GIF würde es och gehen.

Nein.
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:

Zitat von himitsu

PS: gibt es davomn auch 'nen Vista-Style ... dort sieht es ja ganz anders aus :zwinker:

Keine Ahnung.
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.

[Tumm]

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

[CK_CK]

Rechte Maustaste -> "Ziel speichern unter..." :roll:

[Tumm]

Oh, ähh... Vergessen :lol: