HOla amigos

Para saber si un sistema tiene configurado fuentes grandes o pequeñas, encontre este sistema, pero imagino que habra otros (que tambien me gustaria conocer)

'--------------------
'conocer caracteristicas del font que esta configurado

   InfoFont = GetTextMetrics(hdc, lpMetrics)'devuelve 0 si hay error y no cero si ok

los valores qeu devuelve son:
        lpMetrics.tmDigitizedAspectX = 120 si fuente grande y =96 si fuente pequeña
        lpMetrics.tmDigitizedAspectY = 120 si fuente grande y =96 si fuente pequeña


---------------------------------------------------------
Declare Function GetTextMetrics Lib "gdi32" Alias "GetTextMetricsA" (ByVal hdc As Long, lpMetrics As TEXTMETRIC) As Long

Type TEXTMETRIC
        tmHeight As Long
        tmAscent As Long
        tmDescent As Long
        tmInternalLeading As Long
        tmExternalLeading As Long
        tmAveCharWidth As Long
        tmMaxCharWidth As Long
        tmWeight As Long
        tmOverhang As Long
        tmDigitizedAspectX As Long
        tmDigitizedAspectY As Long
        tmFirstChar As Byte
        tmLastChar As Byte
        tmDefaultChar As Byte
        tmBreakChar As Byte
        tmItalic As Byte
        tmUnderlined As Byte
        tmStruckOut As Byte
        tmPitchAndFamily As Byte
        tmCharSet As Byte
End Type

Public lpMetrics As TEXTMETRIC


Espero te sirva.
Un saludo


++++++++++++++++++++++++++++++++++++++++++++
Pablo Leyva
SIEMENS, S.A.
Tres Cantos. Ronda de Europa, 5. Madrid 28760 (España)
( MailTo:pleyva@ssa.siemens.es)
http://www.siemens.es
++++++++++++++++++++++++++++++++++++++++++++