Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by TheAn00bis,
17. Jun 2006
Beispiel gefällig? Siehe Anhang.
Edit: Dein Fehler ist, dass du i jedesmal wieder auf Null setzt und, dass i eine lokale Variable ist.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by TheAn00bis,
14. Jun 2006
Bei mir funktioniert das so wunderbar:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Picture.Assign(nil);
ImageList1.GetBitmap(i, Image1.Picture.Bitmap);
if i<ImageList1.count-1 then inc(i)
else i:=0;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by TheAn00bis,
14. Jun 2006
Inwiefern das ein animiertes Gif wiederspiegelt verstehe ich ehrlich gesagt auch nicht.
Ich würde einfach folgenden Code in einen Timer packen:
ImageList1.GetBitmap(i, Image1.Picture.Bitmap);
if i<ImageList1.count then inc(i)
else i:=0;