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

Delphi(Pascal) code

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;

[解决办法]
dbgrideh->optioneh->dghRowHight = true就可以了
[解决办法]
定
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