isCOBOL Evolve : Appendices : Library Routines : W$CREATEFONT
W$CREATEFONT
The W$CREATEFONT library routine loads a font into memory even if it is not installed on the host system.
Note - Fonts used on video by controls titles and more generally by controls where user input is not possible (such as grid headings) require the font to be installed in the system as their text is rendered through HTML by the Framework.
Syntax:
 CALL "W$CREATEFONT" USING ttfName
                           fontLogicalName
                    GIVING returnCode
Parameters:
ttfName
PIC X(n)
Specifies the name of the ttf file representing the font.
 
Unless the file has been included in the program class file through the COPY RESOURCE statement, the framework will look for the file on disk.
 
During the search on disk, if ttfName specifies relative pathname, the framework will resolve the relative pathname in the current working directory.
fontLogicalName
PIC X(n)
Logical name used with the W$FONT and WFONT-GET-FONT functions.
Return code:
returnCode can be any numeric data item and provides additional information:
0
Operation failed.
1
Operation successful.
Examples:
Example - Enable a font from its disk .ttf file
working-storage section.
copy "isfonts.def".  
77  wfont-status            pic s99. 
77  h-font                  handle of font.
 
procedure division.
main.
  call "w$createfont" using "files/fsex2p00_public.ttf"
                            "Fixedsys Excelsior 2.00"
                     giving wfont-status
  if wfont-status = 0
     display message "w$createfont error: " wfont-status
     goback
  end-if.
  initialize wfont-data
  move "Fixedsys Excelsior 2.00" to wfont-name
  move "11"                      to wfont-size
  call "w$font" using wfont-get-font, h-font, wfont-data
               giving wfont-status
  if wfont-status < 0
     display message "w$font error: " wfont-status
     goback
  end-if.
  ...