Discussion :

[zaaryy]

Bonjour,
Je me décide à créer un post car je me trouve régulièrement confronté au même problème :
Quand j'utilise un TImage que je veux redimensionner je m'y prend de la sorte.

Code :

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

1
2
3
4
 
mon_image.stretch:= true;
mon_image.height:= mon_image.picture.height div 2;
mon_image.width:= mon_image.picture.width div 2;

Les dimensions de mon_image correspondent à ce que je souhaite mais la perte de qualité est énorme !
Y a-t-il un moyen d'obtenir une qualité correcte ?
J'ai téléchargé la bibilothèque bgrabitmap en espérant trouver une réponse dans les exemples fournis mais cela n'a rien donné.

[jurassic pork]

hello zaary,
Qu'entends-tu par énorme ? Peux-tu nous mettre une image originale et l'image redimensionnée ? c'est normal que tu perdes de la qualité en réduisant l'image.

Ami calmant, J.P

[zaaryy]

Bonjour et merci de votre réponse, voici un aperçu de ce que j’obtiens.



Même avec des changements de taille moins importants ou d'autres types d'images (je fonctionne généralement avec du png) j'ai toujours cet effet pixélisé...

[Jipété]

Salut,

Je suppose que ta "mon_image" descend de TImage ?
Il faut faire tout un tas de trucs intermédiaires avant de lui balancer l'image redimensionnée à afficher, et surtout utiliser les bonnes librairies.

