[TRUCO DELPHI] Verificar si las fuentes pequeñas estan definidas,
delphi
function SmallFonts : boolean; var DC : HDC; begin DC := GetDC(0); Result := (GetDeviceCaps(DC, LOGPIXELSX) = 96); {LOGPIXELSX debera mostrar 120 Si las fuentes largas estan en uso} ReleaseDC(0, DC); end;
Saludos!