Jak zjistit nastavení velikosti písma

Překlady článku Překlady článku
ID článku: 137556 - Produkty, které se vztahují k tomuto článku.
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Souhrn

Kód v tomto článku demonstruje použití příkazů knihovny Foxtools.fll volání rozhraní API systému Windows funkce (API) k určení, pokud je aktuální relace systému Windows pomocí malá nebo velká písma. Použít následující funkce API:
GetDC()
GetDeviceCaps()
ReleaseDC()
				

Další informace

Program načte nejprve Foxtools.fll knihovny, který je dodáván s FoxPro for Windows. Poté inicializuje některé proměnné a načte úchyt zobrazovacího zařízení. V dalším volání funkce GetDeviceCaps požadující počet pixelů na logický palec podél zobrazení šířky a výšky. Pokud je rovno 96 počet pixelů, systém Windows spuštěn s malá písma. Pokud je rovno 120 počet pixelů, systém Windows spuštěn s velká písma. Program potom uvolní úchytu zobrazovacího zařízení a knihovny.
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"
				

Odkazy

Microsoft Windows Software Development Kit "Programmer's Reference svazku 2: funkce, „ stránek 350 354, 785.

Foxtools.wri umístěn v adresáři C:\Fpw26\Goodies\Foxtools

Wingdi.h umístěn v adresáři C:\C700\Include

Vlastnosti

ID článku: 137556 - Poslední aktualizace: 28. února 2014 - Revize: 2.2
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft FoxPro 2.5b
  • Microsoft FoxPro 2.5a
  • Microsoft FoxPro 2.5b
  • Microsoft FoxPro 2.6 Standard Edition
  • Microsoft FoxPro 2.6a Standard Edition
Klíčová slova: 
kbnosurvey kbarchive kbmt kbfont kbhowto KB137556 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku: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