VPF::Разноцветный текст в Memo - Форум программистов

PIF

Дата 23.4.2005, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 27.1.2005

Репутация: нет
Всего: нет

Подскажите пожалуйста, как мне в Memo отдельные строки текста сделать, например, красным цветом?
Заранее благодарен!!!

PIF

Дата 23.4.2005, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 27.1.2005

Репутация: нет
Всего: нет

Или может быть можно использовать какой-нибудь другой компонент?

Albinos_x

Дата 23.4.2005, 16:02 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

RichEdit

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

PIF

Дата 23.4.2005, 16:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 27.1.2005

Репутация: нет
Всего: нет

А как в нем реализовать это?

Albinos_x

Дата 23.4.2005, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

пишешь

Код


RichEdit1.SelAttributes.Color:=clRed;

потом вставляешь текст

или сначало выделяешь текст

Код


RichEdit1.SelStart:=10;
RichEdit1.SelLength:=7;

потом уже

Код


RichEdit1.SelAttributes.Color:=clRed;

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

mvdr

Дата 24.4.2005, 03:52 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
Memo2.Lines.Clear;
Memo3.Lines.Clear;
Memo1.BorderStyle:=bsNone;
Memo2.BorderStyle:=bsNone;
Memo3.BorderStyle:=bsNone;
Memo1.Lines.Add(edit1.Text);
Memo2.Lines.Add(edit2.Text);
Memo3.Lines.Add(edit3.Text);
Memo1.Font.Color:=clRed;
Memo2.Font.Color:=clBlue;
Memo3.Font.Color:=clRed;
end;

как особое извращение, Мемо при этом вплотную друг к жругу

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

vintch

Дата 24.4.2005, 21:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 24.4.2005

Репутация: нет
Всего: нет

Я этим интересовался, но реально не требовалось.
Но вот - увидил, решил попробовать, заработало!

Вот код:

Код


RichEdit1.SelAttributes.Color := clRed;
RichEdit1.Lines.Add('Hello!');
RichEdit1.SelAttributes.Color := clBlue;
RichEdit1.Lines.Add('Hello!');
RichEdit1.SelAttributes.Color := clLime;
RichEdit1.Lines.Add('Hello!');

Я этого не знал, прочитал от Albinos_x smile

А мне понравилось smile

Я прямо как дитя smile

Albinos_x

Дата 24.4.2005, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

я бы не предложил, если бы не работало...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »