type
TMyDBGrid = class(TDBGrid);
procedure DemoDrawColumnCell(
Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TMyDBGrid(Sender) do
begin
if DataLink.ActiveRecord = Row - 1 then
begin
Canvas.Brush.Color := $00FBF0E6;
Canvas.Font.Color := clBlack;
end else begin
Canvas.Brush.Color := Color;
Canvas.Font.Color := Font.Color;
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;