cambiar color en fila seleccionada en un dbgrid

[gmontes]

consulte los hilos anteriores sobre el dbgrid y funciona el cambio de color en mi dbgrid , el problema es que solo me lo cambia en la celda que selecciono y yo quiero que se cambie en todo el renglon

mi base de datos es firebird 1.5 con delphi 6 y compnentes zeos

este es el procedimiento que tome de este foro.

procedure TFFactura.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdSelected in State) then
TDBGrid(sender).Canvas.Brush.Color:=clteal;
TDBGrid(sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

funciona perfecto,pero solo cambia la celda activa y no el renglon activo

mi dbgrid lo tomo de un select

alguna sugerencia?

gracias