RichView rvvaMiddle

[KoBRaAndrey]

Хочу вставлять смайлы в RichView, нашел в интернете код:

 procedure tform7.InsertSmile;
var
Gif: TGifImage;
begin
Gif := TGifImage.Create;
Gif.LoadFromFile('1.gif');
RichView1.AddPictureEx('', Gif, 0 , rvvaMiddle);
end;

В строчке RichView1.AddPictureEx('', Gif, 0 , rvvaMiddle); ругается на rvvaMiddle. Почему

[Kotofff]

1) Как именно ругается ? приведи строку ошибки ...
2) А почему после вставки ты не делаешь RichView1.Reformat ? Именно Reformat, а не Format - чтобы курсор остался на месте (т.е. после твоего смайлика), а не переместился в начало ....

P.S. Я всегда делаю через rvvaAbsMiddle

[KoBRaAndrey]

Kotofff можно ваш код?

[Kotofff]

Я работаю с анимированными смайлами не как с картинками, а как с объектами и применяю вставку объекта а не картинки ...

var
  tempGIF: TJvGIFAnimator;// компонент из библиотеки JEDI
....



  tempGIF := TJvGIFAnimator.Create(RV);
  tempGIF.Image.LoadFromResourceName(HInstance, sss, PChar('ANYOL1'));// предварительно всё "запихано" в ресурс
  tempGIF.Animate := true;
  RV.InsertControl('Smile', tempGIF, rvvaAbsMiddle);
  RV.Reformat;

[Razyiller]

Kotofff Доброго времени суток, как вы организовали вставку смайлика в RichEdit, т.е. обработку сообщения где есть и тект и смайл?если можно подскажите