TDBGridEh 选中行，现在只等单元格着色，怎么整行着色

Question

Procedure TFrm_Base.grdDrawColumnCell(Sender:Tobject;
         const Rect:TRect;DataCol:Integer;Column:TColumnEh;
                State:TGridDrawState);
Begin
With TDBGridEh(Sender) do                                                  
  Begin
       if ((State=[gdSelected])or(State=[gdSelected,gdFocused])) Then   
       Begin            Canvas.Brush.Color:=$00C08080;      //选中行，现在只等单元格着色，怎么整行着色                        
       End
       Else
       Begin                                                           
            if DataSource.DataSet.RecNo mod 2<> 0 Then
               Canvas.Brush.Color:=clWhite
            else
                Canvas.Brush.Color:=$00CFFEFD;
       End;
       DefaultDrawColumnCell(Rect,DataCol,Column,State);  End;
End;

Answer 1

dbgrideh->optioneh->dghRowHight = true就可以了

Answer 2

定義
type
TCustomDBGridEh_DS= class(TCustomDBGridEh);if ((State=[gdSelected])or(State=[gdSelected,gdFocused])) Then
把上面這句改成:
if TCustomDBGrid_DS(Sender).DataLink.ActiveRecord=TCustomDBGrid_DS(Sender).Row-1  then

Answer 3

非常感谢在客户那里，我的win7旗舰版，无法装D7，在安装过程中一晃，说安装完，但什么东西都没有