j'ai fait quelque essai mais sans réussite, si l'un de vous trouve pourquoi ça plante
Code : Tout sélectionner
Enumeration
#Panel
EndEnumeration
#TCS_VERTICAL = $80
#TCS_FLATBUTTONS = $8
#TCS_SCROLLOPPOSITE = $1
#TCS_RIGHT = $2
#TCS_MULTISELECT = $4
Procedure SetStyle(Handle, style.l)
SetWindowLong_(Handle, #GWL_STYLE, GetWindowLong_(Handle, #GWL_STYLE) | style)
EndProcedure
#TailleX = 300
#TailleY = 300
; Création de la fenêtre et dela GadgetList
If OpenWindow(0, 0, 0, #TailleX - 1, #TailleY - 1, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, "Extension") = 0 Or CreateGadgetList(WindowID()) = 0
End
EndIf
SetWindowLong_(WindowID(), #GWL_EXSTYLE, GetWindowLong_(WindowID(), #GWL_EXSTYLE) | #WS_EX_TOOLWINDOW) ; choix de la barre d'outil réduite
ResizeWindow(#TailleX, #TailleY) ; redimensionne la fenetre
ResizeWindow(#TailleX, 2 * #TailleY - WindowHeight())
SetWindowPos_(WindowID(), -1, 0, 0, 0, 0, #SWP_NOSIZE | #SWP_NOMOVE) ; mets la fenêtre toujours au premier plan
ShowWindow_(WindowID(), #SW_SHOW) ; montre la fenêtre
PanelGadget(#Panel, 0, 0, 300, 300)
AddGadgetItem(#Panel, -1, "Dossier 1")
AddGadgetItem(#Panel, -1, "Dossier 2")
AddGadgetItem(#Panel, -1, Space(28))
AddGadgetItem(#Panel, -1, Space(0))
CloseGadgetList()
SetStyle(GadgetID(#Panel), #TCS_VERTICAL)
SetGadgetState(#Panel, 0)
Repeat
Event = WaitWindowEvent()
If Event = #PB_EventMenu
Select EventMenuID() ; menu et barre d'outils
EndSelect
EndIf
If Event = #PB_EventGadget
Select EventGadgetID() ; boutons, zone de texte, ...
EndSelect
EndIf
Until Event = #PB_EventCloseWindow
End
