窗口组件自适应宽度计算【最终版】

失落的情域

【原贴】：https://bbs.ijingyi.com/forum.ph ... 14863440&extra=
这个贴子 是对上面的帖子的补充。
上面帖子是在组件默认字体（小五，9pt（12PX））
的情况下，进行计算的，后面有位论坛网友提醒说 和字体是不是有关系。就继续研究了一下
效果图：
-------------------------------------------------------------------------------------------

  

子程序名	返回值类型	公开	备 注
取组件字体的单位像素	整数型
参数名	类 型	参考	可空	数组	备 注
编辑框	编辑框
标签	标签
按钮	按钮
超级列表框	超级列表框

变量名	类 型	静态	数组	备 注
PX	双精度小数型
单位像素	整数型			像素px

如果 (是否为空 (编辑框) ＝ 假)
编辑框.字体.字体大小 ＝ 编辑框.字体.字体大小
' 【易语言字体大小取出的是整数值，有些小数型字体大小的会被它 向上取整，但是实际最初设计的时候，貌似又是按照 小数（分数）设计的大小】
' 这一步是重新赋值 取出的取整大小 重新赋值 避免误差
' PS 避免 一些实际大小是 7.5pt 取出来是8  按8去计算 像素宽度 与实际像素占用 不一致.
' 感觉 应该设计一种分数 数据类型 避免小数误差
PX ＝ 编辑框.字体.字体大小 × 4 ÷ 3
如果 (是否为空 (标签) ＝ 假)
标签.字体.字体大小 ＝ 标签.字体.字体大小
PX ＝ 标签.字体.字体大小 × 4 ÷ 3
如果 (是否为空 (按钮) ＝ 假)
按钮.字体.字体大小 ＝ 按钮.字体.字体大小
PX ＝ 按钮.字体.字体大小 × 4 ÷ 3
如果 (是否为空 (超级列表框) ＝ 假)
超级列表框.字体.字体大小 ＝ 超级列表框.字体.字体大小
PX ＝ 超级列表框.字体.字体大小 × 4 ÷ 3
调试输出 (“PX”, PX)





如果 (PX ＞ 到整数 (PX))
单位像素 ＝ PX ÷ 2 ＋ 1
调试输出 (“单位像素＋ 1”, 单位像素)
单位像素 ＝ PX ÷ 2
调试输出 (“单位像素”, 单位像素)
返回 (单位像素)

子程序名	返回值类型	公开	备 注
_按钮_标签_编辑框_按钮_被单击

变量名	类 型	静态	数组	备 注
列标题宽度	整数型
列标题	文本型
PX	双精度小数型
单位像素	整数型			像素px
编辑框	编辑框
标签	标签
按钮	按钮

