if Dbgrid1.DataSource.DataSet.RecNo mod 2=0 then
begin
DBGrid1.Canvas.Brush.Color:=$00eaeaea;
DBGrid1.Canvas.FillRect(rect);
DBGrid1.Canvas.font.color:=clblack;
end
else
begin
DBGrid1.Canvas.Brush.Color:=clwhite;
DBGrid1.Canvas.FillRect(rect);
DBGrid1.Canvas.font.color:=clblack;
end;
if ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then
begin
DBGrid1.Canvas.Brush.Color:=clinfobk;
DBGrid1.Canvas.FillRect(rect);
DBGrid1.Canvas.font.color:=clblack;
end;
DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);