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

Syntax:

GetFont ( [ cInitFontName , nInitFontSize , lBold , lItalic ,

anFontColor , 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] : { NIL , NIL , NIL }

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