如何判斷字型大小的設定

重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。

137556
本文已封存。本文係以「現狀」提供且不會再更新。
結論
本文中的程式碼會示範如何使用 Foxtools.fll 庫命令來呼叫 Microsoft Windows 應用程式發展介面 (API) 函式來判斷目前的工作階段的 Windows 是否使用小型或大型的字型。使用下列 API 函式:
GetDC()GetDeviceCaps()ReleaseDC()				
其他相關資訊
程式第一次載入與 Windows 的 FoxPro 提供 Foxtools.fll 文件庫。然後它會初始化一些變數,並擷取顯示裝置的控制代碼。接下來,它呼叫 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 fileLOGPIXELSX = 88LOGPIXELSY = 90* get the handle to the device contextlnGetDC = RegFN("GetDC","I","I")lnHDC = CallFN(lnGetDC,0)* get the number of pixels per logical inchlnGetLogPix = 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 120IF 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 contextlnRelease = RegFN("ReleaseDC","II","I")= CallFN(lnRelease,0,lnHDC)* release the FOXTOOLS.FLL libraryRELEASE LIBRARY SYS(2004) + "FOXTOOLS.FLL"				
参考
Microsoft Windows 軟體開發套件 」 程式設計人員參考磁碟區 2: 函數,"350-354,785 的網頁。

Foxtools.wri 位於 C:\Fpw26\Goodies\Foxtools 目錄中。

Wingdi.h 位於 C:\C700\Include 目錄
2.50 2.60 FoxWin

警告:本文已自動翻譯

內容

文章識別碼:137556 - 最後檢閱時間:02/22/2014 04:23:47 - 修訂: 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 KbMtzh
意見反應