Nasıl yapılır: yazı tipi boyutu ayarı belirleyin.

Makale çevirileri Makale çevirileri
Makale numarası: 137556 - Bu makalenin geçerli olduğu ürünleri görün.
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Hepsini aç | Hepsini kapa

Özet

Bu makaledeki kod Foxtools.fll kitaplığı komutları Microsoft Windows uygulama programlama arabirimi (API) işlevleri, küçük veya büyük yazı tipleri, Windows geçerli oturumu kullanıp kullanmadığını belirlemek için arama için nasıl kullanılacağını gösterir. Aşağıdaki API işlevleri kullanılır:
GetDC()
GetDeviceCaps()
ReleaseDC()
				

Daha fazla bilgi

Program, ilk FoxPro için Windows ile birlikte sağlanan Foxtools.fll kitaplığı yükler. Daha sonra de?i?kenleri başlatır ve görüntü aygıtı için tanıtıcı alır. Sonra görüntü genişlik ve yükseklik) boyunca mantıksal inç başına piksel sayısını isteyen GetDeviceCaps işlevini çağırır. Piksel sayısı için 96 eşitse, Windows küçük yazı tipleri ile çalışıyor. Piksel sayısı için 120 eşitse, Windows, büyük yazı tipleri ile çalışıyor. Program daha sonra görüntü aygıtı ve kitaplık tanıtıcısını serbest bırakır.
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"
				

Referanslar

Microsoft Windows Yazılım Geliştirme Seti "Programmer 's Reference'nın, <a1>Birim</a1> 2: işlevler," 350-354 785 sayfaları.

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

C:\C700\Include dizininde Wingdi.h

Özellikler

Makale numarası: 137556 - Last Review: 22 Şubat 2014 Cumartesi - Gözden geçirme: 2.2
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft FoxPro for Windows 2.5
  • Microsoft FoxPro for Windows 2.5a
  • Microsoft FoxPro for Windows 2.5b
  • Microsoft FoxPro for Windows 2.6
  • Microsoft FoxPro for Windows 2.6a
Anahtar Kelimeler: 
kbnosurvey kbarchive kbmt kbfont kbhowto KB137556 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:137556

Geri Bildirim Ver

 

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