Method

Font

Warning

This item was deprecated in version 2019r2. Please use System.FontAt as a replacement.

Description

Used to access the names the installed fonts (0-based).

Usage

result = Font(index)

Part	Type	Description
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).

Warning

An OutOfBoundsException is raised if index is less than 0 or greater than System - 1.

Notes

Fonts are accessed in alphabetical order where Font 0 is the first Font. Use the System 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.

Sample code

This is a function that determines if the Font named passed is installed on the user's computer:

Function FontAvailable(FontName As String) As Boolean
  Dim fc As Integer
  fc = FontCount - 1

  For i As Integer = 0 To fc
    If Font(i) = FontName Then
      Return True
    End If
  Next
  Return False
End Function

Compatibility

All project types on all supported operating systems.