Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.09.02;
Скачать: CL | DM;

Вниз

Цвет строк в TMemo   Найти похожие ветки 

 
Lucifer ©   (2007-08-07 15:50) [0]

Здравствуйте!
Может это конечно и забитая тема, но у меня возникли проблемы с поиском ответом на данный вопрос. Проблема:
Пишу свой чат, в принцепе все работает, только хотелось бы что бы сообщения от разных собеседников приходили разными цветами.
Может кто-нибудь видел гдо  то такие компоненты, или знает решение данной проблемы.
Заранее благодарен за любую помощь!

З.Ы. Если будет возможность отрисовывать по ходу текста небольшие смайлики - то это будет просто прекрасно!


 
DVM ©   (2007-08-07 17:23) [1]

В TMemo строки разного цвета сделать нельзя. Для таких целей больше подходит TRichEdit. Кстати, и картинки в RichEdit тоже можно вставить.


 
JanMihail ©   (2007-08-07 22:51) [2]

RichEdit1.SelAttributes.Font.Color := нужный цвет


 
lucifer ©   (2007-08-08 12:03) [3]

Огромное спасибо!

А можно про вставку картинок по подробнее, а то до самого не доходит


 
DVM ©   (2007-08-08 12:25) [4]


> А можно про вставку картинок по подробнее, а то до самого
> не доходит

Это не так просто. Лучше взять готовый компонент, например, входящий в RxLib - TRxRichEdit


 
Lucifer ©   (2007-08-10 10:43) [5]

Примного благодарен!
Очень сильно выручили!


 
Vlad Oshin ©   (2007-08-10 10:50) [6]

кроме цвета

procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor; Size:byte; FFFont:TFontName);
begin
  with ARichEdit do
  begin
    SelStart := Length(Text);
    SelAttributes.Color := AColor;
    SelAttributes.Size := Size;
    SelAttributes.Name := FFFont;
//     SelAttributes.Style:= fsBold;
    Lines.Add(AText);
  end;
end;

............

AddColoredLine(RichEdit1, "    ---- = * = ----", clBlue,12,"MS Sans Serif");



Страницы: 1 вся ветка

Текущий архив: 2007.09.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.016 c
1-1182408497
Kolan
2007-06-21 10:48
2007.09.02
Не омгу подключить пакет, ругется что already on the search path


8-1164182824
DancerMan
2006-11-22 11:07
2007.09.02
*.JPEG true color -> 256 grays


2-1186039851
Xmen
2007-08-02 11:30
2007.09.02
проблема с OraSQL.ParamByName


15-1185680931
Вирт
2007-07-29 07:48
2007.09.02
Подскажите ListView с виртуальным селектом?


8-1164713466
Tar I
2006-11-28 14:31
2007.09.02
Вывод графики поверх видео