组合框下拉表宽度自动调整模块

.如果真 (参组合框.取项目数 () ＞ 0)
初始宽度 ＝ 取文本长度 (参组合框.取项目文本 (0))
私文本 ＝ 参组合框.取项目文本 (0)
.变量循环首 (0, 参组合框.取项目数 (), 1, 私行)
.如果真 (取文本长度 (参组合框.取项目文本 (私行)) ＞ 初始宽度)
初始宽度 ＝ 取文本长度 (参组合框.取项目文本 (私行))
私文本 ＝ 参组合框.取项目文本 (私行)
.如果真结束

.变量循环尾 ()
hDC ＝ GetDC (参组合框.取窗口句柄 ())
hFont ＝ SendMessage_ (参组合框.取窗口句柄 (), 49, 0, 0)
hDC2 ＝ CreateCompatibleDC (hDC)
hFontOld ＝ SelectObject (hDC2, hFont)
str ＝ 私文本
GetTextExtentPoint32 (hDC2, 私文本, 取文本长度 (私文本), Size)
.如果真 (hDC ≠ 0)
ReleaseDC_ (参组合框.取窗口句柄 (), hDC)
.如果真结束
.如果真 (hFontOld ≠ 0)
SelectObject (hDC2, hFontOld)
.如果真结束
.如果真 (hDC2 ≠ 0)
DeleteDC (hDC2)
.如果真结束
参组合框.发送信息 (352, Size.x ＋ 10, 0)