/*
Function boolean GetTextExtentPoint32 (ulong hdcr, string lpString, long nCount, Ref point size) Library "gdi32.dll" Alias For "GetTextExtentPoint32W"

Function: of_GetTextSize(ref string as_text, ref integer ai_width, integer ai_height, ref unsignedlong aul_font, string as_colname)
*/	
string		ls_value, ls_format
Integer		li_Return
ULong		lul_Hdc, lul_hFont, lul_Handle
Point 		lstr_Size
StaticText	lst_text

li_Return = Parent.Dynamic Function OpenUserObject(lst_text)

If li_Return <>  1  Then RETURN li_Return

// get column format string
ls_format = this.Describe(as_colname + ".Format")
// give static text same font properties as column
lst_text.FaceName = this.Describe(as_colname + ".Font.Face")
lst_text.TextSize = Integer(this.Describe(as_colname + ".Font.Height"))
lst_text.Weight = Integer(this.Describe(as_colname + ".Font.Weight"))
// set italic property
If this.Describe(as_colname + ".Font.Italic") = "1" Then
   lst_text.Italic = True
Else
   lst_text.Italic = False
End If
// set charset property
CHOOSE CASE this.Describe(as_colname + ".Font.CharSet")
   CASE "0"
      lst_text.FontCharSet = ANSI!
   CASE "2"
      lst_text.FontCharSet = Symbol!
   CASE "128"
      lst_text.FontCharSet = ShiftJIS!
   CASE "255"
      lst_text.FontCharSet = OEM!
   CASE ELSE
      lst_text.FontCharSet = DefaultCharSet!
END CHOOSE
// set family property
CHOOSE CASE this.Describe(as_colname + ".Font.Family")
   CASE "1"
      lst_text.FontFamily = Roman!
   CASE "2"
      lst_text.FontFamily = Swiss!
   CASE "3"
      lst_text.FontFamily = Modern!
   CASE "4"
      lst_text.FontFamily = Script!
   CASE "5"
      lst_text.FontFamily = Decorative!
   CASE ELSE
      lst_text.FontFamily = AnyFont!
END CHOOSE
// set pitch property
CHOOSE CASE this.Describe(as_colname + ".Font.Pitch")
   CASE "1"
      lst_text.FontPitch = Fixed!
   CASE "2"
      lst_text.FontPitch = Variable!
   CASE ELSE
      lst_text.FontPitch = Default!
END CHOOSE
// create device context for statictext
ul_Handle = Handle(lst_text)
lul_hDC = GetDC(lul_Handle)
// get handle to the font used by statictext
lul_hFont = Send(lul_Handle, WM_GETFONT,  0 ,  0 )
// Select it into the device context
SelectObject(lul_hDC, lul_hFont)

aul_font = lul_hFont

ls_value = RightTrim(String(as_text, ls_format))
// determine text width
If Not GetTextExtentPoint32(lul_hDC, ls_value, Len(ls_value), lstr_Size) Then
    ReleaseDC(lul_Handle, lul_hDC)
    li_Return = Parent.Dynamic Function CloseUserObject(lst_text)
    Return - 1 
End If

ai_Width = lstr_Size.al_x
ai_Height = lstr_Size.al_y

ReleaseDC(lul_Handle, lul_Hdc)
//Destroy st_text
li_Return = Parent.Dynamic Function CloseUserObject(lst_text)

Return li_Return