>local liHwnd,liHDC,liPixelsPerInchX,liPixelsPerInchY >* Constants >* log_pixels_x from wingdi 88 >* log_pixels_Y 90 >* twips_per_inch 1440 >* Declare APIs >declare integer GetActiveWindow in WIN32API >declare integer GetDC in WIN32API integer iHDC >declare integer GetDeviceCaps in WIN32API integer iHDC,integer iIndex >* Device context >liHwnd=GetActiveWindow() >liHDC=GetDC(liHwnd) >* Pixels per Inch >liPixelsPerInchX=GetDeviceCaps(liHDC,88) >liPixelsPerInchY=GetDeviceCaps(liHDC,90) >* Twips per pixel and store >unLTVX=1440/liPixelsPerInchX >unLTVY=1440/liPixelsPerInchY >*_vfp.AutoYield=.t. >CLEAR DLLS >/