如何设置DBGrid表格线条颜色以及表头颜色

叶倾晨 2011-04-29 04:13:08

如题，如何设置DBGrid表格线条颜色，我设置DBGrid中的 Color 是背景色，而不是线条颜色。
到底该怎么设置，希望高人指点，非常感谢！

...全文

206 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

叶倾晨 2011-05-10

打赏
举报

非常感谢以上两位的回复！！

周药师 2011-04-29

打赏
举报

修改标题栏颜色：
每列的Title-》Color属性，修改它就可以了

周药师 2011-04-29

打赏
举报



void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,

      const TRect &Rect, int DataCol, TColumn *Column,

      TGridDrawState State)

{

  DBGrid1->Canvas->TextRect(Rect,Rect.left,Rect.top,Column->Field->Text);

  DBGrid1->Canvas->Pen->Color=clRed;

  DBGrid1->Canvas->MoveTo(Rect.Left,Rect.Top-1);

  DBGrid1->Canvas->LineTo(Rect.left+Rect.Width(),Rect.Top-1);

  DBGrid1->Canvas->LineTo(Rect.left+Rect.Width(),Rect.Bottom);

}

缘中人 2011-04-29

打赏
举报

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
DBGrid1-> DefaultDrawColumnCell(Rect,DataCol,Column,State);
DBGrid1-> Canvas-> Pen-> Color=0X00ff0000; //定义画笔颜色(蓝色)
DBGrid1-> Canvas-> MoveTo(Rect.Left, Rect.Bottom); //画笔定位
DBGrid1-> Canvas-> LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
DBGrid1-> Canvas-> Pen-> Color = 0X0000ff00; //定义画笔颜色(绿色)
DBGrid1-> Canvas-> MoveTo(Rect.Right, Rect.Top); //画笔定位
DBGrid1-> Canvas-> LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
}