********** * 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