获取字符串宽度
获取字符串宽度，而不是用len()获取字符个数，请知道的朋友教一下，不论用什么方法，只要能实现就可以了。
[解决办法]
//====================================================================
// 事件: of_getsize()
//--------------------------------
// 描述:
//--------------------------------
// 参数:
// value window aw 窗口
// value datawindowadw 数据窗口
// value long al_row 行
// value string as_col 列名
// referenceinteger ai_width 宽
// referenceinteger ai_height高
//--------------------------------
// 返回: integer
//--------------------------------
// 修改历史:
//
//====================================================================
Int li_height, li_width
String ls_text, ls_fontface, ls_fontsize, ls_weight, ls_italic, ls_underline
Boolean lb_italic, lb_underline
ls_text = adw.GetItemString(al_row, as_col)
IF IsNull(ls_text) Or Len(ls_text) = 0 THEN RETURN -1
ls_fontface = adw.Describe(as_col + '.font.face')
ls_fontsize = adw.Describe(as_col + '.font.height')
ls_weight = adw.Describe(as_col + '.font.weight')
ls_italic = adw.Describe(as_col + '.font.italic')
ls_underline = adw.Describe(as_col + '.font.underline')
IF ls_italic = '1' THEN
lb_italic = True
ELSE
lb_italic = False
END IF
IF ls_underline = '1' THEN
lb_underline = True
ELSE
lb_underline = False
END IF
Integerli_Len, li_Return, li_WM_GETFONT = 49 // hex 0x0031
ULonglul_Hdc, lul_Handle, lul_hFont
StaticTextlst_temp
size lstr_Size
IF IsNull(aw) Or Not IsValid (aw) THEN RETURN -1
li_Return = aw.OpenUserObject(lst_temp)
IF li_Return = 1 THEN
lst_temp.FaceName = ls_fontface
lst_temp.TextSize = Integer(ls_fontsize)
lst_temp.Weight = Integer(ls_weight)
lst_temp.Italic = lb_italic
lst_temp.Underline = lb_underline
lst_temp.width = 700
li_Len = Lena(ls_text)
lul_Handle = Handle(lst_temp)
lul_Hdc = GetDC(lul_Handle)
lul_hFont = Send(lul_Handle, li_WM_GETFONT, 0, 0)
SelectObject(lul_Hdc, lul_hFont)
IF Not GetTextExtentpoint32A(lul_Hdc, ls_text, li_Len, lstr_Size ) THEN
aw.CloseUserObject(lst_temp)
RETURN -1
END IF
ai_Width = PixelsToUnits ( lstr_Size.l_cx, XPixelsToUnits! )
ai_Height = PixelsToUnits ( lstr_Size.l_cy, YPixelsToUnits! )
//long ll_sp
//ll_sp = long(UnitsToPixels ( (700 - ai_width)/(li_len - 1), XUnitsToPixels!))
//SetTextCharacterExtra(lul_hdc, ll_sp)
//TextOut(lul_hdc, ls_text)
ReleaseDC(lul_Handle, lul_Hdc)
//lst_temp.width = ai_width
lst_temp.height = ai_height
lst_temp.Text = ls_text
lst_temp.Show()
//li_Return = aw.CloseUserObject(lst_temp)
END IF
RETURN li_Return
Function ulong GetDC(ulong hWnd) Library "USER32.DLL"
Function long ReleaseDC(ulong hWnd, ulong hdcr) Library "USER32.DLL"
Function boolean GetTextExtentPoint32A(ulong hdcr, string lpString, long nCount, ref size size) Library "GDI32.DLL" alias for "GetTextExtentPoint32A;Ansi"
Function ulong SelectObject(ulong hdc, ulong hWnd) Library "GDI32.DLL"
