Смайлики в TRichEdit

[ДралсяСошибками]

Добрый вечер!
Подскажите как сделать смайлики в проге чата. Например как в QIP'е.

[Stilet]

Я могу ошибаться но по-моему РичЭдит этого не сумеет. Давненько находил примеры с RichView.
Впрочем посмотри вот тут (может поймаешь идейку):
http://www.programmersforum.ru/showthread.php?t=13392
http://www.programmersforum.ru/showthread.php?t=152792

[ДралсяСошибками]

Ой, я к сожалению ошибся насчёт TRichEdit, я хочу использовать TRichViewEdit, погуглив нашёл несколько тем где используют TRichViewEdit + JvGIFAnimator, но без примера что-то не могу осилить, сейчас вот пытаюсь понять вот эту тему: http://www.programmersforum.ru/showthread.php?t=80119, никогда не думал что вставить смайлики в программу это целое искусство

[Shouldercannon]

Рабочий пример не только со смайла

[ДралсяСошибками]

Спасибо! Хороший пример
Только вот не понял где ограничение на 4 смайла и почему смайлы на мгновение замирают если кликнуть в RVE чата

[Shouldercannon]

Сообщение от ДралсяСошибками

Спасибо! Хороший пример
Только вот не понял где ограничение на 4 смайла

Ограничение на смайлы

      if Smiles Then
      Begin
        inc(SmileInMsg);
        if (SmileInMsg < 5) Then InsertSmileGif(cv, MSmtag, MSmInd); // Ограничение на количество вставляемых смайлов (4)
        Text := NextField(Text, MSmtag);
      End;

Сообщение от ДралсяСошибками

почему смайлы на мгновение замирают если кликнуть в RVE чата

Может быть версии RichView разные. Делалось на версии RichView 10.1 License Delphi 7

[ДралсяСошибками]

Спасибо! Теперь всё работает прекрасно