摘:http://www.gaoso.com/Article/program/Delphi/200501/8735.html
--------------------------------------------------------------------------
EhLib控件的强大表格处理能力,相信使用过的朋友都有领会,但DBGrdiEh没有发布自动根据栏宽的方法,的确是有点遗憾。 不过还好,在DBGrdiEh的OptionsEh中,我们可以发现有个dghDblClickOptimizeColWidth选项,可以让用户在栏头的宽度调整位置上,双击鼠标以自动调整栏宽度。 既然该功能已经实现,但却没能在DBGridEh发布的方法中找到该方法,经过笔者尝试,已经找到该方法,只要把它发布出来即可使用。具体过程如下: 首先我们找到DBGridEh.hpp文件,并且备份,
根据dghDblClickOptimizeColWidth的线索,我们在DBGridEh.pas中全文查找该关键字,在10514行中,找到以下代码段:
//
if (AGridState = gsColSizing) and (dghDblClickOptimizeColWidth in OptionsEh) then
OptimizeSelectedColsWidth(Columns[ASizingIndex - IndicatorOffset])
//
那么看来OptimizeSelectedColsWidth(TColumnEh* WithColumn)函数就是我们要的了! 在头文件DBGridEh.hpp中查找OptimizeSelectedColsWidth函数名,在1859行找到以下声明
void __fastcall OptimizeSelectedColsWidth(TColumnEh* WithColumn);
它是放在protected域中,我们注释掉改行,复制,并在public域中粘帖该声明,
于是OptimizeSelectedColsWidth就发布了。 因为我们没有修改pas源码部分,因此,无需重新编译,即可使用。
注意,该函数传递TColumnEh的指针,我们只要遍历DBGridEh的Column所有对象指针,即可调整完整个表格的Column宽度。以下为使用实例: for(int i=0;i<sDBGridEh->Columns->Count;i++ )
sDBGridEh->OptimizeSelectedColsWidth((TColumnEh *)sDBGridEh->Columns->Items[i]);
---------------------------------------------------------------------------------我的发现:根据上面的文章,我发现了在DBGridEh.pas中有个procedure OptimizeColsWidth(ColumnsList: TColumnsEhList);它是在protected中的,把它移动到public域,这样就在程序中就可以调用dbgrideh1.OptimizeColsWidth(DBGridEh1.VisibleColumns);来实现将DBGridEh中的所有列自动调整列宽了.当然,如果你只想调整一个列的列宽,你可以调用上文所说的:
procedure TCustomDBGridEh.OptimizeSelectedColsWidth(WithColumn: TColumnEh);
这个procedure也是在protected域,你也要把它移动到public域,才可以调用
--------------------------------------------------------------------------
EhLib控件的强大表格处理能力,相信使用过的朋友都有领会,但DBGrdiEh没有发布自动根据栏宽的方法,的确是有点遗憾。 不过还好,在DBGrdiEh的OptionsEh中,我们可以发现有个dghDblClickOptimizeColWidth选项,可以让用户在栏头的宽度调整位置上,双击鼠标以自动调整栏宽度。 既然该功能已经实现,但却没能在DBGridEh发布的方法中找到该方法,经过笔者尝试,已经找到该方法,只要把它发布出来即可使用。具体过程如下: 首先我们找到DBGridEh.hpp文件,并且备份,
根据dghDblClickOptimizeColWidth的线索,我们在DBGridEh.pas中全文查找该关键字,在10514行中,找到以下代码段:
//
if (AGridState = gsColSizing) and (dghDblClickOptimizeColWidth in OptionsEh) then
OptimizeSelectedColsWidth(Columns[ASizingIndex - IndicatorOffset])
//
那么看来OptimizeSelectedColsWidth(TColumnEh* WithColumn)函数就是我们要的了! 在头文件DBGridEh.hpp中查找OptimizeSelectedColsWidth函数名,在1859行找到以下声明
void __fastcall OptimizeSelectedColsWidth(TColumnEh* WithColumn);
它是放在protected域中,我们注释掉改行,复制,并在public域中粘帖该声明,
于是OptimizeSelectedColsWidth就发布了。 因为我们没有修改pas源码部分,因此,无需重新编译,即可使用。
注意,该函数传递TColumnEh的指针,我们只要遍历DBGridEh的Column所有对象指针,即可调整完整个表格的Column宽度。以下为使用实例: for(int i=0;i<sDBGridEh->Columns->Count;i++ )
sDBGridEh->OptimizeSelectedColsWidth((TColumnEh *)sDBGridEh->Columns->Items[i]);
---------------------------------------------------------------------------------我的发现:根据上面的文章,我发现了在DBGridEh.pas中有个procedure OptimizeColsWidth(ColumnsList: TColumnsEhList);它是在protected中的,把它移动到public域,这样就在程序中就可以调用dbgrideh1.OptimizeColsWidth(DBGridEh1.VisibleColumns);来实现将DBGridEh中的所有列自动调整列宽了.当然,如果你只想调整一个列的列宽,你可以调用上文所说的:
procedure TCustomDBGridEh.OptimizeSelectedColsWidth(WithColumn: TColumnEh);
这个procedure也是在protected域,你也要把它移动到public域,才可以调用
解决方案 »
- 您好,关于DrogDrop的问题。
- 怎样把MP3打包近EXE文件,不用按路径读取MP3文件
- ADOTable访问SQL Server数据库问题
- 请大家帮助我,在ADOX中如何在客户端增加存储过程!分数不够再加!
- Delphi7Delphi7和Delphi6有什么区别?
- 介绍一个好用的绘图工具????
- 各位高手快来,这里有美女,金钱,以及自由快来吧
- 【求救】,Delphi怎么实现英文短信收发,在线等。。。
- 为什么v:=VarArrayCreate([0,8], varString);会出错?Delphi6
- 用delphi 6.0 + ms sql7.0 ..用哪一個數據庫引擎最佳! BDE OR ADO .....
- 远程抓屏的问题请教大家!
- table控件的Filter问题(弱问)
我的Email是 [email protected],在此表示感谢
你用的试那个版本呀,
ehlib 3.5to:huangcf
DBGridEh可以设置双击列自动调整列宽,但是只能一个一个列调,只能由操作员双击鼠标来调.