Como Capturar el tipo de letra del sistema

[colthop]

Hola a todos:

Me gustaría saber si existe otro método para poder saber la letra que usa Windows, ya que usando GetSysFont() me devuelve "Ms Sans Serif" cuando yo no tengo ese tipo sino "SEGOE UI".

Un saludo

Carlos

[José Luis Sánchez]

Hola Carlos,
Mira esto https://cincomundos.wordpress.com/2006/ ... es-en-fwh/

Saludos,

[colthop]

Hola José Luis:

Gracias por tu interés, ya vi eso y trate de aplicarlo pero no supe y lo solucioné de otra manera.

Un saludo y de nuevo gracias por tu interés.

Carlos

[Antonio Linares]

Carlos,

Usando GetStockObject() puedes obtener los siguientes valores:

https://msdn.microsoft.com/en-us/library/windows/desktop/dd144925(v=vs.85).aspx

Revisa desde ANSI_FIXED_FONT a SYSTEM_FIXED_FONT

Puedes usarlo asi:

#define OEM_FIXED_FONT 10
#define ANSI_FIXED_FONT 11
#define ANSI_VAR_FONT 12
#define SYSTEM_FONT 13
#define DEVICE_DEFAULT_FONT 14
#define SYSTEM_FIXED_FONT 16

MsgInfo( GetFontInfo( GetStockObject( SYSTEM_FONT ) )[ 4 ] )

[José Luis Sánchez]

Antonio,
voy a intentar probar lo que dices, el sistema que yo uso me ha funcionado bien con tamaño de fuentes personalizado ... hasta Windows 10. Este fin de semana instalé Windows 10 y las fuente de los programas aparecen borrosas. No es cosa de mis programas unicamente, varios de los programas que uso como HippoEdit, UltraFileSearch lite y Flux hacen lo mismo, muestran la fuente borrosa. No se si tendrá que ver algo que son programas de 32bits.

Me gustaría saber si con programas de 64 bits poniendo el tamaño de texto personalizado en Windows 10 a por ejemplo 120% las fuentes se ven correctamente.

Saludos,
José Luis

[cnavarro]

Jose Luis, mira este articulo

http://cincodias.com/cincodias/2015/08/ ... 60816.html

[Antonio Linares]

Jose Luís,

Si me envias un PRG, lo construyo con FWH 64 y te envío el EXE

gracias!

[José Luis Sánchez]

Carlos, con esto lo que hago es anular la configuración de fuentes para el programa. Funciona ya que el programa se ve bien, pero no es lo que quiero.

Antonio, puedo mandarte los fuentes de Colossus para que los recompiles con FWH 64. Los fuentes del programa están en https://github.com/JoseluisSanchez/colossus pero usa unas librerias de CanalFive que creo que no habrá problema en que te mande. Voy a intentar que todo sean .PRG para que puedas recompilarlo sin problemas y te aviso.

Saludos,
Josñe Luis

[Antonio Linares]

José Luis,

ok, aguardo tus noticias

[José Luis Sánchez]

Antonio,
Ya tengo el programa sin referencias a librerias externas, todo lo tengo en PRG. Donde te lo mando para que lo recompiles, o envíame tu un correo con tu dirección a joseluis@alanit.com

Saludos,

[Antonio Linares]

José Luis,

Directamente a alinares@fivetechsoft.com

gracias

[Alberto Mosquera]

Hola. Yo para obtener la fuente del sistema uso lo siguiente:

aInfo := GetFontInfo( GetFontMenu() )
nFontHeight := aInfo[1]
nFontWidth := aInfo[2]
cFontName := aInfo[4]

( la funcion GetFontMenu() esta en c5h.lib )

[José Luis Sánchez]

Hola a todos,
He probado a incluir la cláusula DS_SHELLFONT en los diálogos dentro editor de recursos en vez de DS_SETFONT y he comprobado que con esta cláusula sí que se escala correctamente los diálogos wn Windws 10 en el caso de tener un escalado de fuentes personalizado. Os dejo una imagen de dos de mis programas, a la izquierda usando la cláusula DS_SHELLFONT y a la derecha usando DS_SETFONT. El escalado que uso es el 120%.



No llego a entender por qué el vtaskbar tambien se escala ¿? puesto que ahí no he tocado nada.

Saludos,
José Luis

[José Luis Sánchez]

Ahora se ve mejor.