摘要: 1、根据条件更改某一单元格的颜色[delphi]procedureTMainFrm.First_DGDrawColumnCell(Sender:TObject;constRect:TRect;DataCol:Integer;Column:TColumn;State:TGridDrawState);beginifDM.FirstListStatus.AsString='生产'thenbeginFirst_DG.Canvas.Font.Color:=clGreenendelsebeginFirst_DG.Canvas.Font.Color:=clRed;end;ifDataCol= 阅读全文
posted @ 2013-08-12 12:02 Values 阅读(2624) 评论(0) 推荐(0)