[Lazarus] Redimensionner une image bmp

Bonsoir,

Je viens de créer un code pour redimensionner une image Bitmap :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var coeff: real; largeur, hauteur: integer; begin if openpicturedialog1.Execute then begin image1.Picture.LoadFromFile(openpicturedialog1.FileName); coeff := 250 / image1.Picture.Height; largeur := round(coeff * image1.Picture.Width); hauteur := round(coeff * image1.Picture.Height); image1.Width := largeur; image1.Height := hauteur; end; end;

---

Malheureusement, la qualité de l'image après transformation est décevante.

Quelqu'un aurait-il un conseil pour avoir une image de bonne qualité ?

En vous remerciant d'avance.

Lohot

Bonsoir,

:( J'ai déja soulevé ce problème en septembre 2006, au sujet du strech, mais je n'ai pas trouvé de solution.
Dommage, car j'avais deux applications qui auraient pu passer sous Lazarus.

J'ai bon espoir, ça va venir.

@+

Bonne nouvelle la bibliothéque Graphic32 qui fonctionne sous Delphi et sous Unix deviendra compatible de Lazarus et FPC a sa prochaine release majeur.

Voir l'annonce sur le site :
http://www.graphics32.org/wiki/pub/page/Main/Release

Cette bibliothéque est une merveille.

Vivement la prochaine release majeure :yaisse2: