gridEh自动列宽 OptimizeWidth

最新推荐文章于 2024-05-28 08:11:38 发布
原创 最新推荐文章于 2024-05-28 08:11:38 发布 · 1.8k 阅读 · 1 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
标签
#delphi #borland
本文详细介绍了如何使用OptimizeWidth方法和OptimizeColsWidth函数来优化DBGridEh组件的列宽度，特别关注了char类型字段的宽度计算，并通过Trim函数解决了实际宽度与显示宽度不匹配的问题。

调用OptimizeWidth方法

         for( int i=0;i<DBGridEh1->Columns->Count;i++ )
            DBGridEh1->Columns->Items[i]->OptimizeWidth();

 

 

OptimizeColsWidth

 

对于char类型的字段，例如char（100），可能实际没有存放100字节，eh计算字段的宽度是100，加了个trim函数就好了，效果不错

D:\Program Files\Borland\Delphi7\Source\ehl.5013\Delphi7\DBGridEh.pas

OptimizeColsWidth函数中修就可以了

procedure TCustomDBGridEh.OptimizeColsWidth(ColumnsList: TColumnsEhList);

CalcDataWidth

ARect := Rect(0,0,0,FStdDefaultRowHeight);

S :=Trim( Column.DisplayText);//就是这句话

自动调整delphi中dbgrid大小
02-27
自动调整delphi中dbgrid大小，对dbgrid中根据文本值自动调整单元格的大小, 自动调整delphi中dbgrid大小，对dbgrid中根据文本值自动调整单元格的大小
DELPHI 表格控件DBGridEh属性设置说明
05-05
DELPHI 表格控件DBGridEh属性设置详细说明
delphi 的表格控件EHLIB dbgrideh全属性设置详解
09-11 2344
花了点时间，把dbgrideh的属性全过了一遍。 属性 子选项 值 说明 Allowedoperations   [alopInsertEh,alopUpdateEh,alopDeleteEh,alopAppendEh] 允许操作类型：插入、更新、删除、追加 Allowed
dbgrideh自适应列宽
n29882942的专栏
12-11 5968
dbgrideh自动适应列宽
DBGridEh列宽自动适应内容的简单方法
热门推荐
老高的博客
07-10 1万+
最近遇到了一个问题，就是使用DBGridEh的时候，查询出的信息总是不能很完美的显示（完美……）主要现象就是 DBGridEh属性中提供的选项有AutoFitColWidths这个属性设置成true的话，整个表格会根据你的程序窗口大小来分配每个列的宽度，从而不会出现横向滚动条，看似很漂亮，不过我要的可不是这个……如果设置成false，整个表格难看到让人想吃掉显示器！（夸张了）表格的列宽是按照数据库
让你的dbgrideh的column自动适应宽度
paulchenbo的专栏
03-20 1274
EhLib控件的强大表格处理能力，相信使用过的朋友都有领会，但DBGrdiEh没有发布自动根据栏宽的方法，的确是有点遗憾。 不过还好，在DBGrdiEh的OptionsEh中，我们可以发现有个dghDblClickOptimizeColWidth选项，可以让用户在栏头的宽度调整位置上，双击鼠标以自动调整栏宽度。 既然该功能已经实现，但却没能在DBGridEh发布的方法中找到该方法，经过笔者
设置DBGridEH自适应列宽的最好方法
happycyp的专栏
12-24 3816
一直在找最好的根据DBGridEH(或者DBGrid)的内容和标题栏设置自适应列宽的方法，一直没有太好的。今天从园地上发现了源码：地址如下，非常好用。与大家分享：http://www.delphifans.com/SoftView/SoftView_2019.html 代码哪下：//需要定义这个类，才能使用OptimizeSelectedColsWidth方法调整列宽type  TZY
ABAP ALV
ChampaignWolf的专栏
10-10 7770
7. ALV 7.1.Layout重要字段 zebra(1) type c, " striped pattern斑马线显示，颜色隔行交替显示 edit(1) type c, " for grid only ALV是否可编辑，注意只对Grid模式有效，对List模式无效 f2code like sy-ucomm, "gs_layout-f2code='&ETA'.双击时触发的Funcode，这里为弹出详情窗口 colwidth_optimize(1) type c, ALV网格（单元格）宽度设置为自动
function alv （二）
小白
02-27 337
layout Z_TEST_01TOP DATA:gs_layout TYPE slis_layout_alv. Z_TEST_01FORM FORM build_layout . gs_layout-zebra = 'X'. "斑马纹输出 gs_layout-colwidth_optimize = 'X'."优化列宽 gs_layout-box_fieldname = 'BOX'. "选择框的字段，需要在内表增加BOX字段 "详细清单属性 gs_layout-detail
delphi DBGridEh
173713873
05-28 1468
在一列数据单元被重绘以前，你可以改变绘 制字体，背景色，对齐方式，图像索引，文本或检查框。还可在picklist中添加提示信息，也要求 是一行为一个值，并设tooltip为true，那么，运行时当鼠标移动到该数据单元格时在显示图片的同时还显示提示信息，怎么样，功能够强大吧！然后在Footers 编辑器中添加一个或多个显示列，显示列可以是字段值累加和、记录数合计、字段值或静态文件等集合类型，可以在设计时在ValueType属性中设置，也可 在运行时通过设置Footers.ValueType指定其类型。
ALV总结
weixin_30466039的博客
08-21 367
ALV 7.1.Layout重要字段 zebra(1)type c," striped pattern斑马线显示，颜色隔行交替显示edit(1)type c," for grid onlyALV是否可编辑，注意只对Grid模式有效，对List模式无效f2codelikesy-ucomm,"gs_layout-f2code='&ETA'.双击时触发的Funcode，...
动态调整DDBGridEh例宽度
刘磊
12-15 789
dbgrideh的events事件组下，找到oncolwidthschanged事件 procedure TForm1.DBGridEh1ColWidthsChanged(Sender: TObject); var i:Integer; begin //动态调整DDBGridEh例宽度 for i := 0 to DBGridEh1.Columns.Count - 1 do be
DBGridEh自动适应列宽
jinzhili的专栏
11-04 3764
自动调整列的宽度function DBGridRecordSize(mColumn: TColumnEh): Boolean;{ 返回记录数据网格列显示最大宽度是否成功 }begin  Result := False;  if not Assigned(mColumn.Field) then Exit;  mColumn.Field.Tag := Max(mColumn.Field.Tag,  T
delphi dbgrideh 列宽度自适应问题
haibin_hu的专栏
10-16 1730
按默认的设置添加一个列，显示效果（列宽无法自适应）： 修改宽度为65后（默认是64），显示正常： 后来又多次修改宽度，发现宽度只要不是64就会显示相应的宽度，这。。难道也是个bug?
Delphi中实现DBGrid列宽度自动调整
liuypengway的专栏
06-21 4172
      发现一些ERP的软件的查询，查询出来结果之后，有的字段列宽过大，这时候要通过右键--初始化表格设置 这样的方式来调整表格的列宽。这样操作让人觉得麻烦，突然在网上看到这样的一篇文章，记下来备用。来源：http://www.yesky.com/423/1882423.shtml 大多数程序设计的爱好者选择并使用Delphi来编写软件，都是被其中丰富而功能强大的VCL控件所吸引。
Delphi自动调整DBGrid的列宽
martian6125 's blog!
09-01 1666
//使dbGrid的内容自动适应他的宽度 procedure TForm1.MakeDBGridColumnsAutoFixItsWidth(objDBGrid:TDBGrid); var cc:integer; i,tmpLength:integer; objDataSet:TDataSet; aDgCLength:array of integer; begin cc:=objD...
数据网格自动适应宽度
l4angel的专栏
06-17 1114
数据网格自动适应宽度///////源代码开始uses Math;function DBGridRecordSize(mColumn: TColumn): Boolean;{ 返回记录数据网格列显示最大宽度是否成功 }begin Result := False; if not Assigned(mColumn.Field) then Exit; mColumn.Field.Tag := Max(mC
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值