Preguntar por el % aumento fuente

[[newtron]]

Buenas a tod@s.


Tengo un pequeño problema cuando el windows de turno está "tuneado" para que escale las fuentes a un porcentaje distinto al 100% que es el que viene por defecto.


¿Hay alguna forma de consultar el valor de ese porcentaje en el windows?


Gracias y un saludo.

[Casimiro Notevi]

A ver si sirve:

Código Delphi [-]
uses
  Windows, Graphics;

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;

[[newtron]]

Antonio.


Gracias por tu respuesta pero la variable LogPixelsY me coge valor 0. ¿Alguna idea de por qué puede ser?


Gracias y un saludo.

[[newtron]]

Ok, ya está.


Me "chirriaba" un poco que el nombre de la variable fuera igual que el segundo parámetro del GetDeviceCaps así que lo he cambiado y ahora si pilla el valor.


Gracias y un saludo.

[Casimiro Notevi]

Es que cero es porque no está aumentada, tiene tamaño predeterminado.
Si aumentas las fuentes verás que en lugar de cero devolverá el porcentaje aumentado.
Esa es la teoría

[[newtron]]

Pues en la práctica si no está aumentado el tamaño de fuente devuelve el valor 100 y si está aumentada al 125% devuelve 125. Eso es lo que yo quería poder consultar.


Pero te digo que en el ejemplo que pasas devuelve 0 mientras no cambies el nombre de la variable "LogPixelsY" por otro. Eso si lo tengo comprobado.


Gracias y un saludo.

[Casimiro Notevi]

[pgranados]

Empezado por newtron

Me "chirriaba" un poco que el nombre de la variable fuera igual que el segundo parámetro del GetDeviceCaps así que lo he cambiado y ahora si pilla el valor.

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

[[newtron]]

Empezado por pgranados

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.

[pgranados]

Muchas gracias, ya funciono