您的位置:首页 > 编程语言 > Delphi

delphi Dbgrid 根据值的不同显示不同颜色

2015-04-08 09:49 134 查看
DBGrid1DrawColumnCell   事件中:

if Column.FieldName='STATUS' then
begin
if dm.qry1.FieldByName('STATUS').AsInteger=1 then
begin
dbgrid1.Canvas.Font.Color:=clRed;
end
else
dbgrid1.Canvas.Font.Color:=clBlack;
end;

dbgrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
注意:decode以后的字段不行
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: