1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TDBGrid1.DrawGridColumnCell (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;  State: TGridDrawState);
begin
          if Odd(DBGrid1.DataSource.DataSet.RecNo) then begin
            if DBGrid1.Focused then begin
              if not (gdSelected in state) then begin
                DBGrid1.Canvas.Brush.Color := clYellow;
              end;
            end
            else begin
              if dgAlwaysShowSelection in DBGrid1.Options then begin
                if not (gdSelected in state) then begin
                  DBGrid1.Canvas.Brush.Color := clYellow;
                end;
              end
              else begin
                DBGrid1.Canvas.Brush.Color := clYellow;
              end;
            end;
          end;
end;