cxgrid 根据不同条件改变行颜色

procedure TForm3.V1CustomDrawCell(Sender: TcxCustomGridTableView;
  ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
  var ADone: Boolean);
begin     //根据数据不同显示不同的颜色
  if VarAsType(AViewInfo.GridRecord.DisplayTexts[V1HTJHdate.Index],varDate)<Date then
  begin //如果交货日期已经超过，行为红色，否则为白色
        ACanvas.Canvas.Brush.Color:=clYellow;  //底色
        ACanvas.Font.Color:=clFuchsia;
      //  ACanvas.canvas.Font.Color:=clblack;
  end else
  ACanvas.Canvas.Brush.Color:=clwhite;
end;