Цветен текст

Правя нещо от рода на чат програмите.
Искам репликите на чатърите да изилизат със различен цвят. Преди съм го правил със TRichEdit като се маркирваше част (даден ред примерно) от текста и му се сменяха атрибутите. Проблема ми е, че немога да се сетя как точно ставаше и опитите ми да го направя дотук са безуспешни.

Здравей,
това трябва да ти свърши работа

var
reChat:TRichEdit;
.
.
reChat.SelStart := Length(reChat.Text);
reChat.SelAttributes.Color := Functions.UserColor;
reChat.SelAttributes.Name := Functions.FontName;
reChat.SelAttributes.Size := Functions.FontSize;
reChat.SelAttributes.Charset := Functions.FontCharset;
reChat.SelText := TextToSend + #13#10;

AquilaX

____________
blog.horemag.net
умният знае кога да говори, мъдрият знае кога да мълчи

RichEdit1.SelAttributes.Color := clred;
RichEdit1.Lines.add('Text');

Един съвет - ползвай TWebBrowser (Internet Exploder) компонентата вместо TRichEdit. Тогава форматирането на текста е много по-добро чрез HTML.

чети и дишай по-леко