Изменение цвета определенной строки в richedit

[qwas777]

Как изменить цвет определенной строки в richedit.
Например:
1строка: Текст красного цвета
2строка: Текст черного цвета
3строка: Текст синего цвета

[Serge_Bliznykov]

код взял из DelphiWord (чуток модифицировал под ваш вопрос):

procedure TForm1.Button1Click(Sender: TObject);
var StrCount, i, sstart : integer;
begin
  StrCount := 3; {интересуют только первые три строчки}
  if richedit1.lines.Count<StrCount then
     StrCount := richedit1.lines.Count;

  sstart := 0;
  for i := 0 to StrCount - 1 do
    begin
      richedit1.selstart := sstart;
      richedit1.sellength:=length(richedit1.lines[i]);
      case i of
        0: {первая строка}   richedit1.selattributes.color:=clRed;
        1: {вторая строка}   richedit1.selattributes.color:=clBlack;
        2: {третья строка}   richedit1.selattributes.color:=clBlue;
      end;
      sstart := sstart + length(RichEdit1.lines[i]) + 2;
    end;
end;

[Кольша]

Интересно, а вы пробовали искать?
1
2

[qwas777]

Спасибо, разобрался. Тему можно закрывать!