If you are trying to size objects on a VFP form to match a specific font, you have to take into account the current screen DPI setting as well. Consider sizing a Rectangle object to surround a given piece of text. You know the fontname, fontsize, and the actual text string, but you don’t know the dimensions. No problem, you say, I’ll just use FONTMETRIC() and TXTWIDTH() to figure out the size of the text in pixels:<\/p>\n\n\n\n
iAvgCharWidth = FONTMETRIC(6, cFontName, cFontSize, \"\" )\niTextWidth = TXTWIDTH( cString, cFontName, cFontSize, \"\" ) * iAvgCharWidth\n<\/pre>\n\n\n\n…and now I can size my Rectangle appropriately, you say.<\/p>\n\n\n\n
Not so fast. What if your Windows display is set to 120 DPI? The text will be sized differently. You have to take this into account:<\/p>\n\n\n\n
*---------------------------------\n* Determine the screen DPI:\n*---------------------------------\n#define LOGPIXELSX 88\n\ndeclare integer GetDeviceCaps in WIN32API integer HDC, integer item\ndeclare integer GetDC in WIN32API integer hWnd\n*declare integer DeleteDC in WIN32API integer HDC\ndeclare integer ReleaseDC in WIN32API integer hWnd, integer HDC\n\nlocal hdc, screenDPI\nhdc = GetDC(0)\nTHIS.screenDPI = GetDeviceCaps( m.hdc, LOGPIXELSX )\nReleaseDC( 0, m.hdc )\n\nIF iScreenDPI <> 96\n iTextWidth = INT( (iTextWidth * iScreenDPI)\/96 )\nENDIF\n<\/pre>\n\n\n\nI was grappling with issue recently, dealing with a bug reported by someone who said that Pageframe text captions were getting truncated when they set their environment to 120DPI + “Large Fonts”.<\/p>\n\n\n\n