我的一点发现: DBGridEh自带的实现自动调整列宽…

摘: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域,才可以调用

社区帖子:http://community.csdn.net/Expert/topic/3899/3899838.xml?temp=.1041681

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有