Вниз
Скачать: 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
15-1185870543
savyhinst
2007-07-31 12:29
2007.09.02
Незавершаемость и прочие првлегии


15-1186083986
hybride
2007-08-02 23:46
2007.09.02
Вопрос про удаленку


2-1186807933
Alex7
2007-08-11 08:52
2007.09.02
SELECT DISTINCT :myParameter FROM ... можно ли так?


2-1186919229
Lavrenty
2007-08-12 15:47
2007.09.02
Подключение к сети


15-1186037340
iXT
2007-08-02 10:49
2007.09.02
Вопрос по сетке.




   Наверх