formato de un grid

[[eduarcol]]

Código Delphi [-]
procedure TBusquedas.grBusquedaDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
   if (sqBusqueda.RecNo mod 2) = 0 then
      If (gdFocused in State) then grBusqueda.canvas.brush.color := clNavy
      else grBusqueda.canvas.brush.color := clSilver;
  grBusqueda.DefaultDrawColumnCell(rect,DataCol,Column,State)

end;

Espero te sirva suerte