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.
