ExplorerListGadget en.. panne ?
Publié : jeu. 08/août/2024 15:45
Salut,
après une longue période sans coder, j'ai perdu la main.
Voici un code minimaliste qui, je l'espère, est complet.
L'est-il ?
Autre question : pourquoi je n'ai pas la liste des fichiers dans ExplorerListGadget ?
Merci
après une longue période sans coder, j'ai perdu la main.
Voici un code minimaliste qui, je l'espère, est complet.
L'est-il ?
Autre question : pourquoi je n'ai pas la liste des fichiers dans ExplorerListGadget ?
Code : Tout sélectionner
If OpenWindow(0, 0, 0, 760,480, "ExplorerTreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ExplorerTreeGadget(1, 11, 73, 230, 280, Repertoire$, #PB_Explorer_NoFiles)
ExplorerListGadget(2, 247,73,490,280, "*.*", #PB_Explorer_NoFolders|#PB_Explorer_NoParentFolder)
SendMessage_(GadgetID(2),#LVM_SETCOLUMNWIDTH,0,188) ; largeur colonne
SendMessage_(GadgetID(2),#LVM_SETCOLUMNWIDTH,1,80) ; largeur colonne
Repeat
Select EventGadget()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; menu contextuel
Case 1 ; Afficher les fichiers du répertoire sélectionné
Select type
Case #PB_EventType_LeftClick
EndSelect
EndSelect
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
