DefaultDrawcolumnCell(Rect, datacol,column, State);这句在ehlib4报错??? ( 积分: 100 )

使用环境为BDS2006，当时使用EHLIG3.6，升级后EHLIB4.0以后，再编译时出现以下错误：
[Pascal Error] tingboxiugai.pas(100): E2010 Incompatible types: 'DBGridEh.TGridDrawState' and 'tingboxiugai.TGridDrawState'。

procedure TtxForm.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
if msquery1.FieldByName('实际欠款').AsFloat>0 then
(Sender as TDBGridEh).Canvas.Brush.Color :=clGradientActiveCaption; //定义背景颜色

DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
with (Sender as TDBGridEh).Canvas do //画 cell 的边框
begin
Pen.Color := $00ff0000; //定义画笔颜色(蓝色)
MoveTo(Rect.Left, Rect.Bottom); //画笔定位
LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
Pen.Color := $0000ff00; //定义画笔颜色(绿色)
MoveTo(Rect.Right, Rect.Top); //画笔定位
LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
end;

end;