菜问题：dbgrid怎样设置多列变色的问题?(50分)

代码如下
procedure Tpdpdnewf.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
with dm.pd_hqry do begin
if fieldbyname('overquan').asinteger<=fieldbyname('quan').asinteger then
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawDataCell(Rect,dm.pd2_h_qryhh,state);
end;
end;
刚开始是可以变色的，但是dbgrid里的四列的数据都变得相同，
如a,a,a,a; b,b,b,b;
但现在连色都不变了，（里面的数据有满足条件的。），请指教。

你应该写到这个事件中去
DBGrid1DrawColumnCell

DBGrid1DrawColumnCell 我也试过了，变色是会变色但每一行数据都会变相同。
如：cc,cc,cc,cc;
bb,bb,bb,bb; 如何解决呢?是不是要设多列？

接受答案了.