窗口模拟菜单带横分隔线

设备句柄 ＝ GetDC_ (控件句柄)
字体句柄 ＝ SendMessage_ (控件句柄, #WM_GETFONT, 0, 0)
原句柄 ＝ SelectObject_ (设备句柄, 字体句柄)
DrawText_ (设备句柄, 文本, 取文本长度 (文本), 文本矩形, #DT_CALCRECT)
SelectObject_ (设备句柄, 原句柄)
ReleaseDC_ (控件句柄, 设备句柄)
文本宽度 ＝ 文本矩形.右边 － 文本矩形.左边
文本高度 ＝ 文本矩形.底边 － 文本矩形.顶边
.如果 (是否为空 (字符高度) ＝ 真)
返回 (文本宽度)
.否则
字符高度 ＝ 文本高度
返回 (文本宽度)