procedure TIngreso_Reg.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if Odd(DBGrid1.DataSource.DataSet.RecNo) then
if (gdFocused in State) then
DBGrid1.Canvas.Brush.Color := $OtroColor
else
DBGrid1.Canvas.Brush.Color := $00D6F8D9
else
if (gdFocused in State) then
DBGrid1.Canvas.Brush.Color := $OtroColor
else
DBGrid1.Canvas.Brush.Color := $00D9FDF8;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;