ehlibeva5.1如何让选中的记录高亮显示？

Question

此图为4.X版本，我如何实现此图中的效果？

Answer 1

补充一下：
我使用了分行颜色就不行代码如下：
或者反过来不用下面代码解决隔行不同颜色问题也行procedure TU.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
if d.UQ.RecNo mod 2 = 0 then
   (Sender as TDBGridEh).Canvas.Brush.Color := RGB(100,100,100) //定义背景颜色
 else
   (Sender as TDBGridEh).Canvas.Brush.Color := RGB(85,85,85); //定义背景颜色
if State = [gdSelected] then
  begin
  (Sender as TDBGridEh).Canvas.font.color := clwhite;
  (Sender as TDBGridEh).Canvas.Brush.Color := RGB(49,106,197);
  end
  else
  (Sender as TDBGridEh).Canvas.font.color := clwhite;
DBGridEh1.DefaultDrawColumnCell(rect,datacol,column,state);end;