[DELPHI6] et TImage et Stretch

Bonjour,


Je souhaiterais afficher un icône (à l'échelle) dans un TImage.
Pour le redimensionnement de l'icône j'ai utilisé Stretch mais ça ne fonctionne pas.

Comment puis-je m'y prendre ?

Merci.

Code:

---

1 2 3 4 5 6 7

Image:=TImageExt.Create(Panel); Timage(Image).Parent:=Panel; Image.Align:=alClient; Image.Stretch:=True; Image.Picture.Icon.Handle:=GetIcon(FormBarre.Handle);

---

La solution passe par l'utilisation de DrawIconEx qui utilise la largeur et la hauteur du rectangle.

J'ai essayé ce code :

Code:

---

1 2 3 4 5 6 7

// Icon:TIcon > A été créé // Image : TImage > A été créé   Icon.LoadFromFile('App.ico'); DrawIconEx(Image.Canvas.Handle,0,0,Icon.Handle,16,16,0,0,DI_DEFAULTSIZE);

---

mais j'ai une zone blanche à la place de mon icône.

Utilises la fonction comme cela:

Code:

---

1 2	DrawIconEx(Image.Canvas.Handle,0,0,Icon.Handle,256,256,0,0,DI_NORMAL);

---

On admet que timage est de dimension: width:256, height:256.
Tu peux utiliser 512,512 etc...

Bien évidemment la qualité du dessin diminue avec l'augmentation du zoom
contrairement aux images vectorielles.

Merci. Le paramètre DI_NORMAL est celui qu'il faut employer.