Sauvegarde de la transparence d'un Timage

Bonjour,

sous windows, j'extrais l'icone associée à un fichier (ici un ods) dans un TImage.
Pièce jointe 541141
On remarque que le TImage respecte la transparence.

Je l'enregistre en "test.ico" par un banal :

Code:

---

ImgIcon.Picture.SaveToFile('test.ico');

---

La canal alpha est visiblement perdu.
Pièce jointe 541145

Comment conserver la transparence dans le fichier enregistré sachant qu'éventuellement le résultat peut-être sauvegardé dans un png.

J'ai peut être su faire cela... mais si tel est le cas, j'ai oublié. Lazarus n'est plus ma plateforme de développement principal depuis quelques années (mais Qt). Merci simplement de m'indiquer une piste si possible sans utiliser BGRABitmap.

Cordialement. Gilles

Bonjour,

les autres me corrigeront si je me trompe, mais je crois bien que le TImage.Picture ne gère pas la transparence, comme tu l'as remarqué à tes dépens.

Et j'ai bien peur qu'il ne te faille passer par un TBitmap et son PixelFormat := pf32bit; puis une recopie des pixels de l'icône en respectant la notion de longueur des lignes en 32 bits puis enfin l'enregistrer avec TBitmap.SaveToFile('chemin/fichier').
J'espère me tromper (ou être périmé, ce qui revient au même).

Courage (et je n'ai pas le moindre snippet sous la main),

Salut essayes avec ce code

Code:

---

1 2 3

//Image1.Picture.Icon.TransparentColor := Image1.Picture.Bitmap.TransparentColor; clFuchsia; Image1.Picture.Icon.TransparentMode := tmAuto; //tmFixed ; Image1.Picture.Icon.SaveToFile(SPD.FileName); //SPD = SavePictureDialog

---

Chez ma cela fonctionne avec des ico en 32bits. Au pire joins nous ton icone pour que l'on puisse tester.

A+

Jérôme

Bonjour,

je suis finalement passé par BGRABitmap et le problème a été réglé en 3 lignes de codes.

Il n'y a plus que régler le même problème avec Firemonkey.
Cordialement. Gilles