Discussion :

[Delphi-ne]

dans une application les éditions sont générées via la Canvas de Delphi.
Une de ces éditions est une page de lettre et je voudrais utiliser une image de fond de page.
J'ai un fichier JPEG dimensionné à 21*29 cm avec le logo, le bas de page etc...
si je le place sur le canvas avec le code suivant :

Code :

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

Printer.Canvas.StretchDraw(Rect(0, 0, PrinterPageWidth, Printer.PageHeight), LO_Image);

la taille est déformée
si je laisse ses dimensions identiques

Code :

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

Printer.Canvas.StretchDraw(Rect(0, 0, LO_Image.Width, LO_Image.Height), LO_Image);

l'image s'affiche bien mais sur une partie seulement de la page.
Je suppose qu'il s'agit d'un problème dans la taille du canvas mais elle et fonction de l'imprimante et je ne vois pas comment la changer.

[Delphi-ne]

Je reformule ma question
Comment faut il paramétrer la méthode d'écriture d'une image sur le canvas pour qu'une image paramétrée en 21 * 29 cm remplisse la totalité du canvas de la page.

[Lung]

Ca m'intéresse également.
Je n'ai jamais réussi a faire quelque chose de propre.

[ShaiLeTroll]

Je l'ai fait, j'ai pas le code sous la main, mais c'est assez simple !
Il faut trouver le facteur d'agrandissement, simple ratio taille d'origine et taille finale, prendre le plus petit ratio sinon ça dépassera de la page et l'appliquer sur l'image d'origine, ainsi cela conserve les dimensions avec un effet de zoom
C'est juste une règle de trois !

Code :

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

1
2
3
4
5
ZoomX:= Printer.PageWidth / LO_Image.Width;
ZoomY:= Printer.PageHeight / LO_Image.Height;
Zoom:= Min(ZoomX, ZoomY);
 
Printer.Canvas.StretchDraw(Rect(0, 0, LO_Image.Width * Zoom,  LO_Image.Height * Zoom), LO_Image);

[Andnotor]

Si l'image est déformée, c'est que les résolutions X et Y de l'imprimante ne sont pas identiques.

Il faut déterminer le nombre de pixels par centimètre, les marges physiques, le facteur X/Y, etc. et enfin faire le StretchDraw sur un rectangle calculé.

Tout ceci ce fait avec l'API GetDeviceCaps. PHYSICALOFFSETX, PHYSICALWIDTH, HORZSIZE, LOGPIXELSX, etc.

[Delphi-ne]

Merci pour vos réponses

Si l'image est déformée, c'est que les résolutions X et Y de l'imprimante ne sont pas identiques.

Effectivement et j'avais vu deux solutions :
- modifier les proportions du canvas de l'imprimante mais je ne sais pas le faire car les propriétés sont en lecture seule
- adresser une image directement à la bonne taille et c'est pour cela que j'avais taillé mon bitmap à 21 * 29

Je vais réfléchir à un moyen d'adapter une des deux valeurs X ou Y et d'appliquer le même coeffecient à l'autre
Si je trouve je posterai une réponse

[ShaiLeTroll]

J'ai corrigé mon code, erreur de copier-coller ! J'avais laissé Width au lieu de Heigth, tu n'es pas revenu ! tu n'as pas trouvé ?