Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.09.02;
Скачать: [xml.tar.bz2];

Вниз

Цвет строк в 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.067 c
15-1185948726
alsov
2007-08-01 10:12
2007.09.02
Как реагировать на такой ответ заказчика?


15-1185889229
Alkid
2007-07-31 17:40
2007.09.02
Фриварный антивирус


15-1186308541
vrem
2007-08-05 14:09
2007.09.02
Стандартизация и программисты :)


1-1182725258
ssa
2007-06-25 02:47
2007.09.02
Как заменить выделенный текст в memo?


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





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский