Discussion :

[Invité]

Bonjour,

sous windows, j'extrais l'icone associée à un fichier (ici un ods) dans un TImage.

On remarque que le TImage respecte la transparence.

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

Code :

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

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

La canal alpha est visiblement perdu.


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

[Jipété]

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

[BeanzMaster]

Salut essayes avec ce code

Code :

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

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

[Invité]

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