[BCB6] Creation icone probleme de transparence

Bonjour

A partir d'une image (.bmp) chargé dans un TImage
j'aimerais enregistrer l'image du TImage en fichier icone (.ico).

j'ai rechercher plusieurs solution mais j'y arrive pas.
Aucune information précises sur le net a ce sujet.

a part peut être ( CreateIconIndirect ou HICON etc..) mais comment faire ?

Merci et A+

salut,

Citation:

---

Envoyé par winow

A partir d'une image (.bmp) chargé dans un TImage
j'aimerais enregistrer l'image du TImage en fichier icone (.ico).

---

voilà un code permettant au d'enregistrer une image bmp dans un fichier ico au chargement:

Code:

---

1 2 3 4 5 6

Image1->Stretch=true; /*pour que l'image chargée ait la même taille et la même forme que le contrôle image.*/ if(OpenPictureDialog1->Execute()) Image1->Picture->Bitmap->LoadFromFile(OpenPictureDialog1->FileName); SavePictureDialog1->DefaultExt ="ICO"; /* mettre .ico l'extension par défaut du SavePictureDialog1*/   Image1->Picture->Bitmap->SaveToFile("c:\\f.ico");

---

Merci SmileSoft

ça marche mais ce code ne gère pas la transparence de l'icône une fois crée.
l'icône crée a un contour noir.

Citation:

---

Envoyé par winow

ça marche mais ce code ne gère pas la transparence de l'icône une fois crée.
l'icône crée a un contour noir.

---

peux tu nous montrer le résultat sur un exemple?

une solution peut être est de redimensionner (diminuer la taille) de l'icône après création, généralement les icônes prennent de petites tailles.

En fait, j'ai un bouton qui charge un bitmap dans le TImage et un autre pour l'enregistrer en .ico

Code:

---

1 2 3 4 5 6 7 8 9 10 11

//pour enregistrer par defaut Image1->DefaultExt = GraphicExtension(__classid(Graphics::TIcon)); Image1->Filter = GraphicFilter(__classid(Graphics::TIcon)); // fin par defaut   if(OpenDialog1->Execute()) { //la il doit manquer du code Image1->Picture->Graphic->SaveToFile(OpenDialog1->FileName); }

---

Une image explicative : http://xs.to/xs.php?h=xs135&d=09024&...devpcom587.jpg

Code:

---

1 2 3 4 5 6 7

if(OpenDialog1->Execute()) { //la il doit manquer du code Image1->Picture->Graphic->SaveToFile(OpenDialog1->FileName); }

---

pour quoi tu n'utilises pas (OpenPictureDialog1 et SavePictureDialog1)? le code dont je t'ai passé marche bien chez moi et ne donne pas un fond noir.

Parce que je récupère une icône dans une application .exe

Mais je vais regarder pour le TSavePictureDialog1 pour enregistrer en fichier icône, ça devrait être bon.

Merci SmileSoft meilleur vœux a Toi et A+

Rien a faire, ça veut pas accepter la transparence