Discussion :

[Desraux]

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 :

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

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);

[Fabrice ROUXEL 1]

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

[Desraux]

J'ai essayé ce code :

Code :

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

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.

[Fabrice ROUXEL 1]

Utilises la fonction comme cela:

Code :

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

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.

[Desraux]

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