[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
R_EGAName()
Retrieve the name of an INTERNAL (built-in) EGA font
------------------------------------------------------------------------------
Syntax
cFontName := R_EGAName ( nFontNr )
Arguments
nFontNr Number of an INTERNAL EGA font.
nFontNr may range from 1 to R_MaxFnt ().
Returns
cFontName Name of the INTERNAL EGA font.
If an error is detected cFontName will be NIL.
Description
Retrieves the name of an INTERNAL (built-in) EGA font.
This function can, for example, be used to create a pick list
with INTERNAL fonts.
Example
*-- Number of available internal fonts
LOCAL nMaxFnt := R_MaxFnt ()
LOCAL nCnt
*-- Array with font names
LOCAL aIntFnt := {}
LOCAL nChoice
*-- Fill the array with the names of the INTERNAL EGA fonts
FOR nCnt := 1 TO nMaxFnt
AAdd ( aIntFnts, R_EGAName ( nCnt ) )
NEXT
*-- Let the user choose a INTERNAL EGA font
nChoice := AChoice ( 8, 23, 8 + nMaxFnt - 1, 56, aIntFnts )
[ ... ]
See Also:
R_EGAFnt()
R_MaxFnt()
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson