Création Gadget à la volée
Publié : mer. 25/nov./2020 22:35
Bonsoir à tous
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:
toutes suggestions, je suis preneur 
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
