PureBoard

Code: Alles auswählen

#myWindow = 0

If OpenWindow(#myWindow, #PB_Ignore, #PB_Ignore, 100, 100, "123123123")
  
  StartDrawing(WindowOutput(#myWindow))
  myWidth  = TextWidth(GetWindowTitle(#myWindow))
  myHeight = TextHeight(GetWindowTitle(#myWindow))
  StopDrawing() 
  
  Debug myWidth
  Debug myHeight
  
  Repeat
  Until Event = #PB_Event_CloseWindow
  
EndIf

Code: Alles auswählen

Enumeration
	#SF_CAPTION
	#SF_ICON
	#SF_MENU
	#SF_MESSAGE
	#SF_SMCAPTION
	#SF_STATUS
EndEnumeration

Procedure GetSystemFont(nIndex)
	Protected phkResult, lpValueName.s, lpcbData, *lplf.LOGFONT, hLibGDI, Result
	
	Select nIndex
		Case #SF_CAPTION : lpValueName = "CaptionFont"
		Case #SF_ICON : lpValueName = "IconFont"
		Case #SF_MENU : lpValueName = "MenuFont"
		Case #SF_MESSAGE : lpValueName = "MessageFont"
		Case #SF_SMCAPTION : lpValueName = "SmCaptionFont"
		Case #SF_STATUS : lpValueName = "StatusFont"
	EndSelect
	
	RegOpenKeyEx_(#HKEY_CURRENT_USER,"Control Panel\Desktop\WindowMetrics",0,#KEY_READ,@phkResult)		
	RegQueryValueEx_(phkResult,lpValueName,0,0,0,@lpcbData)
 	*lplf = AllocateMemory(lpcbData)
	RegQueryValueEx_(phkResult,lpValueName,0,0,*lplf,@lpcbData)
	RegCloseKey_(phkResult)
	
	hLibGDI = OpenLibrary(#PB_Any,"Gdi32.dll")
	Result = CallFunction(hLibGDI,"CreateFontIndirectW",*lplf)
	CloseLibrary(hLibGDI)
	
	FreeMemory(*lplf)

	ProcedureReturn Result
EndProcedure

OpenWindow(0,0,0,320,240,"untitled window",#WS_CAPTION | #WS_SYSMENU | 1)
 
hFntCaption = GetSystemFont(#SF_CAPTION)

Caption$ = GetWindowTitle(0)

StartDrawing(WindowOutput(0))
DrawingFont(hFntCaption)
Box(10,10,200,100,#Red)
DrawText(20,20,Caption$)
Debug TextWidth(Caption$)
Debug TextHeight(Caption$)
StopDrawing()

DeleteObject_(hFntCaption)

While WaitWindowEvent() ! 16 : Wend