********** >* Converts VFP foxels to screen pixels >* tnFoxels - fractional foxel value to convert >* tlVertical - Is this a Y coordinate? >* tcFontName - "Arial" for example >* tnFontSize - 10 >* tlFontBold - Is the font bold? >* tlFontItalics - Is the font in italics? >* tlFontUnderline - Is the font underlined? >***** >FUNCTION foxels_to_pixels >LPARAMETERS tnFoxels, tlVertical, tcFontName, tnFontSize, tlFontBold, tlFontItalics, tlFontUnderline >LOCAL lcStyle > ********** > * Note: B Bold > * I Italic > * N Normal > * O Outline > * Q Opaque > * S Shadow > * – Strikeout > * T Transparent > * U Underline > ***** > lcStyle = IIF(tlFontBold, "B", "") + IIF(tlFontItalics, "I", "") + IIF(tlFontUnderline, "U", "") > IF PCOUNT() > 2 > RETURN tnFoxels * FONTMETRIC(IIF(tlVertical, 1, 6), tcFontName, tnFontSize, lcStyle) > ELSE > RETURN tnFoxels * FONTMETRIC(IIF(tlVertical, 1, 6)) > ENDIF >