Работа с Текстом в Memo

[MyLastHit]

А как можно в коде управлять цветом отдельной строки в RichEdit. Мне нужно к примеру чтоб она была синей. Пробовал RichEdit.Lines.Color := ...
не понимает...

[DomiNick]

Хм.....
Ну вот набросал функцию... Вроде работает...

// Сама функция (куда нибудь после implementation её вставить, может ещё прототип объявить понадобится):

Procedure ColorRichString(RichEdit: TRichEdit; Index: Integer; Color: TColor);
Var i, k: Integer;
Begin
k:=0;
for i:=0 To Index-1 Do
      k:=k+Length(RichEdit.Lines.Strings[i])+2;
RichEdit.SelStart:=k;
RichEdit.SelLength:=Length(RichEdit.Lines.Strings[Index]);
RichEdit.SelAttributes.Color:=Color;
RichEdit.SelLength:=0; // чтоб выделение сбросилось
End;

// Использование:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
ColorRichString(RichEdit1, // Контрол TRichEdit в котором нужно покрасить строку
                SpinEdit1.Value, // Номер окрашиваемой строки (нумерация с нуля)
                ColorGrid1.ForegroundColor // Цвет в который окрашиваем
                );
End;

[MyLastHit]

Огромное спасибо за код)) разобрался с цветом. А как быть скажем с Жирностью, курсивом, подчеркиванием? Как они вызываются?

[DomiNick]

А про это я уже давал ссыль... На предыдущей странице...

[MyLastHit]

DomiNick спасибо тебе огромное!
Остался последний вопрос: У меня в РичЭдите стоит Скрол. Строки в РичЭдите регулярно добавляюся (пока программа работает). Как сделать так чтобы Скрол не торчал на месте, а опускался к последней строчке?(т.е. всегда был в низу с каждой новой строчкой)

[DomiNick]

Хм... А как ты добавляешь-то строки?
Если я добавляю из таймера текст вот так:

RichEdit1.Lines.Add(TimeToStr(Now)+':  NewText!');

то оно само опускается вниз...