icone en jpeg
Publié : ven. 01/sept./2006 21:58
bonsoir,
voila je cherche le moyen de convertir un fichier qui a pour extention (*.ico). en fichier jpeg, en concervant le transparent
.
j'arrive a convertir en jpeg tout les format d'image mais pas celui là
.
donc voila est-ce que quelquin aurait une petite astuce
svp. si non voici un code d'exemple.
merci
@++
voila je cherche le moyen de convertir un fichier qui a pour extention (*.ico). en fichier jpeg, en concervant le transparent

j'arrive a convertir en jpeg tout les format d'image mais pas celui là

donc voila est-ce que quelquin aurait une petite astuce

Code : Tout sélectionner
;- Window Constants
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
Enumeration
#Button_0
#Button_1
EndEnumeration
;- Fonts
Global FontID1
FontID1 = LoadFont(1, "Comic Sans MS", 11, #PB_Font_Bold)
If OpenWindow(#Window_0, 216, 0, 260, 110, "exemple", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(#Window_0))
ButtonGadget(#Button_0, 45, 15, 175, 30, "ouvrir un icon")
ButtonGadget(#Button_1, 45, 65, 175, 30, "encoder en jpeg")
SetGadgetFont(#Button_0, FontID1)
SetGadgetFont(#Button_1, FontID1)
EndIf
EndIf
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
Select EventGadget()
Case #Button_0
Filename$ = OpenFileRequester("ouvrir une image", "", "image icone|*.ico", 0)
If Filename$
If LoadImage(0, Filename$)
EndIf
EndIf
Case #Button_1
UseJPEGImageEncoder()
Filename$ = SaveFileRequester("Sauvegarder", Left(Filename$, Len(Filename$)-Len(GetExtensionPart(Filename$))-1), "jpeg|*.jpg", 0)
If Filename$
Select SelectedFilePattern()
Case 0
ImageFormat = #PB_ImagePlugin_JPEG
EndSelect
If LCase(GetExtensionPart(Filename$)) <> "jpg"
Filename$ + "." + "jpg"
EndIf
If SaveImage(0, Filename$, ImageFormat)
EndIf
CloseWindow(0)
End
EndIf
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
@++