PureBasic Forums - English

Code: Select all

  OpenLibrary(0,"gdi32.dll")
  fontid=CallFunction(0,"AddFontMemResourceEx",?font,?end_font-?font,0,@"1")
  CloseLibrary(0)
  LoadFont(0,"anorexia",12)

DataSection
  font:
  IncludeBinary "anorexia.fon"
  end_font:
EndDataSection

Code: Select all

Global fontid

;OpenLibrary(0,"gdi32.dll")
fontid=AddFontMemResourceEx_(?font,?end_font-?font,0,@"1")
;CloseLibrary(0)
LoadFont(0,"SPACECRAFT",14)
  
OpenWindow(0,0,0,400,300,"Test",#PB_Window_SystemMenu| #PB_Window_ScreenCentered| #PB_Window_MaximizeGadget| #PB_Window_SizeGadget)
TextGadget(0,10,10,300,40,"This is a TEST",#SS_CENTERIMAGE | #SS_CENTER| #WS_BORDER)
SetGadgetFont(0,FontID(0))
SetGadgetColor(0,#PB_Gadget_FrontColor,#Red)
SetGadgetColor(0,#PB_Gadget_BackColor,#Yellow)
    

Repeat
           
  Select WaitWindowEvent()
      
      Case #PB_Event_CloseWindow
            RemoveFontMemResourceEx_(fontid)
            Quit = 1 
             
  EndSelect 

Until Quit = 1
End

DataSection
  font:
  IncludeBinary "SPACECRAFT.ttf"
  end_font:
EndDataSection