; English forum: http://purebasic.myforums.net/viewtopic.php?t=6251&highlight= ; El_Choni ; 26. Mai 2003 ; Original PB function TextLength() needs a valid outputID Procedure TextWidth(text$) GetTextExtentPoint32_(GetDC_(0), text$, Len(text$), sz.SIZE) ProcedureReturn sz\cx EndProcedure Debug TextWidth("Test-String") ; ExecutableFormat=Windows ; CursorPosition=4 ; FirstLine=1 ; EOF