各位大侠:如何控制dbgrid中行的背景显示颜色问题?先谢! 各位大侠:如何控制dbgrid中行的背景显示颜色问题?先谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TordersForm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if query1.fieldbyname('flag').asboolean=true then begin DBGrid1.Canvas.Brush.Color := clMoneyGreen; DBGrid1.Canvas.Font.Color := clRed; DBGrid1.Canvas.FillRect(Rect); end; DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);end; 请教一个MSCOMM控件编写串口程序的问题 ****小弟在开发一个IC卡程序,现在厂商给我提供了一些函数可是我不会用.大家帮忙看看吧**** 请问哪里有 Delphi 2007 MAC风格的界面控件下载? 先来先得分+在线等:请教一个相当菜的Quick Report问题 关于StringGrid,如何实现获取行字段的内容? 死亡总是比我们想象中更早的到来!!! 求两个字符串处理的函数?谢谢! 请问大家都是用什么工具制作安装程序的啊。(散分) 在哪里可以买到Mandrake 8.0中文版? 请问哪里有经典的数据库源代码下载的?(初……) 怎样使dbgrid的滚动条带颜色? 如果更改文件名??
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if query1.fieldbyname('flag').asboolean=true then
begin
DBGrid1.Canvas.Brush.Color := clMoneyGreen;
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.Canvas.FillRect(Rect);
end;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;