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

[marcoszorrilla]

Código Delphi [-]
procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
   DataCol: Integer; Column: TColumn; State: TGridDrawState);
 begin
    if  (gdSelected in State)  then
    begin
    DBGrid1.Canvas.Brush.Color :=clInfobk;
    Dbgrid1.Canvas.Font.Style:=[fsBold];
    DBGrid1.Canvas.Font.Color:=ClBlack;
    DBGrid1.DefaultDrawColumnCell(Rect,Datacol,Column,State);
    end;
 end;

Aquí tienes un ejemplo, aunque creo que el problema que tienes es que no has marcado la opción:
Options: dgRowSelect = True.

Un Saludo.

[gmontes]

tenias razon, ese era el problema. muchas gracias