If not, then Image.Picture has not registered the TGifImage format with TPicture, which explains why you are getting an exception.
Unlike TImageEnView, TImage is a very old component and only recognizes the TBitmap and TIcon formats without the assistance of other libaries. If you add the other file formats like Jpeg or PngImage they will be recognized as well.
or you can just call hyieutils.IERegisterFormats which registers all the ImageEnIO supported file formats with TPicture and the other file types (gifimg, pngimage, jpg) do not have to be in uses. In this case, formats such as TIF, JP2, Jp2000 and all other ImageEnIO formats will be recognized by TImage.Picture.
procedure TForm1.FormCreate(Sender: TObject);
begin
IERegisterFormats;
OpenPictureDialog1.filter := GraphicFilter(TGraphic);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
IEUnRegisterFormats;
end;
Search
PasteFromClipboard crashes with GIF Image format
Posted - Mar 28 2014 : 10:27:18
