根据条件设置GRID的具体的一个单元格的颜色。我是说“单元格”，不是一行的颜色。

[GradyLau]

根据条件设置GRID的具体的一个单元格的颜色。
我是说“单元格”，不是一行的颜色。canvas.brush.color只能控制一行。
如何解决这个问题，或者有什么控件可以实现。或者还是自己改控件。
请大虾指点！

[chinaandys]

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if adoquery1.recno=2 then
dbgrid1.brush.color:=clred;
dbgrid1.DefaultDrawColumnCell(sender,rect,datacol,column,state);
end;

[Heyongfeng]

procedure Tddgl.all_dbgDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
zt,s:string;
begin
if tmp_cds.RecordCount=0 then exit;

if column.FieldName='zt' then
begin
zt:=column.Field.AsString;
if (zt='1')or(zt='0') then s:=' '
else s:='已验收';

all_dbg.Canvas.Font.Color := clRed;
all_dbg.Canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2,s);
all_dbg.Canvas.Font.Color := clBlack;
end;
end;