发现: DBGridEh自带的实现自动调整列宽功(可用)

摘要

EhLib控件的强大表格处理能力，相信使用过的朋友都有领会，但DBGrdiEh没有发布自动根据栏宽的方法，的确是有点遗憾
不过还好，在DBGrdiEh的OptionsEh中，我们可以发现有个dghDblClickOptimizeColWidth选项，可以让用户在栏头的宽度调整位置上，双击鼠标以自动调整栏宽度
既然该功能已经实现，但却没能在DBGridEh发布的方法中找到该方法，经过笔者尝试，已经找到该方法，只要把它发布出来即可使用。具体过程如下：
首先我们找到DBGridEh.hpp87%E4%BB%B6">文件，并且备份，
根据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,才可以调

左右效果对比:

另加两个方法

1、在打开数据集或执行过查询后动态设置列的宽度，代码如下
   var
    I:Integer;
   For I := 0 to dbgrideh1.Columns.count-1 do
   begin
     dbgrideh1.Columns[I].width := 需要设置的宽度;
     dbgrideh1.Columns[I].Title.Alignment := taCenter; // 列头居中
   end;

2、以最优化的方法显示列宽，不会浪费一点空间，代码如下
   var
    I:Integer;
   For I := 0 to dbgrideh1.Columns.count-1 do
   begin
     dbgrideh1.Columns[I].OptimizeWidth;
   end;

📱 扫码关注公众号

扫描二维码关注我们，获取更多精彩内容
实时更新 · 干货满满