Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Разноцветный текст в Memo

Автор: PIF 23.4.2005, 14:52

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

Автор: PIF 23.4.2005, 15:10

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

Автор: Albinos_x 23.4.2005, 16:02

RichEdit

Автор: PIF 23.4.2005, 16:37

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

Автор: Albinos_x 23.4.2005, 16:54

пишешь

Код


RichEdit1.SelAttributes.Color:=clRed;

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

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

Код


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

потом уже

Код


RichEdit1.SelAttributes.Color:=clRed;

Автор: mvdr 24.4.2005, 03:52

Код


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

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

Вот код:

Код


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

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