怎么设置RICHEDIT中某一行的颜色

如何设置RICHEDIT中某一行的颜色
在EDIT1里输入某一行数。
然后按一个按钮，弹出颜色对话框，RICHEDIT里相应的行数里的字符颜色就变成选中的颜色，其他行数的字符颜色不变。
请教各位大侠。

[解决办法]

HTML code

void __fastcall TForm1::Button1Click(TObject *Sender){    int LineNo = Edit1->Text.ToIntDef(1);    RichEdit1->SelStart = SendMessage(RichEdit1->Handle, EM_LINEINDEX, LineNo - 1, 0);    RichEdit1->SelLength = RichEdit1->Lines->Strings[LineNo - 1.Length();    if(ColorDialog1->Execute())    {        RichEdit1->SelAttributes->Color = ColorDialog1->Color;    }}