易语言编辑框自适应文本宽度(完美纯源码)

.版本 2

.子程序 编辑框自适应宽度, 整数型, 公开, 返回自适应宽度
.参数 编辑框, 编辑框
.参数 立即设置, 逻辑型, 可空
.局部变量 hDC, 整数型
.局部变量 len, 整数型
.局部变量 Size, Size
.局部变量 hDC2, 整数型
.局部变量 hFont, 整数型
.局部变量 hFontOld, 整数型
.局部变量 str, 文本型

' 启发来自论坛组合框自适应
hDC ＝ GetDC (编辑框.取窗口句柄 ())
hFont ＝ SendMessage_ (编辑框.取窗口句柄 (), 49, 0, 0)
hDC2 ＝ CreateCompatibleDC (hDC)
hFontOld ＝ SelectObject (hDC2, hFont)
str ＝ 编辑框.内容
GetTextExtentPoint32 (hDC2, str, 取文本长度 (str), Size)
.如果真 (立即设置 ＝ 真)
    编辑框.宽度 ＝ Size.x ＋ 10  ' 适当增加距离
.如果真结束
.如果真 (hDC ≠ 0)
    ReleaseDC_ (编辑框.取窗口句柄 (), hDC)
.如果真结束
.如果真 (hFontOld ≠ 0)
    SelectObject (hDC2, hFontOld)
.如果真结束
.如果真 (hDC2 ≠ 0)
    DeleteDC (hDC2)
.如果真结束
返回 (Size.x)

.子程序 _按钮1_被单击

编辑框自适应宽度 (编辑框1, 真)
编辑框自适应宽度 (编辑框2, 真)
编辑框自适应宽度 (编辑框3, 真)

@困兽斗