Pintar una fila entera de un DBGrid y determinar columnas

[cslbcn]

No funciona bien del todo. Cuando se seleccionan filas de abajo hacia arriba los datos se suben, además que el color azul de la selección se mantiene en cada fila que pincho.
tengo este código hecho... por si sirve de algo

Código Delphi [-]
 if ((DModule1.ADOQuery2.RecNo mod 2) = 0) then
     begin
       if GdSelected in State then
       begin
         DBGPersonasEmp.Canvas.Brush.Color := clActiveCaption;     //         Draw(Rect.Left,Rect.Top, CheckRev.Picture.BitMap);
       end
       else
       begin
         DBGPersonasEmp.Canvas.Brush.Color := clWhite;     //         Draw(Rect.Left,Rect.Top, CheckRev.Picture.BitMap);
       end;
     end
     else
     begin
       if GdSelected in State then
       begin
         DBGPersonasEmp.Canvas.Brush.Color := clActiveCaption;     //         Draw(Rect.Left,Rect.Top, CheckRev.Picture.BitMap);
       end
       else
       begin
         DBGPersonasEmp.Canvas.Brush.Color := clBtnFace;     //         Draw(Rect.Left,Rect.Top, CheckRev.Picture.BitMap);
       end;
     end;

     DBGPersonasEmp.DefaultDrawDataCell(Rect, Column.Field, State);