Cómo determinar la configuración de tamaño de fuente

Seleccione idioma Seleccione idioma
Id. de artículo: 137556 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

Resumen

El código de este artículo muestra cómo utilizar los comandos de biblioteca Foxtools.fll para llamar a la interfaz de programación de aplicaciones de Microsoft Windows funciones de (API) para determinar si la sesión actual de Windows está utilizando Small o fuentes grandes. Se utilizan las siguientes funciones de API:
GetDC()
GetDeviceCaps()
ReleaseDC()
				

Más información

El sistema primero carga la biblioteca de Foxtools.fll se suministra con FoxPro for Windows. A continuación, inicializa algunas variables y recupera el identificador para el dispositivo de pantalla. A continuación, llama a la función GetDeviceCaps, solicitar el número de píxeles por pulgada lógica junto con el ancho y alto. Si el número de píxeles es igual a 96, Windows se está ejecutando con fuentes pequeñas. Si el número de píxeles es igual a 120, Windows se está ejecutando con fuentes grandes. El programa, a continuación, libera el identificador para el dispositivo de pantalla y la biblioteca.
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"
				

Referencias

Kit de desarrollo de software de Microsoft Windows, "del manual del programador, volumen 2: acciones," páginas 350-354, 785.

Foxtools.wri ubicado en el directorio C:\Fpw26\Goodies\Foxtools.

Wingdi.h ubicado en el directorio C:\C700\Include

Propiedades

Id. de artículo: 137556 - Última revisión: sábado, 22 de febrero de 2014 - Versión: 2.2
La información de este artículo se refiere a:
  • Microsoft FoxPro 2.5b
  • Microsoft FoxPro 2.5a
  • Microsoft FoxPro 2.5b
  • Microsoft FoxPro 2.6 Standard Edition
  • Microsoft FoxPro 2.6a Standard Edition
Palabras clave: 
kbnosurvey kbarchive kbmt kbfont kbhowto KB137556 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 137556

Enviar comentarios

 

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