Bounce for Sakura v1.0

[MaBuSE]

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;
...