RichView - гипертекстовые изображения

[krivetko-man]

Последние пару часов бился, бился с одной проблемой... тщетно...

Цель: Вставить изображение-ссылку.

Делаю приблизительно так:
procedure TForm2.Button1Click(Sender: TObject);
var
g:TGraphic;
Item: TRVGraphicItemInfo;
begin
g:=TGIFImage.Create;
g.LoadFromFile(ExtractFilePath(ParamStr(0))+'155.gif');
Item := TRVGraphicItemInfo.CreateEx(RichView1.RVData, g, rvvaBaseline);
item.ParaNo:=-1;
item.Hint:='ххх';
item.Tag:=Integer(StrNew(PChar('uuu')));
RichView1.AddItem('wwww',item);
RichView1.Format;
end;

Хинт пашет, ссылка нет. Причем событие onJump настроено правильно, и отлично реагирует на текст. Но вот изображения...

Помогите плиз!!!

Башку сломал уже :bac:

 

[asm64d]

Я так понимаю задача перед тобой стоит создать чат на основе RichView? Тогда скидываю тебе исхордники двух чатов на основе RichView, может они ответят на твои вопросы, и реализована вставка смайлов и обработка ссылок
Для просмотра ссылки Войди или Зарегистрируйся

 

[krivetko-man]

Не помогло!!!

Все что в этом чате продемонстрировано, я уже умею. Там просто втавляются рисунки и все.

А мне надо вставить рисунок, и чтобы при нажатии на него - выполнялось действие. Но оно не пашет! Нивкакую!!!