Tekengrootte bepalen

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 137556 - Bekijk de producten waarop dit artikel van toepassing is.
Dit artikel is gearchiveerd. Het wordt aangeboden in de huidige vorm en wordt niet meer bijgewerkt.
Alles uitklappen | Alles samenvouwen

Samenvatting

De code in dit artikel laat zien hoe de Foxtools.fll-bibliotheek gebruiken opdrachten naar Microsoft Windows application programming interface (API) aanroepen functies om te bepalen of de huidige Windows-sessie kleine of Grote lettertypen. De volgende API-functies worden gebruikt:
GetDC()
GetDeviceCaps()
ReleaseDC()
				

Meer informatie

Het programma laadt de bibliotheek Foxtools.fll dat wordt geleverd met FoxPro voor Windows. Het initialiseert bepaalde variabelen en haalt de ingang voor het apparaat. Vervolgens roept de functie GetDeviceCaps aanvragen het aantal pixels per logische inch langs de breedte weergeven en de hoogte. Als het aantal pixels gelijk aan 96 is, wordt Windows uitgevoerd Kleine lettertypen. Als het aantal pixels gelijk is aan 120, is Windows uitgevoerd met grote lettertypen. Het programma vervolgens brengt de ingang naar de apparaat en de bibliotheek weergegeven.
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"
				

Referenties

Microsoft Windows Software Development Kit, "Programmer's Reference, Volume 2: Functies ' pagina's van 350-354 785 tijdens het aanmelden.

Foxtools.wri bevindt zich in de map C:\Fpw26\Goodies\Foxtools.

Wingdi.h bevindt zich in de map C:\C700\Include

Eigenschappen

Artikel ID: 137556 - Laatste beoordeling: zaterdag 22 februari 2014 - Wijziging: 4.0
De informatie in dit artikel is van toepassing op:
  • Microsoft FoxPro 2.5a
  • Microsoft FoxPro 2.6 Standard Edition
Trefwoorden: 
kbnosurvey kbarchive kbfont kbhowto kbmt KB137556 KbMtnl
Automatisch vertaald artikel
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende: 137556

Geef ons feedback

 

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