Hola.
Estuve viendo el código de roman, y funciona perfectamente. Tanto en el evento OnDrawColumnCell como en OnDrawDataCell.
Sólo tuve que cambiar un cast: TExDBGrid(DBGrid1) por TStringGrid(DBGrid1) por que desconozco el tipo TExtDBGrid.
Código Delphi
[-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Odd(Rect.Top div (TStringGrid(DBGrid1).DefaultRowHeight + Integer(dgRowLines in DBGrid1.Options))) then
DBGrid1.Canvas.Brush.Color:= clMoneyGreen
else
DBGrid1.Canvas.Brush.Color:= clCream;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
Muy interesante, no conocía esa forma de obtener la fila...
Saludos.
