Coloured lines in a rich text box

[exodus300]

How can I make each line in a Rich Text Box (or a Memo) a different colour, so the contents could look something lke this:

Line 1 is RED
Line 2 is GREEN
Another RED line
A BLUE line [Thanks in advance|Hope I helped you]
Exodus300

 

[exodus300]

Heh, I got it...

RichEdit1->SelAttributes->Color = clBlue;
RichEdit1->Lines->Add("A BLUE line");

The only problem is that if the user has hilighted some text in the box, that text changes colour and the new text remains black. The RichEdit is set to read-only (ReadOnly = true), but the user can still select text. How can I prevent that? [Thanks in advance|Hope I helped you]
Exodus300

 

[hennep]

to avoid selecting text try this:
void __fastcall TForm1::RichEdit1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
RichEdit1->SelLength = 0;
}
void __fastcall TForm1::RichEdit1KeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
RichEdit1->SelLength = 0;
}

see also this post from BTecho: thread101-449481

 

[butthead]

You can set the richedit->enabled to false.

You can still manipulate the text but the
text is inaccessible to the user.

depends on what you are useing the richedit for.
do you want to toggle enabled on or off. This may
be unfeasible.

tomcruz.net