????? ????? ????? ??? ????

?????? ????????? ?????? ?????????
???? ???????: 137556 - ??? ???????? ???? ????? ????? ??? ???????.
??? ????? ??? ???????. ????? "??? ??" ??? ??? ??????? ??? ????.
????? ???? | ?? ????

??????

???? ????????? ???????? ?? ??? ??????? ????? ??????? ????? ????? Foxtools.fll ??????? ????? ????? ??????? Microsoft Windows ????? (API) ?????? ?? ??? ??? ?????? ???? ????? ??????? ?? Windows ??????? ?? ???? ?????. ??? ??????? ????? API ???????:
GetDC()
GetDeviceCaps()
ReleaseDC()
				

??????? ????

????? ???????? ????? ??????? Foxtools.fll ???????? ?? FoxPro ?? Windows. ?? ????? ??? ??????? ??? ????? ???? ???? ?????. ??? ???? ???? ???????? ?????? GetDeviceCaps ??? ??? ????? ?????? ?? ?????? ???????? ??? ????? ?????????. ??? ???? ??? ????? ?????? ?????? 96 ????? Windows ?? "???? ?????". ??? ???? ??? ????? ?????? ?????? 120 ????? Windows ?? "???? ?????". ????????? ???????? ?? ?????? ??? ???? ??? ????????.
SET LIBRARY TO SYS(2004) + "FOXTOOLS.FLL" ADDITIVE

* create variables to pass index to GetDeviceCaps()
* this value cane be found in the WINGDI.H file

LOGPIXELSX = 88
LOGPIXELSY = 90

* get the handle to the device context

lnGetDC = RegFN("GetDC","I","I")
lnHDC = CallFN(lnGetDC,0)

* get the number of pixels per logical inch

lnGetLogPix = RegFN("GetDeviceCaps","II","I")
lnLogPixX = CallFN(lnGetLogPix,lnHDC,LOGPIXELSX)
lnLogPixY = CallFN(lnGetLogPix,lnHDC,LOGPIXELSY)

* determine if small or large fonts, either lnLogPixX or
* lnLogPixY may be used to test for the values 96 or 120

IF lnLogPixX < 96
  WAIT WINDOW "Windows is using smaller than Small Fonts"   
ELSE IF InLogPixX = 96
  WAIT WINDOW "Windows is using Small Fonts"   
ELSE IF InLogPixX < 120
  WAIT WINDOW "Windows is using between Small Fonts and Large Fonts"
ELSE IF IF lnLogPixX = 120
  WAIT WINDOW "Windows is using Large Fonts"
ELSE
  WAIT WINDOW "Windows is using larger than Large Fonts"
ENDIF

* release the handle to the device context

lnRelease = RegFN("ReleaseDC","II","I")
= CallFN(lnRelease,0,lnHDC)

* release the FOXTOOLS.FLL library

RELEASE LIBRARY SYS(2004) + "FOXTOOLS.FLL"
				

?????

????? ????? ????? Windows Microsoft ? "?????? ????? ????????? ???? ??????? 2: ????????" ????? 350-354 785.

?? ???? C:\Fpw26\Goodies\Foxtools Foxtools.wri.

?? ???? C:\C700\Include Wingdi.h

???????

???? ???????: 137556 - ????? ??? ??????: 24/???? ??????/1435 - ??????: 2.2
????? ???
  • Microsoft FoxPro 2.5b
  • Microsoft FoxPro 2.5a
  • Microsoft FoxPro 2.5b
  • Microsoft FoxPro 2.6 Standard Edition
  • Microsoft FoxPro 2.6a Standard Edition
????? ??????: 
kbnosurvey kbarchive kbmt kbfont kbhowto KB137556 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????137556

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com