PureBasic Forums - English

Code: Select all

; At the start of my app, I add the font from the exe (never from disk):

Global myfont=AddFontMemResourceEx_(?MyFont_Start,?MyFont_End-?MyFont_Start,0,@"1")
If myfont=0
  MessageRequester("Error","App couldn't start correctly; please try again.")
  End
EndIf

LoadFont(0,"name",size) ; Name = the internal name of the font (not its filename).

; App goes here (main loop, procedures, etc).

; ...

; When app is ready to quit, release the font:

FreeFont(0)
RemoveFontMemResourceEx_(myfont)

End

DataSection
  MyFont_Start:
  IncludeBinary "MyFont.ttf"
  MyFont_End:
EndDataSection

; Done! :)

Code: Select all

DataSection
  start_myfont:
    IncludeBinary "myfontfile.ttf"
  end_myfont:
EndDataSection
 
Procedure.i LoadPrivateFont(strFontFile.s, strFontFace.s, *pFontStart, *pFontEnd, iPointSize.i, iFlags.i = 0)
  Protected hFont.i
  Protected hFile.i
  
  strFontFile = GetTemporaryDirectory() + strFontFile
  
  ;if font file doesn't already exist, write it to disk and register it for loading
  If FileSize(strFontFile) = -1 
    hFile = CreateFile(#PB_Any, strFontFile)
    
    If hFile
      WriteData(hFile, *pFontStart, *pFontEnd - *pFontStart)
      CloseFile(hFile)
    EndIf
  EndIf
  
  ;If font file can't be registered, we'll get the default font below
  RegisterFontFile(strFontFile)

  hFont = LoadFont(#PB_Any, strFontFace, iPointSize, iFlags)
  If Not IsFont(hFont)
    hFont = GetGadgetFont(#PB_Default)   ;or just loadfont another default font you'd like
  EndIf
  
  ProcedureReturn hFont
EndProcedure

Define hFont.i
hFont = LoadPrivateFont("myfontfile.ttf", "MyFont", ?start_myfont, ?end_myfont, 16)