Разукрашивание текущей записи в DBGrid

[Brother Abbat]

Новый день, новая проблема. Разукрасил свой Dbgrid как Бог черепаху, осталось только что бы активная запись как нибудь выгодно выделялась на всем этом великолепии. Начал искать в интернетах и нашел такой код

  with AlternGrid(Sender) do
    begin
         if (DataSet.RecNo mod 2 = 1 ) then
         Canvas.Brush.Color :=$00FFA8A8//$00EFFEE9
         else
         Canvas.Brush.Color :=clSkyBlue;
      if  DataLink.ActiveRecord = Row-1 then
                               begin
                               Canvas.Font.Color:=clWhite;
                               Canvas.Brush.Color:=clGray;
                               end;                   end;
     DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column, State);

Друзья помогите разобраться. Что такое AlternGrid(Sender) и DatLink.ActiveRecord. Что то подсказывает мне, что activeRecord это то что мне нужно, но не найду такого свойства нив DataSete, ни в ADOQuerry.

[SERG1980]

Для таких целей намного удобней использовать RXDBGrid

[Brother Abbat]

Было бы неплохо, но в проекте практически все готово и как то неохота менять грид. Думал, что в стандартном сие можно будет реализовать. Что такое AlternGrid нашел. Не помогло.

[SERG1980]

А менять практически ничего не надо. а кинуть другой грид и подключить его к датасоурсу это недолго. Сам когдато также извращался со стандартной ДБГрид пока нервы не иссякли и тогда нашёл RxDBGrid.
В ней есть событие

TMainForm.RxDBGrid1GetCellParams(Sender: TObject; Field: TField;
  AFont: TFont; var Background: TColor; Highlight: Boolean);

где var Background: TColor - задаём цвет строки по какому нибудь условию
Highlight: Boolean - равна труе когда выбрана текущая запись

Ну и вот вам ответ как выделить текущую запись

procedure TMainForm.RxDBGrid1GetCellParams(Sender: TObject; Field: TField;
  AFont: TFont; var Background: TColor; Highlight: Boolean);
begin
if Highlight then
 begin
  Background:=clLime;
  Afont.Style:=[fsBold];
  AFont.Color:=clBlack;
 end;

[Brother Abbat]

Друзья, у меня все получилось. AlterGrid описал как класс TCustomDBGrid и все заработало, но я нифига не понимаю как работает этот код. Если кому не сложно (ну или есть свободное время) опишите алгоритм работы. Заранее спасибо.

[Brother Abbat]

to Serg1980 Нуу, я только начинаю писать и получается что все узнаю в процессе. Данный проект нужно уже вчера сдавать. Мелкие доработки будут по ходу. Просто думаю, что замена грида займет у меня достаточное время ))