*PixelsToPoints lparameters tnPixels, tlVertical #DEFINE TWIPSPERINCH 1440 #DEFINE TWIPSPERPOINT 20 lnPixelsPerInch = _GetPixelsPerInch(tlVertical) return ( tnPixels / lnPixelsPerInch * TWIPSPERINCH / TWIPSPERPOINT ) FUNCTION _GetPixelsPerInch LPARAMETERS tlVertical DECLARE INTEGER ReleaseDC IN Win32Api; INTEGER nwnd, INTEGER hdc DECLARE INTEGER GetDeviceCaps IN Win32API; INTEGER hdc, INTEGER nIndex DECLARE INTEGER GetWindowDC IN Win32API; INTEGER hWnd #DEFINE WU_LOGPIXELSX 88 #DEFINE WU_LOGPIXELSY 90 lnDC = GetWindowDC(0) IF tlVertical lnPixelsPerInch = GetDeviceCaps(lnDC, WU_LOGPIXELSY) &&Vertical ELSE lnPixelsPerInch = GetDeviceCaps(lnDC, WU_LOGPIXELSX) &&Horizontal ENDIF lnDC = ReleaseDC(0, lnDC) RETURN lnPixelsPerInchCetin