Разноцветный текст

[garyanikin]

Здравствуйте.
Нужно что бы например в Memo текст добавлялся, точнее строки разного цвета
Например
if Edit.Text:=1 then
Memo1.Lines.Add := 'Блаблабла' красного цвета

Заранее спасибо.

[Deamonig]

Вод так:

if Edit.Text:=1 then
  begin
  Memo1.Font.Color:=lcRed;
  Memo1.Lines.Add := 'Блаблабла' ;
  end;

[IT-man]

В мемо не получится.лучше ричедит использовать и не lcred a clred

[garyanikin]

А можно подробней про RichEdit? Просто я только начал делфи изучать...

[Marsel737]

Сообщение от Квэнди

Пример с Trichedit
{
To color text in a TRichEdit, follow this two steps:

Um einen Text in einem TRichEdit einzufдrben, mьssen folgende 2 Schritte
gemacht werden:

1) Select the text with the SelStart, SelLength properties.
Markiere den Text mit SelStart, SelLength Eigenschaften.

2) Set the text attribtutes through the SelAttributes property.
Die Textattribute mit SelAttributes setzen.
}

{
1. Example/ Beispiel:

Add a colored line to a TRichEdit:
Eine farbige Zeile zu einem TRichEdit hinzufьgen:
}

procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
 begin
   with ARichEdit do
   begin
     SelStart := Length(Text);
     SelAttributes.Color := AColor;
     SelAttributes.Size := 8;
     SelAttributes.Name := 'MS Sans Serif';
     Lines.Add(AText);
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   AddColoredLine(RichEdit1, 'Hallo', clRed);
   AddColoredLine(RichEdit1, 'Hallo', clGreen);
 end;

{
2. Example/ Beispiel:

To color the 5 characters.
Die ersten 5 Zeichen im Richedit blau einfдrben.
}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   RichEdit1.SelStart  := 0;
   RichEdit1.SelLength := 5;
   RichEdit1.SelAttributes.Color := clBlue;
 end;

{
3. Example/ Beispiel: ( by www.delphimania.de)

To color a specified line with a color
So kann eine beliebige Zeile mit einer Farbe gefдrbt werden:
}

procedure RE_ColorLine(ARichEdit: TRichEdit; ARow: Integer; AColor: TColor);
 begin
   with ARichEdit do
   begin
     SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0);
     SelLength := Length(Lines[ARow - 1]);
     SelAttributes.Color := AColor;
     SelLength := 0;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ZeileFaerben(RichEdit1, 4, clGreen);
 end;

Пользуйтесь поиском

[garyanikin]

А где находится рич эдит??

[Utkin]

Вкладка Win32

Marsel737, а ты сам пробовал в нем работать? Совершенно невозможно раскрашивать так как тебе нужно. И ужасно медленно. И не дай Торвальдс тебе использовать вызов WinApi, имеющий хоть какое-то отношение к RichEdit'у...

[Ra1n]

А где находится рич эдит??

[Marsel737]

Utkin, да приходилось пользоваться, я использовал первый вариант:

procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
 begin
   with ARichEdit do
   begin
     SelStart := Length(Text);
     SelAttributes.Color := AColor;
     SelAttributes.Size := 8;
     SelAttributes.Name := 'MS Sans Serif';
     Lines.Add(AText);
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   AddColoredLine(RichEdit1, 'Hallo', clRed);
   AddColoredLine(RichEdit1, 'Hallo', clGreen);
 end;

Раскрашивал именно так как мне нужно. Может быть и медленно, не знаю, не ощутил, ведь смотря для чего нужно раскрашивать.

[garyanikin]

У меня два вопроса, какие настройки были использованы в примере?

  
SelAttributes.Size := 8;
SelAttributes.Name := 'MS Sans Serif';

И второй, можно ли взглянуть на вашего бота??