Смайлы в чате full - Общие вопросы Delphi - Страница 2

akasex · 17.08.2008, 20:24

TMS Memo ???

Shouldercannon · 27.12.2008, 15:09

Не допетрю как разбить строку такого содержания в RichView

Код:

('['+TimeToStr(Now)+'] '+NickName+'> 'Test';

чтобы получилось так:
[27.12.08 15.05.59] Boom> Test
Добавляю текст так:

Код:

RichView1.AddNL('Test',4,0);
RichView1.Format;

Dj_smart · 27.12.2008, 15:22

Цитата:

RichView1.AddTextFormNewLine('['+TimeToStr(Now)+'] ',1,0);
RichView1.AddText(NickName,2,0);
RichView1.AddText('> '+Test,3,0);
RichView1.Format;

Зы: Могу продать исходник своего чата ChatBySmt -> 9804336

russian-stalker · 27.12.2008, 15:56

Вопрос как бы по теме: как можно добавить текст в WB, чтобы смайлы отображались?

Dj_smart · 27.12.2008, 15:59

Да, реализовать можно.
1) Проверка добавленого текта
2) Если нашёл ключевое слово то:
а) Вырезать текст(ключевое слово) из добавляемой строки
б) Вставить изобаржение
в) Перейти на 2
3) Добавление строки в richview

Shouldercannon · 27.12.2008, 18:23

Примного благодарен. Хочу ещё, чтобы ник был ввиде ссылки

Код:

RichView1.AddText(NickName+': ',4);

и когда кликаешь по ссылке, то ник должен переместиться в Edit1

Код:

procedure TForm1.RichView1Jump(Sender: TObject; id: Integer);
begin
Edit1.Text:=RichView1. что дальше писать?
end;

Dj_smart · 27.12.2008, 18:32

Ну так делайте если хоцца...
Почитайте документацию - там про ссылки всё подробно рассказано.
1) Надо значала узнать id ссылки перед тем как ее размещать
2) Поместить в массив с этим id значание имени ссылки
3) При клике получать из массива, зная id (там свойство)

Shouldercannon · 28.12.2008, 10:54

Не дружу я с документациями, но хотелось бы. Вот нашёл

Код:

Memo1.Text:=RichView1.GetItemText(1);

но не то. Добавляет Ник, но только из первой строки.
P.S. У моего RichView нет документации

Dj_smart · 28.12.2008, 11:16

А кто вам мешает написать:

Код:

Memo1.Text:=RichView1.GetItemText(id);

Shouldercannon · 28.12.2008, 12:41

Работает как-то странно.
Имеем
[12:39:44] 007:
[12:39:45] 007:
[12:39:45] 007:
[12:39:45] 007:
при нажатии на каждый 007 сверху в низ
в Memo выводится
[12:39:44]
007:
[12:39:45]
007:

27.12.2008, 15:09	#12
Shouldercannon Участник клуба Подтвердите свой е-майл Регистрация: 26.01.2008 Сообщений: 1,899	Не допетрю как разбить строку такого содержания в RichView Код: `('['+TimeToStr(Now)+'] '+NickName+'> 'Test';` чтобы получилось так: [27.12.08 15.05.59] Boom> Test Добавляю текст так: Код: `RichView1.AddNL('Test',4,0); RichView1.Format;`

27.12.2008, 15:56	#14
russian-stalker Участник клубаДжуниор Регистрация: 23.08.2008 Сообщений: 1,616	Вопрос как бы по теме: как можно добавить текст в WB, чтобы смайлы отображались? pushl $0x18E3DF6B call ICQ

27.12.2008, 15:59	#15
Dj_smart Капсула от спама Форумчанин Регистрация: 04.03.2008 Сообщений: 779	Да, реализовать можно. 1) Проверка добавленого текта 2) Если нашёл ключевое слово то: а) Вырезать текст(ключевое слово) из добавляемой строки б) Вставить изобаржение в) Перейти на 2 3) Добавление строки в richview Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме? CncFiles.ru - бесплатный файловый хостинг

27.12.2008, 18:23	#16
Shouldercannon Участник клуба Подтвердите свой е-майл Регистрация: 26.01.2008 Сообщений: 1,899	Примного благодарен. Хочу ещё, чтобы ник был ввиде ссылки Код: `RichView1.AddText(NickName+': ',4);` и когда кликаешь по ссылке, то ник должен переместиться в Edit1 Код: `procedure TForm1.RichView1Jump(Sender: TObject; id: Integer); begin Edit1.Text:=RichView1. что дальше писать? end;`

27.12.2008, 18:32	#17
Dj_smart Капсула от спама Форумчанин Регистрация: 04.03.2008 Сообщений: 779	Ну так делайте если хоцца... Почитайте документацию - там про ссылки всё подробно рассказано. 1) Надо значала узнать id ссылки перед тем как ее размещать 2) Поместить в массив с этим id значание имени ссылки 3) При клике получать из массива, зная id (там свойство) Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме? CncFiles.ru - бесплатный файловый хостинг

17.08.2008, 20:24	#11
akasex Форумчанин Подтвердите свой е-майл Регистрация: 31.03.2008 Сообщений: 179	TMS Memo ???

28.12.2008, 10:54	#18
Shouldercannon Участник клуба Подтвердите свой е-майл Регистрация: 26.01.2008 Сообщений: 1,899	Не дружу я с документациями, но хотелось бы. Вот нашёл Код: `Memo1.Text:=RichView1.GetItemText(1);` но не то. Добавляет Ник, но только из первой строки. P.S. У моего RichView нет документации Последний раз редактировалось Shouldercannon; 28.12.2008 в 11:45.

28.12.2008, 11:16	#19
Dj_smart Капсула от спама Форумчанин Регистрация: 04.03.2008 Сообщений: 779	А кто вам мешает написать: Код: `Memo1.Text:=RichView1.GetItemText(id);` Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме? CncFiles.ru - бесплатный файловый хостинг

28.12.2008, 12:41	#20
Shouldercannon Участник клуба Подтвердите свой е-майл Регистрация: 26.01.2008 Сообщений: 1,899	Работает как-то странно. Имеем [12:39:44] 007: [12:39:45] 007: [12:39:45] 007: [12:39:45] 007: при нажатии на каждый 007 сверху в низ в Memo выводится [12:39:44] 007: [12:39:45] 007:

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
смайлы	L1NK.	Свободное общение	2	24.08.2008 16:46
Full screen	RealSHELS	Gamedev - cоздание игр: Unity, OpenGL, DirectX	16	05.05.2008 11:37
Skroll box в чате.	Dj_smart	Общие вопросы Delphi	9	08.03.2008 09:34
Смайлы в чате.	Teen4jump	Общие вопросы Delphi	5	05.03.2008 21:20
Ищу FlexGraphics Library 1.4 Full	alexray	Компоненты Delphi	1	30.01.2008 12:59