Discussion :

[dacid]

Bonjour à tous,

Dans mon appli, je dois afficher un Tiff (grâce à GraphicEx) qui se redimensionne avec l'appli (alClient).
Seulement, quand il est plus petit que sa taille d'origine, il est vraiment illisible.
J'ai essayé avec Graphics32, mais le résultat est à peu près le même.

Y a t-il un composant ou une façon de faire qui dégraderait le moins possible l'affichage de mon Tiff ?
Existe t-il un antiAlias, un magnifiqueur ou un truc de ce style dans les composants que j'utilise ?

Merci d'avance.

[Montor]

Attention GraphicEx ne fonctionne pas avec toutes les formats tiff

il y a la fonction "StrechDraw" dans l'unité GraphicEx.pas

Tu peux utiliser GDI+

[dacid]

Bonjour Montor,

Merci pour la rapidité.

J'ai essayé StretchDraw, mais je ne suis pas sur de bien savoir l'utiliser.

Code :

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

Image1.Canvas.StretchDraw(Image1.ClientRect, Image1.Picture.Graphic);

De cette manière, il ne me le dessine pas ou il faut, il est tout écrasé et, du peu que je puisse voir, il n'est pas spécialement plus lisible.

J'ai essayé ta bibliothèque aussi.
Le dessin à l'air mieux, mais je n'arrive pas à lui donner le même comportement qu'au tImage.
Il le dessine à une certaine échelle non logique et ne gère pas le redimensionnement.
Je te joint un programme de test (il y a un tImage32 dessus et il faut ajouter GraphicEx, le poids limite ne me permettait pas de l'intégrer).

[Montor]

désolé pour retard

Code :

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

Image1.Canvas.StretchDraw(Image1.ClientRect, Image1.Picture.Graphic);

il fallait juste ajouter

Code :

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

1
2
SetStretchBltMode(Image1.Canvas.handle,HALFTONE );
Image1.Canvas.StretchDraw(Image1.ClientRect, Image1.Picture.Graphic);

[dacid]

Bonjour Montor,

Non, rien à faire, il ne la redessine pas proportionnellement.
De plus, je n'ai pas l'impression que ça améliore la qualité.

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
procedure TfrmMain.Button2Click(Sender: TObject);
var strTemp: String;
begin
  try
    strTemp := chemRacineApp+'MonImg.tif';
    if FileExists(strTemp) then begin
      // Charger le tImage2
      Image2.Picture.LoadFromFile(strTemp);
      // Charger le tImage1
      SetStretchBltMode(Image1.Canvas.handle, HALFTONE);
      Image1.Canvas.StretchDraw(Image1.ClientRect, Image2.Picture.Graphic);
      // Methode GDI
      //LoadImgPlus(strTemp, Image1.Picture.Bitmap, Image1.Height, Image1.Width);
    end;
  except
    setInfo('ERREUR: Impossible de charger l''image: '+strTemp);
  end;
end;

[Andnotor]

Pas de miracle, StretchDraw rempli le rectangle avec l'image fournie. Si tu veux une image proportionnelle, à toi de lui passer un rectangle correct (calculé).

Tu peux t'inspirer de ceci.