PureBasic Forums - English

Code: Select all

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Project name : Test RegisterFontFile
; File Name : Test RegisterFontFile.pb
; File version: 1.0.0
; Programming : OK
; Programmed by : StarBootics
; Date : September 25th, 2023
; Last Update : September 25th, 2023
; PureBasic code : V6.03 beta 9 LTS
; Platform : Windows, Linux, MacOS X
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Programming Notes
;
; 1. To test this code you have to download two fonts from :
;    https://www.dafont.com/videophreak.font
;    https://www.dafont.com/coolvetica.font
;
;    Do not install the fonts on your computer, place them in
;    same folder as this source.
;
; 2. According to the documentation, only TrueType font are 
;    supported but apparently OpenType font can registered as
;    well, at least on Linux. Confirmation on other OS is 
;    needed. If it's confirmed, the documentation need to be 
;    corrected accordingly.
;
; 3. The Debugger out is showing this under Linux Debian 12 :
;
;    /home/starbootics/
;    1
;    1
;
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

ProgramPath.s = GetPathPart(ProgramFilename())
Debug ProgramPath

If FileSize(ProgramPath + "Videophreak.ttf") > 0
  Debug RegisterFontFile(ProgramPath + "Videophreak.ttf")
  Font00 = LoadFont(0, "Videophreak", 15)
EndIf

If FileSize(ProgramPath + "coolvetica condensed rg.otf") > 0
  Debug RegisterFontFile(ProgramPath + "coolvetica condensed rg.otf")
  Font01 = LoadFont(1, "coolvetica condensed rg", 15)
EndIf

If CreateImage(0, 200, 200) And StartDrawing(ImageOutput(0))
  DrawingFont(Font00)
  DrawText(50,30,"Videophreak", RGB(255, 000, 0))
  DrawingFont(Font01)
  DrawText(50,60,"Coolvetica", RGB(000, 255, 0))
  StopDrawing() 
EndIf

If OpenWindow(0, 150, 150, 200, 200, "RegisterFontFile", #PB_Window_SystemMenu)
  
  ImageGadget(0, 0, 0, 200, 200, ImageID(0))
  
  Repeat
    Event = WaitWindowEvent()      
  Until Event = #PB_Event_CloseWindow
EndIf

; <<<<<<<<<<<<<<<<<<<<<<<
; <<<<< END OF FILE <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<