PureBasic Forums - English

Code: Select all

;
; 1.) Compile your .app
;
; 2.) Create the "Resources" directory within your .app/Contents/ directory
;
; 3.) Create a "fonts" directory within the Resources directory and copy your fonts there
;
; 4.) Add the following key and string to your Info.plist:
;     <key>ATSApplicationFontsPath</key>
;     <string>fonts</string>
;
;     the string "fonts" is the name of the directory
;     within your Resources folder, where your fonts are located
;
;
;
; The embedded font is „Crystal“ by Allen R Walden:
; http://www.fontspace.com/allen-r-walden/crystal
;
crystal = LoadFont(#PB_Any,"Crystal", 100, #PB_Font_HighQuality)
image   = CreateImage(#PB_Any, 800,600, 32, RGB(255,255,255))

If StartDrawing( ImageOutput(image) )
    DrawingFont( FontID(crystal) )
    DrawingMode(#PB_2DDrawing_Transparent)
    DrawText(10,10,"CRYSTAL FONT",RGB(0,0,0))
    StopDrawing()
EndIf

OpenWindow(0,0,0,800,600,"Load embedded font from .app",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ImageGadget(0,0,0,800,600,ImageID(image))
Repeat:Until WaitWindowEvent()=#PB_Event_CloseWindow