Discussion :

[Papy214]

Bonjour

Quelqu'un saurait-il me dire pourquoi le code suivant crée un fichier image de taille 164 x 217 sur une VM en windows XP , et 267 x 266 sur un windows 7 ??

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  Wmf:  TMetafile;
  Wmfc: TMetafileCanvas;
begin
  Wmf := TMetafile.Create;
  Wmf.Width  := 200;
  Wmf.Height := 200;
  Wmfc := TMetafileCanvas.Create(Wmf, GetDC(Handle));
  Wmfc.Free;
  Wmf.SaveToFile('C:\Data\fic.wmf');
  Wmf.Free;

Bizarrement, si je sauvegarde en emf, les tailles sont respectées à 1 pixel près (201 x 201).

Code :

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

Wmf.SaveToFile('C:\Data\fic.emf');

[tourlourou]

Embarcadero dit ici :

La propriété MMHeight est utilisée pour fournir une indication plus précise de la hauteur du graphique. La propriété Height est toujours exprimée en unité pixel du périphérique écran. Pour éviter une perte de précision lors de la conversion entre pixels du périphérique et millimètres, consultez ou définissez les dimensions en millimètres avec MMHeight.

et là :

Chaque objet graphique descendant définit ses propres méthodes de lecture et d'écriture de la propriété Height.

N'y aurait-il pas :
1) une différence mm/pixel selon que VM ou OS, à explorer ?
2) une meilleure adéquation avec emf, à confirmer ?

Que se passe-t-il si tu fixes les dimensions en mm ?

[Papy214]

Je ne connaissais pas les MMHeight et MMWidth. Je me coucherai moins bête.
Par contre, chose étrange, leur utilisation donne l’effet inverse .

Code :

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

1
2
3
4
5
6
7
 
  Wmf.MMWidth  := 4000;
  Wmf.MMHeight := 4000;
  Wmfc := TMetafileCanvas.Create(Wmf, GetDC(Handle));
  Wmfc.Free;
  Wmf.SaveToFile('C:\Data\fic.emf');
  Wmf.SaveToFile('C:\Data\fic.wmf');

Sur la VM XP:
fic.emf : 185 x 140
fic.wmf: 151 x 151

Sur W7 physique:
fic.emf: 113 x 114
fic.wmf: 151 x 151



J'oubliais de préciser que je fais ces tests sur Delphi 7.

Code :

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

1
2
3
 
  ShowMessage(IntToStr(GetDeviceCaps(GetDC(Handle), LOGPIXELSX)));
  ShowMessage(IntToStr(GetDeviceCaps(GetDC(Handle), LOGPIXELSY)));

renvoient tous les deux 96