Click above to get retro games delivered to your door ever month!

C4W_SetFont()
Get/set the font for Clipper output
------------------------------------------------------------------------------

Syntax
C4W_SetFont( [ <hFont> ] , [ [@] <nXChar> ] , [ [@] <nYChar> ] )
             -->   hOldFont

Arguments
<hFont> is the handle of the font to use.  Proportional fonts
are likely to cause problems, because Clipper assumes non-
proportional (fixed) fonts.

<nXChar> is the width to use for each character.  If it is
passed by reference (using Clipper's "@" operator), the
current value is returned.  If you are using a proportional
font, you probably need to experiment with this value.

<nYChar> is the height to use for each character.  If it is
passed by reference (using Clipper's "@" operator), the
current value is returned.

Returns
The old font (or current font, if <hFont> is NIL).

Description
This function lets you set the font used for Clipper output
(i.e. from QOUT/QQOUT, @ ... SAY, Tbrowse, etc.).

Example
// you can use fonts from CreateFont(). . .
hFont = GetStockObject( SYSTEM_FIXED_FONT )
C4W_SetFont( hFont )