Composer une liste d'éléments avec et sans image.
Publié : sam. 17/juin/2006 15:09
J’ai remarqué que lorsque l’on désirait utiliser une image dans un TreeGadget, alors tous les éléments de la liste devaient avoir une Image.
Je suppose que c'est aussi le cas avec les ListIconGadget.
Bref, ce serait bien de pouvoir composer une liste d'éléments avec et sans image.
Sinon, quelqu'un sait-il comment imposer une image que pour certains éléments ?
Je suppose que c'est aussi le cas avec les ListIconGadget.
Bref, ce serait bien de pouvoir composer une liste d'éléments avec et sans image.
Sinon, quelqu'un sait-il comment imposer une image que pour certains éléments ?
Code : Tout sélectionner
If OpenWindow(0, 0, 0, 355, 180, "TreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
TreeGadget(0, 10, 10, 160, 160) ; liste arborescente standard
TreeGadget(1, 180, 10, 160, 160, #PB_Tree_CheckBoxes|#PB_Tree_NoLines) ; liste arborescente avec cases à cocher + sans lignes reliant les noeuds
hImg = LoadIcon_(0,#IDI_APPLICATION)
For ID = 0 To 1
For a = 0 To 10
AddGadgetItem (ID, -1, "Elément normal "+Str(a));, 0, 0) ; si vous souhaitez ajouter une image, utilisez
AddGadgetItem (ID, -1, "Noeud "+Str(a), 0, 0) ; ImageID(x) comme 4ème paramètre
AddGadgetItem (ID, -1, "Sous-élément 1", hImg, 1) ; Ceux-là sont au premier sous-niveau
AddGadgetItem (ID, -1, "Sous-élément 2", 0, 1)
AddGadgetItem (ID, -1, "Sous-élément 3", -1, 1)
AddGadgetItem (ID, -1, "Sous-élément 4", 0, 1)
AddGadgetItem (ID, -1, "Fichier "+Str(a), 0, 0) ; sous-niveau 0 à nouveau
Next
Next
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf