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

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以后的字段不行