Salut,
Comment fait-on pour afficher dans un TImage une image contenue dans un TImageList ??
Merci
Version imprimable
Salut,
Comment fait-on pour afficher dans un TImage une image contenue dans un TImageList ??
Merci
Salut
Avec GetBitmap de TImageList:
@+ ClaudiusCode:
1
2
3
4 procedure Form1.Button1Click(Sender: TObject); begin ImageList1.GetBitmap(0, Image1.Picture.Bitmap); end;
D'accord merci pour le code,
mais (lol) l'ime est toute petite petite petite petite............
On peut changer la taille = par exemple remettre la taille d'origine ???:?
a+
Bonjour,
Le conteneur TImageList est seulement fait pour des icônes et autres petites ressources en 16x16px il me semble.
Il te faut donc passer par une autre méthode de chargement de pictures dans un TImage, exemple :
@+Code:
1
2
3
4 procedure TForm1.Button1Click(Sender: TObject); begin Image1.picture.LoadFromFile('toto.jpg'); end;
Le taille des images contenues dans un TImageList peut être définie à la conception. (Il faut le faire avant d'y insérer des images.)
A noter que les images sont stockées non compressées dans le DFM. Ce n'est pas fait pour gérer une large collection.
Oui on peut choisir la taille des images à placer dans le TImageList avant de les charger. Par contre toutes les images devront avoir cette taille.