Harun...
DBGrid'i satır satır Renklendirme.
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DBGrid1.DataSource.DataSet.RecNo mod 2 = 0 then
Dbgrid1.Canvas.brush.Color:=clBlue
else
if DBGrid1.DataSource.DataSet.RecNo mod 2 = 1 then
Dbgrid1.Canvas.Brush.Color:=clred ;
dbgrid1.Canvas.Brush.Color:=Dbgrid1.Canvas.Brush.Color;
Dbgrid1.DefaultDrawColumnCell(Rect,Datacol,column,state);
end;