Code: Select all
//INSERT GIF
GIF := TjvGIFImage.Create;
GIF.Assign(SmilieManager.GetSmilie(ord(sl[i][1])));
if not Gif.Empty then
form1.RichView1.AddPictureEx('',GIF,-1,rvvaBaseline)
else
GIF.Free;