Components for Delphi and C++ Builder.

TGridMainEh = class(TDBGridEh)

procedure TGridMainEh.GetCellParams(Column: TAxisBarEh; AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
  if Self.ActiveRecord = Self.row - 1 then
    Background := CursorColor;
end;

  mtData.LoadFromDataSet(oqData, -1, TLoadMode.lmCopy, False);

procedure TForm1.DBGridEh1AdvDrawDataCell(Sender: TCustomDBGridEh; Cell,
  AreaCell: TGridCoord; Column: TColumnEh; const ARect: TRect;
  var Params: TColCellParamsEh; var Processed: Boolean);
begin
  if (Sender.Row = Params.Row)  then
    Params.Background := clMoneyGreen;
end;