Dans un vieux projet, je fais afficher une image (provenant d'un fichier .jpg) dans un TImage posé sur un panel lui-même posé sur une form, et lorsque je redimensionne (en agrandissement ou en réduction) la form, l'image se redimensionne sans perte de qualité.

Essaye ça ('tention, je suis sous Linux, y a p'têt' des choses qu'il faudra adapter un poil) :
TfrmBigDisplay c'est la form d'affichage, pnlSupportImg c'est le panel et imgBigDisplay c'est le TImage.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
uses
  FPReadJPEG, // pour AfficheJpeg
  LCLtype, IntfGraphics;
 
const
  IMGMARGINS = 10;
 
var
  ImgBigHeight,ImgBigWidth: integer;
  FileWidth, FileHeight: integer;
 
procedure TfrmBigDisplay.SetupWindow(img: string); // img : nom du fichier jpg avec chemin
  function AfficheJPEG: Boolean;
  var
    InStream: TFileStream;
    function DisplayJpeg(const InFileName: TFileStream; Width, Height: Integer): Boolean;
    var
      JpegImage: TJpegImage;
      Bitmap: TBitmap;
      AHeight,AWidth : Integer;
    begin
      Result := False;
      JpegImage := TJpegImage.Create;
      JpegImage.PixelFormat := pf24Bit;
      //JpegImage.Performance:= jpBestQuality; // /!\
      JpegImage.Performance:= jpBestSpeed; // /!\
      try
        //  Load the image
        JpegImage.LoadFromStream(InFileName);
        JpegImage.GetSize(FileWidth, FileHeight);
        // Create bitmap, and calculate parameters
        Bitmap := TBitmap.Create;
        try
          SetupImgForDisplay;
          imgBigDisplay.Picture.Assign(JpegImage);
          Result := True;
        finally
          Bitmap.Free;
          JpegImage.Free;
        end;
      except
        on E: Exception do
          MessageDlg('Erreur','Erreur: '+E.Message,mtError,[mbOk],0);
      end;
    end;
  begin
    InStream := TFileStream.Create(img, fmOpenRead);
    Result := DisplayJpeg(InStream, ImgBigWidth, ImgBigHeight);
    InStream.Free;
  end;
begin
  imgBigDisplay.Picture.Bitmap := nil; // effacement avant nouveau traitement
  AfficheJPEG;
end;
 
 
procedure TfrmBigDisplay.SetupImgForDisplay; // appelé par FormResize
var
  Ratio1, Ratio2: Double;
  ImagePos: TPoint;
begin
  Ratio1 := FileWidth/FileHeight;
  Ratio2 := ImgBigWidth/ImgBigHeight;
 
  if ((FileWidth > imgBigWidth) or (FileHeight > imgBigHeight)) then
  begin
    if Ratio1 > Ratio2 then
    begin
      imgBigDisplay.Width := imgBigWidth;
      imgBigDisplay.Height:= round(imgBigDisplay.Width / Ratio1);
    end
    else
    begin
      imgBigDisplay.Height:= imgBigHeight;
      imgBigDisplay.Width := round(imgBigDisplay.Height * Ratio1);
    end;
  end
  else // petites images
  begin
    imgBigDisplay.Width  := FileWidth;
    imgBigDisplay.Height := FileHeight;
  end;
 
  // Centrer image dans container
  ImagePos := Point( (pnlSupportImg.Width  - imgBigDisplay.Width ) div 2,
                     (pnlSupportImg.Height - imgBigDisplay.Height) div 2 );
  // test si la position est négative (si image > à container)
  if ImagePos.X < 0 then ImagePos.X := 0;
  if ImagePos.Y < 0 then ImagePos.Y := 0;
  imgBigDisplay.Left:= ImagePos.X;
  imgBigDisplay.Top := ImagePos.Y;
end;
 
procedure TfrmBigDisplay.FormResize(Sender: TObject);
begin
  SetupContainer;
  if imgBigDisplay.Picture.Bitmap <> nil then SetupImgForDisplay;
end;
 
procedure TfrmBigDisplay.SetupContainer; // appelé par FormCreate et FormResize
begin
  // taille du compo container :
  imgBigWidth := pnlSupportImg.Width -IMGMARGINS;
  imgBigHeight:= pnlSupportImg.Height-IMGMARGINS;
end;

Ah, je lis au dernier moment que tu bosses surtout avec du png : je te laisse adapter le code ci-dessus, ça ne devrait pas être trop compliqué à partir du moment où tu utilises la bonne librairie.

[jurassic pork]

hello,
je ne sais pas comment tu as utilisé la bibliothèque bgrabitmap mais en utilisant le code bestial (grouik !) suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
//uses  bgrabitmap,BGRABitmapTypes; 
procedure TForm1.FormCreate(Sender: TObject);
var bitmap: TbGrabitmap;
begin
  bitmap := TbGrabitmap.Create('D:\users\tmp\piece.png');
  BGrareplace(bitmap,bitmap.Resample(50,50,rmSimpleStretch));
  Image2.Picture.Bitmap.Assign(bitmap);
  bitmap.free;
  bitmap := TbGrabitmap.Create('D:\users\tmp\piece.png');
  bitmap.ResampleFilter := rfMitchell;
  BGrareplace(bitmap,bitmap.Resample(50,50,rmFineResample));
  Image3.Picture.Bitmap.Assign(bitmap);
  bitmap.free;
end;

j'obtiens le résultat suivant :


La grande image (image1) est un Timage avec le fichier original png chargé dedans. Image2 et Image3 sont des TImage (image2 en haut pas de filtre élaboré).

Ami calmant, J.P

[zaaryy]

Avant d'essayer de comprendre votre code, je me suis dis que j’allais le recopier tel quel...

J'ai pris comme image la pièce de 50 centimes (format jpg et taille de 264x264 donc).
J'ai mis le panel pnlsupportImg en Alclient sur ma form et placé l'image ImgBigDisplay dessus.

L'unique ajout à votre code est l'évènement OnCreate de ma form que voici:

Code :

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

1
2
3
4
5
6
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 SetupContainer;
 SetupWindow(extractfilepath(application.exename)+'piece.jpg');
end;

Quand je lance le programme

Si ImgBigDisplay.Stretch est à false
Rien ne se produit lors du redimensionnement de ma form.
(l'image est centrée mais se retrouve simplement rognée lorsque la form rétrécie).


Si ImgBigDisplay.Stretch est à true
Quand j'augmente la taille de ma fenêtre, l'image est centrée mais reste à sa taille originale.
Quand je diminue la taille de ma fenêtre, l'image se redimensionne correctement mais avec la même perte de qualité qu’auparavant.

Ai-je raté quelque chose dans le peu de code que j'ai ajouté ?

[zaaryy]

Merci J.P, c'est parfait !