Discussion :

[WilburGallo]

Bonsoir et bonne année 2014 à tous.

Je me heurte à un problème difficile à résoudre (à cause de mes maigres connaissances en programmation) concernant le composant TImageList et les images .png.

Je travaille avec Delphi XE3.

Il est précisé dans l'aide de Delphi : "Les images de la liste peuvent être des bitmaps, des icônes, des images PNG, GIF et JPEG : tout type d'image que TImage supporte."

Or, quand je veux ajouter une première image .png à la liste, en utilisant sa méthode Add, le premier argument attendu est du type TBitmap. Alors naturellement, mon image .png étant du type TPngImage, il y a une erreur lors de la compilation.

Ma question est donc la suivante : comment charger dans un TImageList une image .png ?

Merci d'avance pour les propositions ou les explications que vous pourriez me donner.

Bonne programmation à tous.

[retwas]

Tu dois pouvoir faire un LoadFromFile sur un TBitmap

[ShaiLeTroll]

Quand tu ajoutes une PNG en DesignTime, cela ajoute cette unité PngImage dans la fiche !
Pour que la Class Registry gérant les extensions des images contiennent la référence au PNG (voir PngImage, l'appel à TPicture.RegisterFileFormat)

Si tu utilises déjà une TPngImage que tu as chargé via LoadFromFile, tu peux ensuite générer la TBitmap via un Assign
voir la fonction BMPdeIMG de Gilbert Geyer



J'ignore comment générer le Masked depuis la PNG pour n'en récupérer que la zone de Transparence

Voir aussi TPngImageList - ID: 26127, PngComponents for Delphi 2009-XE5

[Andnotor]

J'ignore comment générer le Masked depuis la PNG pour n'en récupérer que la zone de Transparence

Inutile si le png est 32 bits. Assign va forcé le bitmap dans ce mode et ainsi le canal alpha sera conservé. Ne pas oublier par contre de définir ColorDepth de l'ImageList sur cd32bit.

[WilburGallo]

Bonsoir,

Merci pour les réponses que vous m'avez envoyées. Je viens seulement d'en prendre connaissance, il ne me reste plus qu'à les étudier en détail.

Bonne programmation à tous.