Zebrar DBGrid

Pessoal:
Estou colocando a rotina abaixo para zebrar meu DataGrid, porém nas linhas
pintadas não é selecionado a linha toda e sim somente o primeiro campo.
Alguém pode me dar uma ajuda?

procedure TForm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin

if odd(IBQuerys.RecNo) then
begin
DBGrid1.Canvas.Brush.Color := clBtnFace;
DBGrid1.Canvas.Font.Color := clBlack;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawDataCell(Rect,Column.Field,State);

If gdFocused in State then
Begin
DBGrid1.Canvas.Brush.Color := clNavy;
DbGrid1.Canvas.Font.Color := clWhite;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawDataCell(Rect,Column.Field,State);
End;
End;
end;