Pintar fila completa en un DBgrid segun un dato

[pablopessoa]

Saludos!

tengo un dbgrid al que quiero que se le pinte la fila segun un valor de un campo de su datasource.
Por ejemplo:
si el campo "habilitado" del datasource es True se pinta de verde clarito.
Mirando en los post del foro lo pude hacer con el siguiente codigo :

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
       if Column.Field.Dataset.FieldbyName('habilitado').AsBoolean then
       If (gdFocused in State) then
         dbgrid1.canvas.brush.color := clGreen
       else
         dbgrid1.canvas.brush.color := clMoneyGreen;

     dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);
end;

cuando se dibuja la grilla efectivamente muestra la fila en verde clarito para las filas que cumplen con la condicion.
El problema es que cuando selecciono una fila, solo me pinta de verde oscuro la primer columna, no pinta toda la fila.
Como puedo hacer para que pinte toda la fila de verde oscuro cuando selecciono la fila?
Muchas gracias!!

[afunez2007]

Umm me parece que suena a un tipico caso de la propiedad RowSelect=False
Cuando la pones en true y seleccionas una fila esta se selecciona toda.

Ves si es por alli el asunto

Saludos

[pablopessoa]

Gracias por responder!!
te comento, la propiedad dgRowSelect esta en True y la propiedad DefaultDrawing esta en falso.

[osmuar_exp]

Hola, creo que te falta un begin / end en esta parte:

Código Delphi [-]
if Column.Field.Dataset.FieldbyName('habilitado').AsBoolean then
If (gdFocused in State) then

lo demás creo que está bien...

[pablopessoa]

Hola!
Mira, lo modifique de esta manera para que las que no cumplen con la condicion las pinte de rojo, agregando los begin y end como decias:

Código Delphi [-]
 if Column.Field.Dataset.FieldbyName('habilitado').AsBoolean then
       begin
          If (gdFocused in State) then
              dbgrid1.canvas.brush.color := clGreen
          else
              dbgrid1.canvas.brush.color := clMoneyGreen;
       end
       else
       begin
           If (gdFocused in State) then
              dbgrid1.canvas.brush.color := clRed
          else
              dbgrid1.canvas.brush.color := clOlive;
       end;
     dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);

Pero sigue pintando solo la primer columna de la fila seleccionada.
puede ser que sea esta sentencia la que lo provoca?

Código Delphi [-]
dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);

osea, al pasar DataCol y column no estoy provocando que pinte solo la primer columna?
Gracias a todos por responder e interesarse!

[roman]

A ver, no estoy seguro, pero no es lo mismo Focused que Selected. Prueba cambiando la condición a

Código Delphi [-]
if (gdSelected in State) then

// Saludos