Раскрашивание строк в DBGrid по нечетным числам - Delphi

[S_007]

Добрый День! Ребята подскажите, как раскрасить строки в DBGrid строго через одну, если строка удаляется или добавляется - одна строка остается белая, как есть по умолчанию - другая например, чуть серая?
База данных Access, подключение ADOTable, в одной колонке имеется счетчик, может по нему можно сделать как-то, чтоб например по нечетным числам был серый цвет строки, а по четным оставался белым
С уваженитем

[Stilet]

Именно так.
Опиши OnDrawDataCell примерно так:

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
  holdColor: TColor;e,u:integer;
begin
 with DBGrid1.Canvas do begin
  if odd(TDbGrid(Sender).DataSource.DataSet.FieldByName('Номер').AsInteger) then  begin
   Brush.Color:=clWhite
   Font.Color:=clblack;
  end else begin
   Brush.Color:=clblack;
   Font.Color:=clWhite;
  end;
  FillRect(rect);
  TextOut(Rect.Left,Rect.Top,Field.AsString);
 end;
end;

Идея ясна?

[S_007]

Stilet, Спасибо! Идея ясна, счас попробую...

[Stilet]

Давай, удачи )
Если что поиском по форуму по слову OnDrawDataCell - примеров будет море.

[Аватар]

в одной колонке имеется счетчик

Не очень, могут быть дырки и обязательно будут. Лучше по RecNo, например

[S_007]

Сообщение от Stilet

Давай, удачи )
Если что поиском по форуму по слову OnDrawDataCell - примеров будет море.

примеров то море, только то что надо не нашел... потому и обратился к вам!

Сообщение от Аватар

Не очень, могут быть дырки и обязательно будут. Лучше по RecNo, например

Спасибо вам! Но как?

[S_007]

Stilet, Ваш пример попробовал, почему-то абсолютно ничего не происходит, ниче не закрашивается...

[S_007]

Stilet, прошу пощения, Ваш пример работает, Спасибо!! Только если я включаю сортировку то все ломается....
А если тупо через одну строку другими цветами без привязки ни к чему, как сделать?

[Stilet]

Только если я включаю сортировку то все ломается....

А выше Аватар говорил с чем сравнивать нужно.

[S_007]

А как это реализовать как советовал Аватар если Вам не трудно можете пример дать?