如何改变bcb5 中richedit一行的背景颜色。

[xie_zm]

如何改变bcb5 中richedit一行的背景颜色。这个不是字符的背景颜色，而是一整行的背景颜色，包括了字符和空格字符，象ultraedit中输入的背景颜色。或者有什么其他的编辑控件可以实现该功能。

[invalid]

下面的代码是分别以红色和蓝色显示信息在RichEdot中。
memoSocket是个RichEdit控件
//---------------------------------------------------------------------------
void __fastcall TformMain::AddMessage(AnsiString msg)
{
//自定义的memo显示函数,避免由于memo中的显示行数超过内存限制
if(memoSocket->Lines->Count>=MAXMEMOLINE)
{
if(Logfile)
fprintf(Logfile,"%s\n",memoSocket->Lines->Strings[0].c_str());
memoSocket->Lines->Delete(0);
}
memoSocket->SelAttributes->Color = clBlue;
memoSocket->Lines->Add(msg);
}
//---------------------------------------------------------------------------
void __fastcall TformMain::AddErrMessage(AnsiString msg)
{
//自定义的memo显示函数,避免由于memo中的显示行数超过内存限制
if(memoSocket->Lines->Count>=MAXMEMOLINE)
{
if(Logfile)
fprintf(Logfile,"%s\n",memoSocket->Lines->Strings[0].c_str());
memoSocket->Lines->Delete(0);
}
memoSocket->SelAttributes->Color = clRed;
memoSocket->Lines->Add(msg);

}

[invalid]

简单的说就是设置RichEdit的
SelAttributes->Color = clRed；
然后加入就可以，也可以选中一行后设置。

[wallacechao]

你用FIELDS里进行设置应该就可以了

[xie_zm]

谢谢你们了，但我所要的是一整行的背景颜色，并非字体颜色。就像选中的黑色背景，白色字体。

[invalid]

Indicates the foreground color of the text.
看看帮助怎么说吧。
__property Graphics::TColor Color = {read=GetColor, write=SetColor, nodefault};

Description

Use color to indicate the color of the actual characters. the background color is a property of the rich edit control that uses the TTextAttributes object, and should be set by the Color property of the rich edit control.

[李志林HZ]

我都试过了，好象不可以的样子！

[李志林HZ]

gz!