请高手出马解决F1Book6.0版本编译安装时的问题。 ( 积分: 100 )

我想把f1book的版本换成6.0的，先卸载ActiveX，再Import c:/windows/system32/ttf16.ocx,在编译时提示incompatible type(不匹配的类型？)，请问高手怎么修改ttf160_tlb.pas,使其编译通过？
出错语句4210及4211行：
property ColWidth[nCol: Integer]: Smallint read Get_ColWidth write Set_ColWidth;
property RowHeight[nRow: Integer]: Smallint read Get_RowHeight write Set_RowHeight;

7392行：
function TF1BookView.Set_ColWidth(nCol: Integer
Param2: Smallint): HResult;
begin
Result := DefaultInterface.ColWidth(nCol);
end;
7947行：
function TF1BookView.Set_RowHeight(nRow: Integer
Param2: Smallint): HResult;
begin
Result := DefaultInterface.RowHeight(nRow);
end;

我想把f1book的版本换成6.0的，先卸载ActiveX，再Import c:/windows/system32/ttf16.ocx,在编译时提示incompatible type(不匹配的类型？)，请问高手怎么修改ttf160_tlb.pas,使其编译通过？
出错语句4210及4211行：
property ColWidth[nCol: Integer]: Smallint read Get_ColWidth write Set_ColWidth;
property RowHeight[nRow: Integer]: Smallint read Get_RowHeight write Set_RowHeight;

7392行：
function TF1BookView.Set_ColWidth(nCol: Integer
Param2: Smallint): HResult;
begin
Result := DefaultInterface.ColWidth(nCol);
end;
7947行：
function TF1BookView.Set_RowHeight(nRow: Integer
Param2: Smallint): HResult;
begin
Result := DefaultInterface.RowHeight(nRow);
end;

各位dfw,我自己解决了。散分！

能不能给我也安装一下f1book6.0，谢谢
my email:jerkyprg@21cn.com