Hallo,
ich wollte ein animiertes gif einbinden und habe mal ein wenig in den alten threads nachgelesen. Wenn ich das zum Laufen bringe, bleibt die Animation nach einiger Zeit stehen. Danach läßt sie sich nur noch für einen Durchlauf starten.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
demo : TGifImage;
Rect : TRect;
begin
demo := TGifImage.Create;
demo.LoadFromFile(extractfilepath(application.ExeName) + 'seegeranim.gif');
rect.Left := 0;
rect.Top := 0;
rect.Right := 200;
rect.Bottom := 200;
demo.Paint(Form1.Canvas,Rect,[goasync,goanimate,goLoopContinously,goTransparent]);
application.ProcessMessages;
end;
Weil ich es im MainThread starte habe ich goasync gewählt (sonst gab es Zugriffsverletzungen).
Was mache ich da noch falsch?
Grüße, Messie