рисунок с текстом

← →
Bradobrei (2005-11-11 08:23) [0]

Вот я скачал компонент elRichView в котором может быть текст с рисунками. Теперь я хочу чтобы юзер ввели с ричедит1 тест и если он введет еще там :s: то добавиться рисунок. Я попробовал сделать так и если я ввожу туда например 123:s::s:321 то в elRichView1 будет 123(рисунок):s:321(рисунок)321
Скажите плиз как сделатЬ?

procedure TForm1.Image5Click(Sender: TObject);
var o,r,j: Integer;
s,t:string;
begin
r:=0;
With elRichView1.Objects do
begin
BeginUpdate;
try
for o:=0 to length(richedit1.Text)-1 do
begin
if ((richedit1.Text[o]=":") and (richedit1.Text[o+1]="s")
and (richedit1.Text[o+2]=":")) then
begin
s:=copy(richedit1.Text,r,o-1);
AddColorText(s, $000042CA);
AddGraphic(image13.Picture.Graphic, false);
r:=o+3;
end;
end;
finally
EndUpdate;
end;
t:=copy(richedit1.Text,r,length(richedit1.Text));
AddColorText(t, $000042CA);
AddBreak;
end;

← →
Al_Ba © (2005-11-11 08:34) [1]

> Вот я скачал компонент elRichView в котором может быть текст
> с рисунками.

А саму компоненту не подкинешь ?

← →
Bradobrei (2005-11-11 09:15) [2]

нашел на torry.ru

← →
Manok (2005-11-11 11:45) [3]

тоже хотел бы знать пишу тут чат

← →
Bradobrei (2005-11-11 16:39) [4]

ну кто нить подскаите плиз

Привет.
Лучший совет - эт пример, в инете есть много исходников (сам случайно скачал окло трёх, кажись) плюс есть библиотека джеди (там ещё пример).
И приемер класный (и вообще картинки можно добавить и в стандартный (ну а таблицы, вот с этим была и есть проблемка, но уже три компонента вырыл))
Ссылок, ссори, комп другой.

Угу elRichView - за него деньгу нужно платить...

рисунок с текстом Найти похожие ветки