delphi DBGrid简单自绘（字体颜色、背景等）

从网上找的代码应该是C#写的，其实delphi 的操作类似：

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,

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

TGridDrawState State)

{

AnsiString name= Column->Field->DataSet->FieldByName("NAME")->AsString;

if(name=="功能科室"&&DataCol==1) //只绘制name为功能科室行和第二列的交集

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

if(name=="心电图室")

DBGrid1->Canvas->Font->Color=clGreen;

if(name=="胃镜室")

DBGrid1->Canvas->Brush->Color=clGreen;

DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);//是什么意思??

}

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。