Zitat von
leddl:
Zitat von
MaBuSE:
Ich kann das Problem nicht reproduzieren.
...4 Smilies, bei denen ich mal wild zwischen den 3 Hüpfern umgeschaltet habe
Ok, kann es reporoduzieren.
Der Fehler liegt im
Image1.Picture.Assign(gif).
Also ein bug im Gif Filter oder der TImage Komponente
Man müsste warscheinlich nur das Image1.Picture leeren, bevor es Assigned wird.
Ich schau mal heute Abend...
TPicture hat leider kein Clear
, TGifImage aber schon.
Evtl. geht folgendes:
Delphi-Quellcode:
...
gif := TGifImage.Create;
try
gif.LoadFromResourceName(HInstance, 'SMILE' + LeedingZero(i));
(Picture as TGifImage).Clear; // <- muß ich aber noch testen !!!
Picture.Assign(gif);
finally
gif.Free;
end;
...