InsertPicture() and Gifs

Return to index

Author

Message

Marcos Lommez

Posted: 05/24/2005 1:51:39

Im trying to insert animated gifs but when inserted there is no animation.

i have set AnimationMode to rvaniOnFormat

here is my code. What am i doing wrong?

procedure TForm1.Button2Click(Sender: TObject);

var

  Gif: TGifImage;

begin

  Gif := TGIFImage.Create;

  Gif.Assign(Image1.Picture.Graphic);

  RichViewEdit1.InsertPicture('', Gif, rvvaBaseline);

  RichViewEdit1.Format;

end;