procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if dbgrid1.DataSource.DataSet.RecNo mod 2=0 then
dbgrid1.canvas.Brush.color:=$00BFE4E2 else
dbgrid1.canvas.brush.color:=$00E3FBFB;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;
DbGridEh中处理行的颜色
最新推荐文章于 2019-01-04 15:22:00 发布