No hay respuestas en este tema

[sir.dev.a.lot]

[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!