Author Topic: Sample code for APNG Support  (Read 3178 times)

Offline Alp

  • Imaging User
  • *
  • Posts: 2
    • View Profile
Sample code for APNG Support
« on: 10 March 2010, 19:00:17 »
Hi all, is there any sample code for using apng image? I mean i want to show an apng (transparent) image on my form but i couldn't find any sample code for it.
Thanks right now...

Offline Galfar

  • Administrator
  • Imaging User
  • *****
  • Posts: 351
    • View Profile
    • Galfar's Homepage
Re: Sample code for APNG Support
« Reply #1 on: 12 March 2010, 18:16:31 »
Check out VCL Image Browser and LCL Imager demos - they both can load and display APNG images.
Basically you need to load the image into TMultiImage and then convert each frame to VCL TBitmap descendant which you can easily display on form.
 

Offline Alp

  • Imaging User
  • *
  • Posts: 2
    • View Profile
Re: Sample code for APNG Support
« Reply #2 on: 13 March 2010, 00:02:30 »
Thank you for your reply, but i mean i want to show the animation.
With another word, i want to assign an animated png file to any control then let it animates the file.. Is it possible? or should i assign all frames one by one?
Thanks right now..

Offline Galfar

  • Administrator
  • Imaging User
  • *****
  • Posts: 351
    • View Profile
    • Galfar's Homepage
Re: Sample code for APNG Support
« Reply #3 on: 13 March 2010, 14:13:09 »
There's no self animated TGraphic class in Imaging currently.
You could manually switch frames one by one (you'll need to know frame delays for proper animation read from the file - this will be in SVN repository during today). Another option is to modify ExtraGIF mod found in Imaging\Extras\Contrib\ExtraGIF (self animating class for GIF images) to support APNG images as well.

Offline Isaev

  • Imaging User
  • *
  • Posts: 1
    • View Profile
Re: Sample code for APNG Support
« Reply #4 on: 10 May 2017, 14:00:29 »
Basically you need to load the image into TMultiImage and then convert each frame to VCL TBitmap descendant which you can easily display on form.
Code: [Select]
Var
  FImage: ImagingClasses.TMultiImage;
begin
  FImage := TMultiImage.Create;
  FImage.LoadMultiFromFile('post_63_33.png');
  //img1.Picture.Bitmap.Assign(FImage); ???
  FImage.Free;
end;
How to display animation in TImage? Whether it is possible or I need ExtraGIF?
write an example of use if it isn't difficult, for apng file