Page 1 sur 1

ListIcon réactualisée

Publié : jeu. 14/mai/2020 19:11
par Ekim
Bonsoirs à tous

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? :oops:

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
Je suis à votre écoute :wink:

Re: ListIcon réactualisée

Publié : jeu. 14/mai/2020 21:17
par venom
Salut Ekim,

J'ai aborder le sujet il n'y a pas longtemps ici

Voici ton code modifier :

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))
                   SetGadgetState(0, CountGadgetItems(0)-1) ; <--- ligne ajouter
                  
            EndSelect
      EndSelect
   Until Event = #PB_Event_CloseWindow
EndIf





@++

[RESOLUT] Re: ListIcon réactualisée

Publié : jeu. 14/mai/2020 22:36
par Ekim
Salut @Venom, oui je vois ça effectivement 8O , alors pour ton topic n'apparait pas dans la recherche quand on tappe "Listicon" ? :|

la solution était pourtant si simple :D

Merci @Venom