Hallo
wenn ich ein animiertes Gif öffne, dann kommt
manch mal
nur das erstes Bild OK mit guter Qualität aber der Rest schlecht !
Und so öffne ich ein animiertes Bild:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
gif : TGifImage;
count: Integer;
begin
if OpenDialog1.Execute then begin
gif := TGifImage.Create;
gif.LoadFromFile(OpenDialog1.FileName);
Image1.Picture.Bitmap := gif.Images.SubImages[StrToInt(Edit1.Text)].Bitmap;
gif.free;
end;
end;
Ich habe getestet mit diesem Gif :
http://www.ahaaryog.com/construction_animated.gif