à télécharger ici : File:1->SetOfMenus.zip
L'archive contient un dossier de 100 icônes converties en bmp de 13x13 pixels, seul format rendant la chose possible. Il s'agit d'icônes créées, extraites ou retouchées. Un code d'exemple d'utilisation est joint mais je le replace ici.
Code : Tout sélectionner
;Jacobus 01/12/2006
;Agrémenter ses menus et popupmenus avec des icônes
;Pour afficher des images correctes elles doivent impérativement être
;au format 13x13 pixels, sinon elles sont tronquées.
;D'où l'intérêt de ce pack d'icônes converties en bmp.
;code d'exemple avec PB4.01 pour windows
;-Constantes
Enumeration
#WIN
#MENU
#Menu1
#Menu2
#Menu3
#Menu4
#Menu5
#Menu6
#Menu7
#Menu8
#Menu9
#Menu10
#Menu11
#Menu12
#Menu13
#POPUP_EXPLORER
#MENU_OPENFILE
#MENU_PACK
#MENU_UNPACK
#MENU_SUPPRIMER
#MENU_DELETE
#MENU_ERASE
#MENU_COPIER
#MENU_DEPLACER
#EXPLORER
EndEnumeration
#PROGNAME = "Menus et icônes"
;-Catch images
Global Image0, Image1, Image2, Image3, Image4, Image5, Image6, Image7, Image8, Image9, Image10
Global Image11, Image12, Image13, Image15, Image15, Image16, Image17, Image18;, Image19, Image20
Image0 = CatchImage(0, ?Image0)
Image1 = CatchImage(1, ?Image1)
Image2 = CatchImage(2, ?Image2)
Image3 = CatchImage(3, ?Image3)
Image4 = CatchImage(4, ?Image4)
Image5 = CatchImage(5, ?Image5)
Image6 = CatchImage(6, ?Image6)
Image7 = CatchImage(7, ?Image7)
Image8 = CatchImage(8, ?Image8)
Image9 = CatchImage(9, ?Image9)
Image10 = CatchImage(10, ?Image10)
Image11 = CatchImage(11, ?Image11)
Image12 = CatchImage(12, ?Image12)
Image13 = CatchImage(13, ?Image13)
Image14 = CatchImage(14, ?Image14)
Image15 = CatchImage(15, ?Image15)
Image16 = CatchImage(16, ?Image16)
Image17 = CatchImage(17, ?Image17)
Image18 = CatchImage(18, ?Image18)
;Image19 = CatchImage(19, ?Image19)
;Image20 = CatchImage(20, ?Image20)
DataSection ;-BMP 13x13
Image0 : IncludeBinary "BmpMENUS\OpenFile.bmp"
Image1 : IncludeBinary "BmpMENUS\zip.bmp"
Image2 : IncludeBinary "BmpMENUS\RecycleBin.bmp"
Image3 : IncludeBinary "BmpMENUS\Copy.bmp"
Image4 : IncludeBinary "BmpMENUS\SendTo.bmp"
Image5 : IncludeBinary "BmpMENUS\DirExplore.bmp"
Image6 : IncludeBinary "BmpMENUS\Replace.bmp"
Image7 : IncludeBinary "BmpMENUS\Shredfile.bmp"
Image8 : IncludeBinary "BmpMENUS\save.bmp"
Image9 : IncludeBinary "BmpMENUS\Rescue.bmp"
Image10 : IncludeBinary "BmpMENUS\Quit3.bmp"
Image11 : IncludeBinary "BmpMENUS\Delete.bmp"
Image12 : IncludeBinary "BmpMENUS\TextFile_2.bmp"
Image13 : IncludeBinary "BmpMENUS\Vers.bmp"
Image14 : IncludeBinary "BmpMENUS\MrGreen.bmp"
Image15 : IncludeBinary "BmpMENUS\OneUser.bmp"
Image16 : IncludeBinary "BmpMENUS\AllUsers.bmp"
Image17 : IncludeBinary "BmpMENUS\Death_brrr.bmp"
Image18 : IncludeBinary "BmpMENUS\WhoIsUser.bmp"
;Image19 : IncludeBinary "BmpMENUS\.bmp"
;Image20 : IncludeBinary "BmpMENUS\.bmp"
EndDataSection
;-------------------------
;- FENETRE <<<
;-------------------------
ExamineDesktops()
Largeur$ = Str(DesktopWidth(0))
Hauteur$ = Str(DesktopHeight(0))
If Val(Largeur$)>800 And Val(Hauteur$)>600
FlagWin = #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_TitleBar
Else
FlagWin = #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar
EndIf
If OpenWindow(#WIN,0,0,790,550,#PROGNAME ,FlagWin)=0 Or CreateGadgetList(WindowID(#WIN))=0
End
EndIf
SetWindowColor(#WIN, RGB(255, 255, 255))
;-Menu
Menu = CreateMenu(#MENU, WindowID(#WIN))
If Menu
MenuTitle("Projet")
MenuItem(#Menu1, " Ouvrir" +Chr(9)+"Ctrl+O")
MenuBar()
MenuItem(#Menu2, " Enregistrer" +Chr(9)+"Ctrl+E")
MenuBar()
MenuItem(#Menu3, " Sauvegarder" +Chr(9)+"Ctrl+S")
MenuBar()
MenuItem(#Menu4, " Quitter "+#PROGNAME +Chr(9)+"Ctrl+F")
MenuTitle("Edition")
MenuItem(#Menu5, " Editer")
MenuItem(#Menu6, " Copier")
MenuItem(#Menu7, " Remplacer")
MenuBar()
MenuItem(#Menu8, " Supprimer")
MenuTitle("Administration")
MenuItem(#Menu9, " Admin")
MenuBar()
MenuItem(#Menu10, " Utilisateur")
MenuItem(#Menu11, " Tous les utilisateurs")
MenuBar()
MenuItem(#Menu12, " Qui est-ce ?")
MenuItem(#Menu13, " Bannir définitivement")
; SetMenuItemBitmaps_(Menu, #MENU_ITEM, flags, ImageID(Img)=IconUnchecked, ImageID(Img)=IconChecked)
SetMenuItemBitmaps_(Menu, #Menu1, #MF_BYCOMMAND, ImageID(5), ImageID(5))
SetMenuItemBitmaps_(Menu, #Menu2, #MF_BYCOMMAND, ImageID(8), ImageID(8))
SetMenuItemBitmaps_(Menu, #Menu3, #MF_BYCOMMAND, ImageID(9), ImageID(9))
SetMenuItemBitmaps_(Menu, #Menu4, #MF_BYCOMMAND, ImageID(10), ImageID(10))
SetMenuItemBitmaps_(Menu, #Menu5, #MF_BYCOMMAND, ImageID(12), ImageID(12))
SetMenuItemBitmaps_(Menu, #Menu6, #MF_BYCOMMAND, ImageID(3), ImageID(3))
SetMenuItemBitmaps_(Menu, #Menu7, #MF_BYCOMMAND, ImageID(6), ImageID(6))
SetMenuItemBitmaps_(Menu, #Menu8, #MF_BYCOMMAND, ImageID(2), ImageID(2))
SetMenuItemBitmaps_(Menu, #Menu9, #MF_BYCOMMAND, ImageID(14), ImageID(14))
SetMenuItemBitmaps_(Menu, #Menu10, #MF_BYCOMMAND, ImageID(15), ImageID(15))
SetMenuItemBitmaps_(Menu, #Menu11, #MF_BYCOMMAND, ImageID(16), ImageID(16))
SetMenuItemBitmaps_(Menu, #Menu12, #MF_BYCOMMAND, ImageID(18), ImageID(18))
SetMenuItemBitmaps_(Menu, #Menu13, #MF_BYCOMMAND, ImageID(17), ImageID(17))
EndIf
;-Popup Menu
PopUpMenu = CreatePopupMenu(#POPUP_EXPLORER)
If PopUpMenu
MenuItem(#MENU_OPENFILE, " Ouvrir") ;on laisse un espace entre l'icône et le texte
MenuBar() ;mais chacun fait comme il le sent
MenuItem(#MENU_PACK, " Compresser")
MenuItem(#MENU_UNPACK, " Décompresser")
MenuBar()
MenuItem(#MENU_SUPPRIMER," Envoyer à la corbeille")
MenuItem(#MENU_DELETE, " Supprimer")
MenuItem(#MENU_ERASE, " Passer au broyeur")
MenuBar()
MenuItem(#MENU_COPIER, " Copier vers ...")
MenuItem(#MENU_DEPLACER, " Déplacer vers ...")
; SetMenuItemBitmaps_(PopUpMenu, #MENU_ITEM, flags, ImageID(Img)=IconUnchecked, ImageID(Img)=IconChecked)
SetMenuItemBitmaps_(PopUpMenu, #MENU_OPENFILE, #MF_BYCOMMAND, ImageID(0), ImageID(0))
SetMenuItemBitmaps_(PopUpMenu, #MENU_PACK, #MF_BYCOMMAND, ImageID(1), ImageID(1))
SetMenuItemBitmaps_(PopUpMenu, #MENU_UNPACK, #MF_BYCOMMAND, ImageID(1), ImageID(1))
SetMenuItemBitmaps_(PopUpMenu, #MENU_SUPPRIMER, #MF_BYCOMMAND, ImageID(2), ImageID(2))
SetMenuItemBitmaps_(PopUpMenu, #MENU_DELETE, #MF_BYCOMMAND, ImageID(11), ImageID(11))
SetMenuItemBitmaps_(PopUpMenu, #MENU_ERASE, #MF_BYCOMMAND, ImageID(7), ImageID(7))
SetMenuItemBitmaps_(PopUpMenu, #MENU_COPIER, #MF_BYCOMMAND, ImageID(13), ImageID(13))
SetMenuItemBitmaps_(PopUpMenu, #MENU_DEPLACER, #MF_BYCOMMAND, ImageID(4), ImageID(4))
EndIf
ExplorerListGadget(#EXPLORER,0, 0, WindowWidth(#WIN),WindowHeight(#WIN),"c:\",#PB_Explorer_MultiSelect)
ChangeListIconGadgetDisplay(#EXPLORER, #PB_ListIcon_LargeIcon)
;-----Event Gadgets
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case #EXPLORER
;Double-clic gauche pour ouvrir un répertoire sinon...
Select EventType()
Case #PB_EventType_RightClick
PosPopup = GetGadgetState(#EXPLORER)
If PosPopup >= 0
Resultat = GetGadgetItemState(#EXPLORER, PosPopup)
If Resultat & #PB_Explorer_Selected And Resultat & #PB_Explorer_File
SelectedFile$ = GetGadgetItemText(#EXPLORER, PosPopup, 0)
extens$ = GetExtensionPart(SelectedFile$)
SetMenuItemText(#POPUP_EXPLORER,#MENU_OPENFILE ," Ouvrir :"+GetFilePart(SelectedFile$))
If extens$ <> "zip"
DisableMenuItem(#POPUP_EXPLORER,#MENU_UNPACK,1)
DisableMenuItem(#POPUP_EXPLORER,#MENU_PACK,0)
Else
DisableMenuItem(#POPUP_EXPLORER,#MENU_UNPACK,0)
DisableMenuItem(#POPUP_EXPLORER,#MENU_PACK,1)
EndIf
DisplayPopupMenu(#POPUP_EXPLORER,WindowID(#WIN))
ElseIf Resultat & #PB_Explorer_Directory
SetMenuItemText(#POPUP_EXPLORER,#MENU_OPENFILE," Ouvrir ce dossier")
DisableMenuItem(#POPUP_EXPLORER,#MENU_UNPACK,1)
DisableMenuItem(#POPUP_EXPLORER,#MENU_PACK,0)
DisplayPopupMenu(#POPUP_EXPLORER,WindowID(#WIN))
EndIf
EndIf
EndSelect
EndSelect
;-----Event Menus
Case #PB_Event_Menu
Select EventMenu()
Case #Menu4 : Event = #PB_Event_CloseWindow
Case #MENU_OPENFILE
ShellExecute_(0,"open",GetGadgetText(#EXPLORER)+GetGadgetItemText(#EXPLORER, GetGadgetState(#EXPLORER) ,0),0,0,1)
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
End
;-end
Voilà, amusez vous bien
