Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c
2-1186039851
Xmen
2007-08-02 11:30
2007.09.02
проблема с OraSQL.ParamByName


10-1136587080
levry
2006-01-07 01:38
2007.09.02
Excel: прозрачный Shape


2-1186564374
1c_user
2007-08-08 13:12
2007.09.02
Форма не показывается


2-1186902206
Aleksandrrr
2007-08-12 11:03
2007.09.02
записать в файл значения Edit


15-1186046769
Kolan
2007-08-02 13:26
2007.09.02
Нарушаете ли вы инкапсуляцию намерянно?




   Наверх