Je ne sais pas si le titre est suffisamment explicite, mais en fait, ce que je voudrais c'est au fur et à mesure d'ajouter des éléments à une liste il y est un défilement automatique vers le bas
je ne sais pas si je me suis bien fait comprendre?
en gros je souhaiterais que le dernier élément soit toujours visible dès l'instant où j'appuis sur "Add"
Code : Tout sélectionner
If OpenWindow(0, 100, 100, 100, 180, "ListIconGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(0,0, 21, 100, 150, "Item", 100, #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
ButtonGadget(1,0,0,30,20,"Add")
Repeat
Event = WaitWindowEvent()
WindowID = EventWindow()
GadgetID = EventGadget()
EventType = EventType()
Select Event
Case #PB_Event_Timer
Case #PB_Event_Gadget;-Change reac
Select GadgetID
Case 1
a=a+1
AddGadgetItem(0, -1, "Item "+Str(a))
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf