摘要:
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)

浙公网安备 33010602011771号