Discussion :

[Invité]

Bonjour,

J'essaie de résoudre un problème de conversion en vain... Dans mon application l'utilisateur saisit la largeur et la hauteur d'un TPanel en millimètres ce qui permet de modifier ses dimensions.
Il me faut donc convertir les dimensions saisies en pixels pour pouvoir affecter ces valeurs aux propriétés "Width" et "Height" du TPanel.

Je m'y prends de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
function MillimetresToPixelsY(HauteurMillimetres: Integer): Integer;
var
  YPixelsParPouce: Integer;
  YPixelsParMilli: Integer;
begin
  YPixelsParPouce := Screen.PixelsPerInch;
  YPixelsParMilli := Trunc(YPixelsParPouce / 25.4); // Conversion en millimètres
  Result := Trunc(HauteurMillimetres* YPixelsParMilli);
end;

La valeur renvoyée par Screen.PixelsPerInch est à priori incorrecte (96PPI) et ne correspond pas à la réalité (109PPI avec mon écran). J'ai également testé avec les fonctions suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DC := GetWindowDc(0);
YPixelsParPouce := GetDeviceCaps(DC, LOGPIXELSY);

Mais j'obtiens le même résultat 96PPI. Avez-vous des conseils pour récupérer de la meilleure manière le nombre de pixels par pouce quelque soit l'écran utilisé ?

Je vous remercie pour votre aide.

[ShaiLeTroll]

96 DPI c'est la valeur par défaut

Exemple un 17.3 pouces en diagonale soit H 8.5 x L 15.1 pour 1080 x 1920 soit 127 x 127
Aucun Zoom et 96 aussi

Ta question me fait penser au sujet Calcul de la résolution de l'écran sur Windows 10 qui avec les WMI permettra de récupérer les bonnes valeurs

Pense que LOGPIXELSX et LOGPIXELSY retourne un "logical inch" qui fait toujours 96 pixels
J'ai géré le Zoom de fenêtre avec ScaleBy mais pour me caler sur le Zoom de Windows, les valeurs suivantes ne changent jamais depuis Windows 6.1 au moins, 100% (96 DPI), 125% (120 DPI), and 150% (144 DPI).

Voir la fonction GetDpiForWindow et tu as un tas de lecture Improving the high-DPI experience in GDI based Desktop Apps

Je dois aussi bosser dessus pour gérer l'écran 4K d'un collègue qui a côté à un écran plus ancien ... et un Zoom à 150%, alors quand il passe une application d'un écran à l'autre, ça délire un peu le Scale

Si MDT_EFFECTIVE_DPI dépend de la valeur en cours retourné par GetProcessDpiAwareness
Il semble que MDT_RAW_DPI donne le chiffre prévu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
var
  dpiX, dpiY: UINT;
begin
  if Winapi.ShellScaling.GetDpiForMonitor(Self.Monitor.Handle, MDT_RAW_DPI, dpiX, dpiY) = S_OK then
    ShowMessage(dpiY.ToString() + ' x ' + dpiX.ToString());

[Invité]

Merci pour toutes ces informations, je vais prendre le temps de bien les assimiler, ça ne me parait pas évident.