RichEdit - разноцветные строчки

[Svop]

Как сделать разноцветные строчки в RichEdit?

[mihali4]

Где-то я уже предлагал метод решения проблем с этим компонентом, но что-то не могу найти. Придется повториться.
Создайте штатным виндусовым WordPad-ом нужный вам цветастый текст, потом откройте его, скажем, блокнотом, и посмотрите, какие коды используются для закраски.
К сожалению, в хэлпе и в известной мне литературе сведения по этому компоненту весьма скудные...

[SSM]

function TForm1.CurrText (Editor : TRichEdit): TTextAttributes;
begin
if Editor.SelLength > 0 then Result := Editor.SelAttributes
else Result := Editor.DefAttributes;
end;
Editor - собственно тот ричьэдит текст которого будет краситься. Если не выделен конкретный фрагмент текста, то цвет будет применяться ко всему введенному в ричьэдит тексту.

procedure TForm1.Button1Click(Sender: TObject);
begin
CurrText(MyRichEdit).Color := clRed;
end;
кроме цвета так же можно менять фонты, и многое другое. Кстати, если нажать контрол, и кликнуть мышкой например на TTextAttributes то редактор откроет модуль с объявлением этого класса. там можно подробненько посмотреть что он вообще умеет делать.

Удачки

[Svop]

Как можно выделять текст из программы?