Entwickler-Ecke

Multimedia / Grafik - Bilder ablaufen lassen


Sauger Chris - Mi 15.10.03 20:21
Titel: Bilder ablaufen lassen
wie kann ich bilder ablaufen lassen bitte mit Quellcode

dank

Chris (delphi7)


maze2k - Mi 15.10.03 20:23

Was meinst du mit "Bilder ablaufen lassen"?
Dass sie in ein Loch fließen wie eine Wanne voll Wasser? *lol*

Nee schon klar... ich denk mal du willst ne Animation, oder?
also dass verschiedene Bilder hintereinander geschaltet werden?


Sauger Chris - Mi 15.10.03 20:48

ja und kannst du mir weiter hlefen

dank

Chris(delphi7)


Raphael O. - Mi 15.10.03 21:02

du könntest die Bilder in ne Imagelist packen oder in ne Resource, und dann im Ontimer ereignis in einer Image-Komponente anzeigen lassen...


maze2k - Mi 15.10.03 21:28

Also entweder du machst daraus mit nem externen Programm ein Animated-Gif...

oder du machst was mit ner Imagelist und nem Timer...

Im OnTimer-Ereignis des Timers kommt einfach sowas:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
begin
  ImageList1.GetBitmap(bild_zaehler,Image1.Picture.Bitmap);
  Image2.Picture := image1.Picture;
  if (bild_zaehler <> ImageList1.Count - 1) then
    bild_zaehler := bild_zaehler + 1
  else
    bild_zaehler := 0;
end;


Hab ne halbe Ewigkeit rumprobiert, es geht aber die Bilder dürfen nich transparent sein...

Brauchst 2 Images... Image1.Visible = false;

in die Imagelist macht einfach deine Bilder rein...

der Code is nich perfekt, falls jemand was besseres hat bitte posten
(mir ist nämlich schleierhaft warum man ein zweites Image braucht, denn wenn ich nur eins nehm aktualisiert er das Bild net, erst wenn ich dann Image2.Picture das Picture von image1 zuweis geht es komischerweise...)


Aber die Prozedur funktioniert *gg*


breakdancer1111 - Do 16.10.03 19:05

bei http://www.swissdelphicenter.ch
hab ich mal sowas gefunden.