Discussion :

[Stevens.Georges]

DELPHI 4 standard – WINDOWS XP

Bonjour à tous,

Je trace sur une TpaintBox de ma fiche un carré de hauteur 100 pixels et de largeur 100 pixels.

Avec une résolution d’écran de 1280 x 720 ou 1280 x 1024 le carré apparaît bien comme un carré.

Avec une résolution de 800 x 600 ou 1024 x 768 il apparaît en fait comme un rectangle dont la hauteur est légèrement plus grande que la largeur.

J’ai essayé de déterminer quel est le coefficient liant la hauteur et la largeur effectives sur l’écran à l’aide de GETDEVICECAPS de l’API avec SCREEN.MONITORS[0] mais que ce soit avec ASPECTX ou ASPECTY ou HORZSIZE ou VERTSIZE j’obtiens tojours zéro.

Rien trouvé à ce sujet dans les FAQs.

Merci d’avance à qui pourra éclairer ma lanterne.

[Andnotor]

Avec une résolution d’écran de 1280 x 720 ou 1280 x 1024 le carré apparaît bien comme un carré.

Sur un même écran, ce serait pour le moins étonnant
Les moniteurs sont fait pour fonctionner à une résolution optimale et en changer entraîne forcément une déformation.

De plus utiliser GetDeviceCaps pour récupérer les caractéristiques physiques d'un moniteur est pour le moins hasardeux.

Note GetDeviceCaps reports info that the display driver provides. If the display driver declines to report any info, GetDeviceCaps calculates the info based on fixed calculations. If the display driver reports invalid info, GetDeviceCaps returns the invalid info. Also, if the display driver declines to report info, GetDeviceCaps might calculate incorrect info because it assumes either fixed DPI (96 DPI) or a fixed size (depending on the info that the display driver did and didn’t provide). Unfortunately, a display driver that is implemented to the Windows Display Driver Model (WDDM) (introduced in Windows Vista) causes GDI to not get the info, so GetDeviceCaps must always calculate the info.

[Stevens.Georges]

Merci de ta réponse.

C'est pourtant bien avec le même moniteur.

[tourlourou]

Quid d'une fiche de réglage qui laisse l'utilisateur glisser un curseur jusqu'à obtenir le bon aspect ?

[Stevens.Georges]

Merci Tourlourou.

C'est évidemment une formule mais je préfèrerais quelque chose de plus élégant.

[Charly910]

Bonjour,

à part utiliser GetDevicecaps qui effectivement ne fonctionne pas à tout les coup, je ne vois pas comment tu peux faire. Chez moi cela marche bien avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
  type
      TPixDistXY = Record
         X: Double;
         Y: Double;
       end;
....
{ ================================================= }
function Mesurer(const PixDistX, PixDistY:Integer) : TPixDistXY; // PixDistX est une mesure en pixels.
  var DC : HDC;
begin
  DC        := GetWindowDc(0); // Obtenir contexte graphique de l'écran
  Result.X := PixDistX * GetDeviceCaps(DC,HORZSIZE) / GetDeviceCaps(DC,HORZRES);
  Result.Y := PixDistY * GetDeviceCaps(DC,VERTSIZE)  / GetDeviceCaps(DC,VERTRES);
end;
{ ================================================= }
procedure TF_Dessin.Button1Click(Sender: TObject);
  var aPixDistXY: TPixDistXY;
begin
  aPixDistXY := Mesurer(Screen.Width, Screen.Height);
  Edit1.Text := FormatFloat('####.##" mm."',aPixDistXY.X) + ' x '
      +FormatFloat('####.##" mm."',aPixDistXY.Y);//Renverra, par ex : 410 mm. x 256 mm.
end;
{ ================================================= }

A+
Charly

[Stevens.Georges]

Bonjour et d'abord merci à tous ceux qui ont pris la peine de me répondre.

J'ai repris très exactement la function Mesurer indiquée par Charly. En utilisant les dimensions de mon carré soit 100 x 100 j'obtiens :

Résolution function Mesurer Mesuré sur mon écran

1024 x 768 31.25 x 31.25 32.5 x 35 donc rectangle

1280 x 1024 25 x 24.4 26.3 x 26.3 donc carré

ce qui n'est évidemment pas du tout cohérent.

En allant sur un autre site, j'y ai lu une remarque faisant état qu'avec certains écrans les pixels ne sont pas carrés, et je suis enclin à penser que c'est là la cause de mes résultats non cohérents.

Mon problème n'est donc pas résolu mais merci encore quand même à tous.

[Caribensila]

Bonjour,

Il faut savoir que les mesures en millimètres sur un écran ne peuvent qu'être approximatives car la seule unité de mesure fiable d'un écran est le pixel (pas toujours carré).

En revanche la méthode utilisant GetDeviceCaps est précise pour le canvas de l'objet Printer, et on peut donc dessiner en mm sur l'imprimante.

[Stevens.Georges]

Merci Caribensila de ta contribution.

J'en déduis qu'il n'y a pas de méthode fiable en réponse à mon problème.

[Caribensila]

Une solution serait que l'utilisateur étalonne lui-même son écran; quitte à prévoir une petite aide logiciel comparable à celle des moniteurs pour la couleur, le contrast, la fréquence, etc...

L'opération étant très simple et se faisant une fois pour toutes c'est envisageable, et pourra même être considérée comme un gage de sérieux de la part de l'utilisateur. Enfin, je pense...

De toute façon, il n'y a pas, à ma connaissance, d'autres solutions.