From Xojo Documentation
| This item was deprecated in version 2019r2.
Please use System.FontAt as a replacement.
Used to access the names the installed fonts (0-based).
result = Font(index)
|result||String||The name of the font whose index number is passed. Result is in the appropriate WorldScript encoding.|
|index||Integer||The number of the font (0-based).|
|OutOfBoundsException||Raised if index is less than 0 or greater than FontCount - 1.|
Fonts are accessed in alphabetical order where font 0 is the first font. Use the FontCount function to determine the number of fonts.
Under macOS, Font returns font families instead of fonts. This is closer to the older Carbon behavior, but it does not return identical results.
Using Custom Fonts in your Applications
Both macOS and Windows have techniques for loading fonts for a specific application.
On macOS, you can use ATSApplicationFontsPath key in Info.plist. You add this key, specifying the relative path of the fonts in the Resources folder of your app bundle.
For Windows, the open-source Windows Functionality Suite provides a method (TemporarilyInstallFont) to do this.
This is a function that determines if the font named passed is installed on the user's computer:
Dim fc As Integer
fc = FontCount - 1
For i As Integer = 0 To fc
If Font(i) = FontName Then