;Autor: Hroudtwolf

EnableExplicit

Define EventID

Procedure AddFont()
  AddFontResource_("test.tft");Anpassen
  SendMessage_(#HWND_BROADCAST,#WM_FONTCHANGE,0,0)
  LoadFont(1,"test",10)
  
EndProcedure

Procedure RemoveFont()
  RemoveFontResource_("test.tft");Anpassen
  SendMessage_(#HWND_BROADCAST,#WM_FONTCHANGE,0,0)
  FreeFont(1)
  
EndProcedure

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  AddFont()
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf