Search found 1 match
it's not working... for example: procedure TForm1.Button1Click(Sender: TObject); var gif: TGifImage; begin gif := TGIFImage.Create; gif.LoadFromFile('d:\1.gif'); RichView1.AnimationMode := rvaniOnFormat; RichView1.AddPictureExTag('', gif, -1, rvvaBaseline, 1); RichView1.FormatTail; end; if i set ...