编辑框 ＝ 编辑框4
标签 ＝ 标签1
按钮 ＝ 按钮3
列标题 ＝ 编辑框2.内容
单位像素 ＝ 取组件字体的单位像素 (, 标签, )
列标题宽度 ＝ 取文本长度 (列标题) × 单位像素 ＋ 2
标签.标题 ＝ 列标题
标签.宽度 ＝ 列标题宽度
单位像素 ＝ 取组件字体的单位像素 (编辑框, , )
列标题宽度 ＝ 取文本长度 (列标题) × 单位像素 ＋ 2
编辑框.内容 ＝ 列标题
编辑框.宽度 ＝ 列标题宽度
单位像素 ＝ 取组件字体的单位像素 (, , 按钮)
列标题宽度 ＝ 取文本长度 (列标题) × 单位像素 ＋ 8
按钮.标题 ＝ 列标题
按钮.宽度 ＝ 列标题宽度
编辑框1.加入文本 (“字体大小：” ＋ 到文本 (编辑框4.字体.字体大小) ＋ “单位像素” ＋ 到文本 (单位像素) ＋ #换行符 )

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 取组件字体的单位像素, 整数型<br /> .参数 编辑框, 编辑框, 可空<br /> .参数 标签, 标签, 可空<br /> .参数 按钮, 按钮, 可空<br /> .参数 超级列表框, 超级列表框, 可空<br /> .局部变量 PX, 双精度小数型<br /> .局部变量 单位像素, 整数型, , , 像素px<br /> <br /> .如果 (是否为空 (编辑框) ＝ 假)<br />     编辑框.字体.字体大小 ＝ 编辑框.字体.字体大小<br />     ' 【易语言字体大小取出的是整数值，有些小数型字体大小的会被它 向上取整，但是实际最初设计的时候，貌似又是按照 小数（分数）设计的大小】<br />     ' 这一步是重新赋值 取出的取整大小 重新赋值 避免误差<br />     ' PS 避免 一些实际大小是 7.5pt 取出来是8  按8去计算 像素宽度 与实际像素占用 不一致.<br />     ' 感觉 应该设计一种分数 数据类型 避免小数误差<br /> <br />     PX ＝ 编辑框.字体.字体大小 × 4 ÷ 3<br /> .否则<br />     .如果 (是否为空 (标签) ＝ 假)<br />         标签.字体.字体大小 ＝ 标签.字体.字体大小<br /> <br />         PX ＝ 标签.字体.字体大小 × 4 ÷ 3<br />     .否则<br />         .如果 (是否为空 (按钮) ＝ 假)<br />             按钮.字体.字体大小 ＝ 按钮.字体.字体大小<br />             PX ＝ 按钮.字体.字体大小 × 4 ÷ 3<br />         .否则<br />             .如果 (是否为空 (超级列表框) ＝ 假)<br />                 超级列表框.字体.字体大小 ＝ 超级列表框.字体.字体大小<br />                 PX ＝ 超级列表框.字体.字体大小 × 4 ÷ 3<br />                 调试输出 (“PX”, PX)<br />             .否则<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> .如果 (PX ＞ 到整数 (PX))<br />     单位像素 ＝ PX ÷ 2 ＋ 1<br />     调试输出 (“单位像素＋ 1”, 单位像素)<br /> .否则<br />     单位像素 ＝ PX ÷ 2<br />     调试输出 (“单位像素”, 单位像素)<br /> .如果结束<br /> 返回 (单位像素)<br /> <br /> .子程序 _按钮_标签_编辑框_按钮_被单击<br /> .局部变量 列标题宽度, 整数型<br /> .局部变量 列标题, 文本型<br /> .局部变量 PX, 双精度小数型<br /> .局部变量 单位像素, 整数型, , , 像素px<br /> .局部变量 编辑框, 编辑框<br /> .局部变量 标签, 标签<br /> .局部变量 按钮, 按钮<br /> <br /> 编辑框 ＝ 编辑框4<br /> 标签 ＝ 标签1<br /> 按钮 ＝ 按钮3<br /> 列标题 ＝ 编辑框2.内容<br /> <br /> <br /> 单位像素 ＝ 取组件字体的单位像素 (, 标签, )<br /> 列标题宽度 ＝ 取文本长度 (列标题) × 单位像素 ＋ 2<br /> 标签.标题 ＝ 列标题<br /> 标签.宽度 ＝ 列标题宽度<br /> <br /> <br /> 单位像素 ＝ 取组件字体的单位像素 (编辑框, , )<br /> 列标题宽度 ＝ 取文本长度 (列标题) × 单位像素 ＋ 2<br /> 编辑框.内容 ＝ 列标题<br /> 编辑框.宽度 ＝ 列标题宽度<br /> <br /> <br /> 单位像素 ＝ 取组件字体的单位像素 (, , 按钮)<br /> 列标题宽度 ＝ 取文本长度 (列标题) × 单位像素 ＋ 8<br /> <br /> 按钮.标题 ＝ 列标题<br /> 按钮.宽度 ＝ 列标题宽度<br /> <br /> 编辑框1.加入文本 (“字体大小：” ＋ 到文本 (编辑框4.字体.字体大小) ＋ “单位像素” ＋ 到文本 (单位像素) ＋ #换行符)

【老爷们，觉得有用的，点点评分啊，老爷们】

750391

发现优秀帖子请给楼主点赞或评分打赏

ogion

感谢分享，很给力！~

1184798949

感谢分享

8503

谢谢分享!

该死dē蚊子

感谢分享哦。。

w521521

感谢分享，很给力！~

w521521

感谢分享，很给力！~

网络注册网员

支持支持

youxigw

感谢分享，很给力！~