j'ai un gros souci de création de gadget en dynamique, en gros les éléments ainsi créer, ils ne sont pas cliquable et disparaissent aussitôt après l'intervention du scroll vertical;
Note, j'ai parcouru le forum, j'ai trouvé quelques petites choses intéressant mais j'ai franchement du mal à faire le lien avec mon problème
voici un bout de code, histoire d'illustrer la chose:
Code : Tout sélectionner
Window_0 = OpenWindow(#PB_Any, 0, 0, 600, 300, "", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_WindowCentered)
If Window_0
Button_Add = ButtonGadget(#PB_Any, 130, 10, 110, 20, "Add Items")
Container_0 = CanvasGadget(#PB_Any, 0, 70, 600, 230, #PB_Canvas_Container)
Scroll = ScrollAreaGadget(#PB_Any, 0, 0, 600,300, 575, 575, 30,#PB_ScrollArea_BorderLess)
ItemRecor1 = 1
ItemRecor2 = 2
ItemRecor3 = 3
ItemRecor4 = 4
ItemRecor5 = 5
IniY = 40
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Gadget
Select EventGadget()
Case Button_Add
OpenGadgetList(Container_0)
TextGadget(ItemRecor1,10,IniY-20,550,20,UCase(NameList$),#PB_Text_Center)
StringGadget(ItemRecor2,10, IniY, 400, 20, "")
ButtonGadget(ItemRecor3, 420, IniY, 30, 20, "Play")
ButtonGadget(ItemRecor4, 460, IniY, 50, 20, "Record")
ButtonGadget(ItemRecor5, 510, IniY, 50, 20, "Load")
CloseGadgetList()
ItemRecor1 +5
ItemRecor2 +5
ItemRecor3 +5
ItemRecor4 +5
ItemRecor5 +5
IniY +45
EndSelect
EndSelect
ForEver
EndIf
End