Effet de zoom

Version imprimable

13/07/2007, 23h59
b_reda31

Effet de zoom

Bonjour à tous,je voudrai savoir comment est il possible de réaliser un zoom sur une image (affichée dans un Timage),Merci.

voici le code :D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function TForm1.GetZoomRect: TRect;
const
  T:array[-5..5] of Single=(0.1,0.2,0.3,0.5,0.75,1,1.5,2,3,5,10);
begin
  Result.TopLeft:=Point(0,0);
  Result.Right:=Round(FSrcBitmap.Width*T[TrackBar1.Position]);
  Result.Bottom:=Round(FSrcBitmap.Height*T[TrackBar1.Position]);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  FSrcBitmap:=TBitmap.Create;
  FSrcBitmap.LoadFromFile({path});
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FSrcBitmap.Free;
end;
 
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  img1.Canvas.StretchDraw(GetZoomRect,FSrcBitmap);
end;

14/07/2007, 14h54
b_reda31

merci pour votre reponse mais je n'ai pas trés bien saisi ce bout de code...existe t il une fonction qui permet de faire un zoom sur un timage??
je vous rassure j'ai cherché sur l'aide mais je n'ai rien trouvé :-(
14/07/2007, 15h17
Gilbert Geyer

Bonjour,

Citation:

je n'ai pas trés bien saisi ce bout de code

... dans la procedure TForm1.FormCreate(Sender: TObject) on crée le BitMap (support invisible mémorisant un dessin ou d'une photo) nommé FSrcBitmap qu'on charge depuis le disque avec FSrcBitmap.LoadFromFile(c:\...\'monFichier.bmp');

... et dans la procedure TForm1.TrackBar1Change(Sender: TObject) l'instruction img1.Canvas.StretchDraw(GetZoomRect,FSrcBitmap) dessine dans le TImage le Bitmap précédent FSrcBitmap ramené à l'échelle (StretchDraw) du rectangle GetZoomRect obtenu avec la function TForm1.GetZoomRect: TRect en fonction de la TrackBar1.Position.
... et avec la procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction) on libère la mémoire correspondante avec FSrcBitmap.Free.

Citation:

je vous rassure j'ai cherché sur l'aide mais je n'ai rien trouvé

... je n'ai jamais vu une telle fonction dans l'Aide Delphi, mais il n'y a pas de raison que le code fourni par J_apprenti ne marcherait pas : suffit de l'essayer il n'est pas long.
A+:D
14/07/2007, 15h51
J_apprenti

Salut.
tu dois faire une copie de l'image deja afficher dans Timage comme un TBitmap pour se servir de la methode StretchDraw du canvas du Bitmap, ensuite faire le traitement en memoir sur ton bitmap puis afficher le resultat dans timage :)
je crois qu'une autre source pourra bien t'aider :lol:
Petit utilitaire de traitement d'image JPEG realisè par mr Sub0
Zoom, luminosité, contraste, flou gaussien, qualité JPEG, prévisualisation et sauvegarde.
Enregistrement des paramètres de l'appli dans un fichier INI...
14/07/2007, 20h36
b_reda31

Merci pour l'utilitaire,il regroupe une grande partie de ce que je veux réaliser:lol: ,me reste plus qu'à le comprendre :mrgreen:
14/07/2007, 20h38
b_reda31

Merci Gilbert Geyer pour les explications,ça devient plus clair dans ma tête
20/07/2007, 20h44
Sub0

Salut! ;)

Pour info, je possède un code pour effectuer un zoom avec un filtre anti-aliasing (comme dans l'aperçu de windows) ce qui permet d'obtenir une qualité d'image supérieure à la méthode stretch :

http://sub0.developpez.com/delphi/AAlias.zip
20/07/2007, 23h16
b_reda31

Merci SubZero pour ce petit utilitaire,il est super mais je ne trouve pas le code pour le zoom la dedans:cry:
21/07/2007, 11h58
Sub0

Il s'agit de la fonction Stretch32 de l'unité Transforms.pas. Tu trouveras un exemple d'utilisation de cette fonction dans l'unité Unit1.pas... Pour info, le redimensionnement avec filtre anti-aliasing nécessite plus de ressources qu'un simple stretchdraw et ce filtre est surtout utile pour réduire les images, plus que pour les grossir...

Dans mon jeu d'échecs, lorsqu'on redimensionne la fenêtre, j'utilise un simple StretchDraw puis j'ajoute le filtre anti-aliasing lorsqu'on relache le bouton de la souris. Cette démo te permettra de bien visualiser la différence entre les 2 méthodes de redimensionnement d'images...
22/07/2007, 09h06
SergioMaster

c'est peut-être un peu tard pour dire cela mais il existe un bon composant Zoom dans la JVCL
24/07/2007, 16h21
Clorish

Pour un tit editeur d'image perso, j'utilise un TImage avec les property : Center/Stretch/Proportional a true et je joue sur le Width/Height .....

Si tu souhaite faire de la qualité, passe par l'unitee ALGraphic (a dl sur le net) pour copier de maniere lissée.