Pintar fila completa en un DBgrid segun un dato

[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

[jafera]

Yo tuve el mismo problema y lo solucioné así:

Código Delphi [-]
 
procedure TF_Camions.JvDBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
        If F_ModulDades.Camions_AuxACTUAL.Value = 'N' then
        begin
                JVDBGrid2.Canvas.Brush.Color := clRed;
                JVDBGrid2.DefaultDrawColumnCell(rect,DataCol,Column,State);
        end;
end;

Cada vez que entro en el grid, me pinta la fila en rojo si el valor vale 'N'

Espero te sirva

Josep

[Neftali [Germán.Estévez]]

Coincido con Román, creo que en el primer código que pusiste debería bastar con cambiar gdFocused por gdSelected.

El hecho de que lo haga con la primera columna es porque tienes el dgRowSelect a True y en ese caso la columna que toma el foco (por decirlo así) es la primera. Si pones esa propiedad a False, te pasará lo mismo, pero siempre con la columna cuya celda tenga el foco.

[pablopessoa]

Muchisimas Gracias a todos!!
Primero probe la solucion de Roman ya que era la que me producia menor cambio en el codigo y salio de diez!!
De todos modos jafera te agradezco mucho tu aporte. Que al final no haya utilizado tu solucion no le resta merito a tu intencion.
Saludos!

[[BlueSteel]]

Hola Amigos

Revisando este hilo para sacar un truquito y funciono super....

ahora tengo otra consulta... como se condiciona para pintar las filas de forma intermedia de todo el DbGrid? algo así como pintar las impares... o las pares???

Bueno, esto no esta sujeto a condicion del dato que tiene la Tabla...

Salu2