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;
cxgrid 根据不同条件改变行颜色
最新推荐文章于 2022-05-30 16:30:47 发布