摘要:
procedure TForm1.EjunDBGrid1CellGetColor(Sender: TObject; ACoord: TPoint; var AColor: TColor);begin if EjunDBGrid1.Cells[3, ACoord.Y].AsFloat < 0 then AColor := clRed else AColor := clWindow;end; 阅读全文
posted @ 2012-04-05 16:42 草庵书生 阅读(172) 评论(0) 推荐(0) 编辑