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