Discussion :

[winow]

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+

[SmileSoft]

salut,

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 :

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

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");

[winow]

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.

[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.

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.

[winow]

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

Code :

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

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

[SmileSoft]

Code :

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

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.