Ce matin j'ai eu besoin d'un nouveau gadget pour le projet sur lequel je bosse en ce moment; j'en ai donc bricolé vite fait un, et j'aimerais que vous le testiez pour me prévenir d'une éventuelle incompatibilité (je crois que toutes les fonctions API que j'ai utilisées sont compatible avec Windows 2000 et plus).
Ca se télécharge là
Dites moi aussi si ça vous intéresse à la release (faut que je corrige quelques petites choses pour le rendre idiot-proof). C'est assez simple à utiliser, voilà par exemple le code de la démo postée juste au dessus:
Code : Tout sélectionner
UsePNGImageDecoder()
CatchImage(0,?prululu)
CatchImage(1,?pralala)
CatchImage(2,?prilili)
CatchImage(3,?prelele)
OpenWindow(0,25,25,250,500,"Test Advanced List Icon",#PB_Window_SystemMenu|#PB_Window_Tool|#PB_Window_SizeGadget)
Define ID = ToolListGadget(#PB_Any,5,5,240,490,"Nyaaa!",#PB_ToolList_Flat)
AddToolListItem(ID,"prululu",#Toollist_Item,ImageID(1))
AddToolListItem(ID,"pralala",#Toollist_Item,ImageID(0))
AddToolListItem(ID,"prululu",#Toollist_Item,ImageID(3))
AddToolListItem(ID,"Un autre titre",#Toollist_Title)
AddToolListItem(ID,"un dernier item",#Toollist_Item,ImageID(2))
Repeat
Select WaitWindowEvent()
Case #PB_Event_SizeWindow
ResizeGadget(ID,#PB_Ignore,#PB_Ignore,WindowWidth(0)-10,WindowHeight(0)-10)
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
DataSection
prululu: IncludeBinary "K:\Data\icons\accept.png"
pralala: IncludeBinary "K:\Data\icons\alphabet.png"
prilili: IncludeBinary "K:\Data\icons\anchor.png"
prelele: IncludeBinary "K:\Data\icons\application.png"
Folded: IncludeBinary "K:\Data\icons\Gadget Icon\Folded.png"
Unfolded: IncludeBinary "K:\Data\icons\Gadget Icon\Unfolded.png"
EndDataSection
et je t'en remercie.
