Цвет строки в DBGrid

[Pavidlo]

Здравствуйте, не могу реализовать свою задумку. Нужно чтобы в DBgrid выделялась текущая строка. Код которым я это реализую в delphi в lazarus не работает.

[dunin]

и?

[Pavidlo]

Что и? Может ктонить знает как это сделать?

[dunin]

Что сделать? Какой код не работает?

[Pavidlo]

Нужно, чтобы выделялась текущая строка в DBGrid.
код:

Код: Выделить всё

With TCustomDBGridCracker(Sender) Do
  begin  // <--

if DataLink.ActiveRecord = Row - 1 then
    begin
       Canvas.Brush.Color := clGrayText;
    end
     else
       Canvas.Brush.Color := clWhite;
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end; // <--  

При компиле ругается на DataLink

[dunin]

Хм... А не проще как-то так?

Код: Выделить всё

DbGrid1.options:= DbGrid1.options + [dgRowSelect];

[Pavidlo]

ээээ... Ну да, так гораздо проще. Спасибо