Pintar fila completa en un DBgrid segun un dato

[ecfisa]

Hola BlueSteel.

¿ Que acción realizas en el editor de columnas ?

Yo hice una prueba dejando 2 columnas de las 9 que tiene una tabla y me funciona perfectamente en tiempo de ejecución.

Por si te pudiera servir para cotejar, este es el código que use para la prueba:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Odd(DBGrid1.DataSource.DataSet.RecNo) then
    DBGrid1.Canvas.Brush.Color := clMoneyGreen
  else
    DBGrid1.Canvas.Brush.Color := clCream;
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

Saludos.