Ver Mensaje Individual
  #9  
Antiguo 24-01-2024
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.591
Reputación: 21
newtron Va camino a la fama
Cita:
Empezado por pgranados Ver Mensaje
Hola, he copiado la función y modifique el nombre de la variable pero sigo obteniendo 0, lo probé en Delphi 10.4, puedes pasarme la función por favor? Saludos

Claro.


Código Delphi [-]
function GetFontScalePercentage: Integer;
var
  DC: HDC;
  LogPixelsY_: Integer;
begin
  // Obtiene el contexto del dispositivo de pantalla
  DC := GetDC(0);
  try
    // Obtiene la resolución vertical en píxeles por pulgada (PPP)
    LogPixelsY_ := GetDeviceCaps(DC, LOGPIXELSY);
  finally
    // Libera el contexto del dispositivo de pantalla
    ReleaseDC(0, DC);
  end;

  // Calcula el porcentaje de tamaño de las fuentes
  Result := MulDiv(LogPixelsY_, 100, 96);
end;


Saludos.
__________________
Be water my friend.
Responder Con Cita