;Autor: edel

EnableExplicit

Define EventID
Define Text$="Pure Basic Forever"
Define fontid=GetGadgetFont(#PB_Default)
Define breite

Procedure Textbreite(text.s, FontID)   
  Protected dc = GetDC_(0)
  Protected sz.Size
  
  SelectObject_(dc, FontID)
  GetTextExtentPoint32_(dc, text, Len(text), sz)
  ReleaseDC_(0, dc)
  
  ProcedureReturn sz\cx 
EndProcedure

breite = Textbreite(Text$, fontid) + 4 ; + 4 fuer den rahmen

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  TextGadget(1,10,10,breite,20,Text$,#PB_Text_Border)
  
  MessageRequester("","Textbreite in Pixel: "+Str(breite),0)
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf