![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
рисунок с текстом
Bradobrei © (2005-11-11 08:23:00)Вот я скачал компонент 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;
аматор (2005-11-12 15:11:00) [1]Угу elRichView - за него деньгу нужно платить...
аматор (2005-11-11 20:29:00) [2]Привет.
Лучший совет - эт пример, в инете есть много исходников (сам случайно скачал окло трёх, кажись) плюс есть библиотека джеди (там ещё пример).
И приемер класный (и вообще картинки можно добавить и в стандартный (ну а таблицы, вот с этим была и есть проблемка, но уже три компонента вырыл))
Ссылок, ссори, комп другой.
Bradobrei (2005-11-11 16:39:00) [3]ну кто нить подскаите плиз
Manok (2005-11-11 11:45:00) [4]тоже хотел бы знать пишу тут чат
Bradobrei (2005-11-11 09:15:00) [5]нашел на torry.ru
Al_Ba (2005-11-11 08:34:00) [6]
> Вот я скачал компонент elRichView в котором может быть текст
> с рисунками.
А саму компоненту не подкинешь ?