Discussion :

[lohot]

Bonsoir,

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

Code :

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

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

[Bernard B]

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.

@+

[Bernard B]

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