t = GetAvailableFonts()
The table returned by this function will consist of several subtables. One subtable for each font. The subtables have the following elements initialized:
#FONTWEIGHT_THIN #FONTWEIGHT_EXTRALIGHT #FONTWEIGHT_ULTRALIGHT #FONTWEIGHT_LIGHT #FONTWEIGHT_BOOK #FONTWEIGHT_NORMAL #FONTWEIGHT_REGULAR #FONTWEIGHT_MEDIUM #FONTWEIGHT_SEMIBOLD #FONTWEIGHT_DEMIBOLD #FONTWEIGHT_BOLD #FONTWEIGHT_EXTRABOLD #FONTWEIGHT_ULTRABOLD #FONTWEIGHT_HEAVY #FONTWEIGHT_BLACK #FONTWEIGHT_EXTRABLACK #FONTWEIGHT_ULTRABLACK
#FONTSLANT_ROMAN #FONTSLANT_ITALIC #FONTSLANT_OBLIQUE
Trueif this font is a bitmap font,
Falseif it is a vector font. Vector fonts can be freely transformed and antialiased.
Please note that there is no guarantee that all calls to OpenFont() or
SetFont() will succeed with the fonts returned by this function. It can
often happen that OpenFont() and SetFont() will fail with a specific
font although it was returned in the available table by this function.
This is because
GetAvailableFonts() returns the available fonts for all
Hollywood font engines. When you call OpenFont() or SetFont(), however,
only one font engine can be specified. So if a call to OpenFont() fails
although the font was returned by
GetAvailableFonts(), then this is a
sign that you are using the wrong font engine to open this font. Simply
switch font engines in that case and it should work correctly.
t = GetAvailableFonts() For Local k = 0 To ListItems(t) - 1 DebugPrint("Family:", t[k].Family, "Weight:", t[k].Weight, "Slant:", t[k].Slant, "Bitmap:", t[k].Bitmap) NextThe code above lists all fonts available on this system.