Чат на делфи =)

[Lemo]

Вообщем фундамент положен:


Сообщение состоит из времени, ника и текста сообщения(скриншот в предвидущем посте)...

{Время, Ник, Сообщение}
   s := s+'['+TimeToStr(Time)+']'+ ' '+Nick+' - '+MessEdit.Text;
   {Отправление}
   ClientSocket1.Socket.SendText(s);

Я хочю у параметра Ник изменить цвет(что бы в чате норм выглядело), но ставить глупо:

 s := s+'['+TimeToStr(Time)+']'+ ' '+Nick.color:=clRed+' - '+MessEdit.Text;

Ваше мнение?!

[Stilet]

Я хочю у параметра Ник изменить цвет(что бы в чате норм выглядело), но ставить глупо:

Тут я бы применил RichEdit, в котором просто менять цвет.

[Lemo]

ща попробую! НашеЛ =)

[Lemo]

Как можно изменить цвет ника в чате:
Исходник Клиента (выложил текст файл, так как длинный код)
Только желательно не писать новые методы и тд, просто кто сможет данный исходник дописать конкретно изменение цвета ника...

[psycho-coder]

Тут без разделителей никуда.
Например строка будет такой

s := s+'['+TimeToStr(Time)+']'+ ' '+ #0 + Nick + #3 + ' - '+MessEdit.Text;

При получении сообщения парсишь, меняешь цвет между #0 и #3 и удаляешь #0 и #3.
Я так делал. Только исходники на старом харде выложить не смогу

[Lemo]

Вообще планирую разместить маленькую кнопку возле едита (НИК), которая будет отвечать за выбор цвета ника, ну что бы юзвери могли выбрать себе цвет, только не знаю как это можно сделать!

[psycho-coder]

Можно прикрутит ColorDialog.

[оффтоп]
моя ася: 362 311 002. Я ошибся ((((
[/оффтоп]

[Levsha100]

Вы используете МЕМО? Может попробовать замутить с TWebBrowser, тогда можно будет вставлять смайлики

[Lemo]

Использую ричэдит, со смайликами отдеьный разговор, сначало нужно решить вышепоставленную задачю...Хотя знаю нужно сразу решать, что бы не исключать возможность иного... =(

[Lemo]

http://www.programmersforum.ru/showp...4&postcount=26
Архив(клиент)
Сорри, у кого нет альфаскинов=> не будут отображаться некоторый компоненты
Выкладываю так исходник