Animiertes Gif in Button??

[ninja]

hallo,
ist es eigentlich möglich in delphi ein animiertes Gif in einem Button darstellen zulassen??
gruß ninja

[tHeRiAn]

Frohe Ostern auch dir... :xmas:

soviel ich weiss ist es nicht möglich so etwas mit den Standard VCL-Mitteln zu realisieren. Was du machen könntes, nimm ein TImagelist, speichere eine Anzahl von Bilder ab die du animieren möchtest und lass das ganze über ein Timeevent ansteuern.....nur so eine Idee :roll:


mft therian

[MrKnogge]

Servus Ninja,

welche Delphi-Version benutzt du denn ?
Bis Delphi 6 gibts da ne Unit die das TImage erweitert,
damit sie auch gifs unterstützt.

@tHeRiAn
Dies setzt aber vorraus, dass du die Einzelbilder hast...

[ninja]

hallo,
ich benutze delphi 6, wo kann ich diese unit finden??
thx ninja

[MrKnogge]

Ich hoffe sie funzt bei dir !

[roderich]

mein Vorschlag: kein button, sondern ein TRxGIFAnimator verwenden (http://www.dummzeuch.de/delphi/rxlib/deutsch.html bzw. bei Jedi).
Setze diese Komponente einfach auf ein Panel, das du wie einen Button gestaltest.

Roderich

[ninja]

hallo,
ich habe die jedi-komponenten installiert, aber ich kann diesen TRxGIFAnimator
nicht finden. in welchem reiter muß ich nachsehen?
ninja

hab ihn gefunden in JvControls, allerdings heisst er JvGIFAnimator und ich kann zwar das gif laden, aber animiert ist da nix.
thx ninja

musste nur noch JvxAnimate auf true setzen , jetz gehts.
:mrgreen: :mrgreen: thx ninja :mrgreen: :mrgreen:

[ninja]

Zitat:

Zitat von MrKnogge

Ich hoffe sie funzt bei dir !

sie geht bei mir leider nicht
Meldung "zeile zu lang".
trotzdem danke ninja

[ninja]

Zitat:

Zitat von ninja

hallo,
ich habe die jedi-komponenten installiert, aber ich kann diesen TRxGIFAnimator
nicht finden. in welchem reiter muß ich nachsehen?
ninja

hab ihn gefunden in JvControls, allerdings heisst er JvGIFAnimator und ich kann zwar das gif laden, aber animiert ist da nix.
thx ninja

musste nur noch JvxAnimate auf true setzen , jetz gehts.
:mrgreen: :mrgreen: thx ninja :mrgreen: :mrgreen:

jetzt hab ich allerdings das problem das ganze auf nen button zubekommen.
ninja :wall:

[roderich]

warum willst du das Ding unbedingt auf einen Button setzen ?
Nimm ein Panel, setz beim OnMouseDown den BevelOuter bzw. BevelInner von bvRaised auf bvLowered und beim OnMouseUp wieder zurück. Dann verhält sich das Ganze wie ein Button.

Roderich

[ninja]

hallo.
ich wußte ehrlich gesagt nicht das mit dem panel einen button simulieren kann.
ich hab auch schon ein bißchen ausprobiert, aber ich bekomme das nicht hin.
kann mir vieleicht jemand einen kleinen tip geben?
gruß ninja

[scp]

Steht doch alles schon da oben, die einfachste Variante:

Delphi-Quellcode:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Panel1.BevelOuter := bvLowered;
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Panel1.BevelOuter := bvRaised;
end;

[ninja]

super, danke.
jetzt hab ichs verstanden wie man das schreiben muß.
thx ninja :-D

[Tommy1988]

Zitat:

aber animiert ist da nix.

Schon mal in den Eigenschaften von JvGifAnimator "Animate" auf True gesetzt?

[Progman]

öhm.... das Thema ist von 2003 ;)

[MCXSC]

Vor allem hat ninja vor 4 Jahren selbst die Lösung gepostet... :D

[DeddyH]

Dann wurde es aber auch Zeit, dass die mal jemand "abstaubt" :mrgreen: