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 os_size size) Library "GDI32.DLL"
Function ulong SelectObject(ulong hdc, ulong hWnd) Library "GDI32.DLL"

//////////////////////////////////////////////////////////////////////////////
//	Public Function:		of_GetTextSize
//	Arguments:  			aw_obj:  				Window where temporary text will be created
//							as_Text:				The text to be sized.
//							as_FontFace:		The font used.
//							ai_FontSize:			The point size of the font.
//							ab_Bold:				True - Bold, False - Normal.
//							ab_Italic:			True - Yes, False - No.
//							ab_Underline:		True - Yes, False - No.
//							ai_Height:			the height of the object in pixels
//							ai_Width:			the width of the object in pixels
//	Returns:  			Integer			 1  if successful, - 1  if an error occurrs
//	Description:  		Calculates the size of a text object in pixels
//////////////////////////////////////////////////////////////////////////////
//	Rev. History			Version
//							 5 . 0 		Initial version
//							 5 . 0 . 03 	Changed Uint variables to Ulong for NT4. 0  compatibility
//							 8 . 0 		Not deleting statictext object under certain conditions.
//////////////////////////////////////////////////////////////////////////////
//	Copyright ©  1996 - 2000  Sybase, Inc. and its subsidiaries.  All rights reserved.  Any distribution of the 
// PowerBuilder Foundation Classes (PFC) source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//////////////////////////////////////////////////////////////////////////////
Integer		li_Size, li_Len, li_Return, &
				li_WM_GETFONT =  49  	//  hex 0x0031
ULong			lul_Hdc, lul_Handle, lul_hFont
StaticText	lst_Temp
os_size 		lstr_Size

// Datawindow syntax specifies font point size is negative
li_Size = - 1  * ai_FontSize

if IsNull(aw_obj) Or Not IsValid (aw_obj) then
	return - 1 
end if

// Create a dummy StaticText Object on the window
// containing text with the desired characteristics
li_Return = aw_obj.OpenUserObject(lst_Temp)
If li_Return =  1  Then
	lst_Temp.FaceName = as_FontFace
	lst_Temp.TextSize = li_Size
	If ab_Bold Then
		lst_Temp.Weight =  700 
	Else
		lst_Temp.Weight =  400 
	End If
	lst_Temp.Italic = ab_Italic
	lst_Temp.Underline = ab_Underline

	li_Len = Len(as_Text)

	// Get the handle of the StaticText Object and create a Device Context
	lul_Handle = Handle(lst_Temp)
	lul_Hdc = GetDC(lul_Handle)

	// Get the font in use on the Static Text
	lul_hFont = Send(lul_Handle, li_WM_GETFONT,  0 ,  0 )

	// Select it into the device context
	SelectObject(lul_Hdc, lul_hFont)

	// Get the size of the text.
	If Not GetTextExtentpoint32A(lul_Hdc, as_Text, li_Len, lstr_Size ) Then 
		aw_obj.CloseUserObject(lst_Temp)
		Return - 1 
	End If

	ai_Height = lstr_Size.l_cy
	ai_Width = lstr_Size.l_cx

	ReleaseDC(lul_Handle, lul_Hdc)

	li_Return = aw_obj.CloseUserObject(lst_Temp)
End if

Return li_Return

//////////////////////////////////////////////////////////////////////////////
//	Copyright ©  1996 - 2000  Sybase, Inc. and its subsidiaries.  All rights reserved.  Any distribution of the 
// PowerBuilder Foundation Classes (PFC) source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//////////////////////////////////////////////////////////////////////////////

type os_size from structure
    long l_cx
    long l_cy
end type