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