GetFont()
Opens The 'Font Selection' System Dialog And Returns The Font Name, Size And Style Selected.

Syntax:

      GetFont ( [cInitFontName , nInitFontSize , lBold , lItalic ,

            anInitColor , lUnderLine , lStrikeOut , nCharset.] )

            --> aFont

The returned array has four elements:

      aFont [1] : Font Name (Character)

      aFont [2] : Font Size (Numeric)

      aFont [3] : Font Bold (Logical)

      aFont [4] : Font Italic (Logical)

      aFont [5] : Font Color (three element numeric array)

      aFont [6] : Font Underline (Logical)

      aFont [7] : Font StrikeOut (Logical)

      aFont [8] : Font Charset (Numeric)

If cancel is selected, the returned array contains the following values:

      aFont [1] : ""

      aFont [2] : 0

      aFont [3] : .F.

      aFont [4] : .F.

      aFont [5] : 0

      aFont [6] : .F.

      aFont [7] : .F.

      aFont [8] : 0

Available Charsets

      ANSI_CHARSET

      DEFAULT_CHARSET

      SYMBOL_CHARSET

      SHIFTJIS_CHARSET

      HANGEUL_CHARSET

      HANGUL_CHARSET

      GB2312_CHARSET

      CHINESEBIG5_CHARSET

      OEM_CHARSET

      JOHAB_CHARSET

      HEBREW_CHARSET

      ARABIC_CHARSET

      GREEK_CHARSET

      TURKISH_CHARSET

      VIETNAMESE_CHARSET

      THAI_CHARSET

      EASTEUROPE_CHARSET

      RUSSIAN_CHARSET

      MAC_CHARSET

      BALTIC_CHARSET