Discussion :

[nou366]

Bonjour à tous ,

Je fais une petite application où je veux importer une image ( qui est sur mon pc) , et la mettre sur un composant Timage. Jusque là rien de particulier .
le composant TImage à une dimension de 32 x 32, et je voudrais redimensionner les images a importer ( qui ont toutes des tailles différentes, bien sur!) à cette dimension .
Exemple: si j'ai une image de 100 x50, au moment ou je la charge, elle se rétrécit à 32 x 32.
est possible de la faire en delphi??

[tourlourou]

oui !

utilise TImage.Stretch:=True;


sinon :
1) tu ouvres l'image dans un TGraphic
2) tu l'assignes à un TBitmap
3) tu redimensionnes dans un second TBitmap avec la fonction Stretch de son canevas
4) tu l'assignes au 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
 
var
 Ouvre: TGraphic;
 Src, Dest: TBitmap;
 Image:TImage;
begin
 Ouvre:=TJpeg.Create; // pour une photo
 Ouvre.LoadFromFile('maphoto.jpeg');
 // et autres Create
 Src.Assign(Ouvre);
 Dest.Canvas.StretchDraw(Rect(0,0,Ouvre.Width,Ouvre.Height), Src);
 Image.Picture.Assign(Dest);
 // qq Free
end;

[nou366]

Merci pour la réponse, ca marche bien