Wait Animation

[EWeiss]

Neue Version oben incl. Thread\Source und neuer Animationen.
Hoffe du findest nicht zu viele Fehler

Hier auf die schnelle noch ne Anim
Im Source Archiv enthalten.

Einfach im Projekt zur Case addieren ..

Delphi-Quellcode:

    if SpinnerCount = 9 then
      SpinnerCount := 0;

Auf 8 erhöhen und das anfügen.

Delphi-Quellcode:

      6:
        begin
          Spinner := CTRL_SpinnerCreate;
          SpinnerHandle :=  Spinner.CreateWindow(Handle);
          SpinnerFile := ExtractFilePath(ParamStr(0)) + 'spinn.png';
          Spinner.Start(Handle, SpinnerHandle, SpinnerFile, 100);
        end;

      7:
        begin
          Spinner := CTRL_SpinnerCreate;
          SpinnerHandle :=  Spinner.CreateWindow(Handle);
          SpinnerFile := ExtractFilePath(ParamStr(0)) + 'butterfly.png';
          Spinner.Start(Handle, SpinnerHandle, SpinnerFile, 75);
        end;

      8:
        begin
          Spinner := CTRL_SpinnerCreate;
          SpinnerHandle :=  Spinner.CreateWindow(Handle);
          SpinnerFile := ExtractFilePath(ParamStr(0)) + 'cube01.png';
          Spinner.Start(Handle, SpinnerHandle, SpinnerFile, 16);
        end;

gruss

[Ghostwalker]

Sieht gut aus. Das einzige das ich vermisse ist,
das ich keinen Stream statt eines Dateinamens (für die Animation) angeben kann.


Komponente is auch so gut wie fertig

[EWeiss]

Zitat von Ghostwalker:

Sieht gut aus. Das einzige das ich vermisse ist,
das ich keinen Stream statt eines Dateinamens (für die Animation) angeben kann.

Dann noch eins.. Ist einiges an Arbeit die Anims zu erstellen
Im Source Archiv enthalten.

Ja das Problem ist mit Streams das ich GdipDrawImageRectRectI die einzelnen Frames zeichne.
Ich muss mich mal schlau machen ob es möglich ist die Animationen als Stream zu zeichnen. (Habs noch nie gemacht)
Das bringt allerdings nur etwas wenn das einen kräftigen Schub bringt was die Auslastung angeht.

Solltest du was anderes meinen dann kannst du es gerne ändern wenn es möglich ist und es deiner Meinung etwas bringt.

Hoffentlich schlägt Daniel mich nicht für die ganzen Uploads.

Zitat:

Komponente is auch so gut wie fertig

Supi!

gruss

[Ghostwalker]

Neeeee....Streams wie TStream als Quelle der Animation. Damit könnte man z.B. das png mit in die Resource der Anwendung packen und dann statt filename einfach einen TResourceStream übergeben

[EWeiss]

Zitat von Ghostwalker:

Neeeee....Streams wie TStream als Quelle der Animation. Damit könnte man z.B. das png mit in die Resource der Anwendung packen und dann statt filename einfach einen TResourceStream übergeben

Ach so..
JO würde gehen macht aber die EXE dementsprechend groß
So wie es im Moment ist, ist man unabhängig und kann Nacheinander die Anims laden so wie man sie gerade braucht.

gruss

[Ghostwalker]

Naja...die Varianten schließen sich ja nicht aus Entweder ein Dateiname oder ein Stream.

[EWeiss]

Zitat von Ghostwalker:

Naja...die Varianten schließen sich ja nicht aus Entweder ein Dateiname oder ein Stream.

Jo gegen eine Kombination hätte ich nichts

gruss