scrollareagadget - affectation evenement au scroll

[Patix]

Bonjour,

J'aimerai afficher dans le scrollareagadget une base de donnée par morceau.

Comment fait on pour affecter au déplacement de l'ascenseur un événement ou une action ?

[Patix]

Bonjour,

je pose ma question différemment :

Ci-dessous un essai, mais n'y arrive pas

Afficher la position verticale de l'ascenseur quand je bouge celui-ci

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 305, 200, "ScrollAreaGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
    ScrollAreaGadget(0, 10, 10, 290,120, 375, 155, 30)
      ButtonGadget  (1, 10, 10, 230, 30,"Bouton 1")
      ButtonGadget  (2, 50, 50, 230, 30,"Bouton 2")
      ButtonGadget  (3, 90, 90, 230, 30,"Bouton 3")
      TextGadget    (4,130,130, 230, 20,"Ceci est le contenu d'une zone de défilement !",#PB_Text_Right)
      CloseGadgetList() 
      
      TextGadget(6, 10, 140,230,20,"Position verticale de l'ascenseur")
      position=GetGadgetAttribute(0,#PB_ScrollArea_Y )
      TextGadget(7, 10, 160,250,20,Str(position))
      
    Repeat 
      Select WaitWindowEvent() 
        Case  #PB_Event_CloseWindow 
             End 
      
        Case  #PB_Event_Gadget 
          Select EventGadget()
            Case 1
              MessageRequester("Info","Le bouton 1 a été appuyé !",#PB_MessageRequester_Ok)
            Case 2
              MessageRequester("Info","Le bouton 2 a été appuyé !",#PB_MessageRequester_Ok)
            Case 3
              MessageRequester("Info","Le bouton 3 a été appuyé !",#PB_MessageRequester_Ok)
  
            Case 7
              position=GetGadgetAttribute(0,#PB_ScrollArea_Y )
              TextGadget(7, 10, 160,250,20,Str(position)) 

          EndSelect
      EndSelect 
    ForEver 
  EndIf

[Cls]

Salut patix, peut être comme ça :

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 305, 200, "ScrollAreaGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ScrollAreaGadget(0, 10, 10, 290,120, 375, 155, 30)
      ButtonGadget  (1, 10, 10, 230, 30,"Bouton 1")
      ButtonGadget  (2, 50, 50, 230, 30,"Bouton 2")
      ButtonGadget  (3, 90, 90, 230, 30,"Bouton 3")
      TextGadget    (4,130,130, 230, 20,"Ceci est le contenu d'une zone de défilement !",#PB_Text_Right)
      CloseGadgetList()
     
      TextGadget(6, 10, 140,230,20,"Position verticale de l'ascenseur")
      TextGadget(7, 10, 160,250,20, Str(0))
     
    Repeat
      Select WaitWindowEvent()
        Case  #PB_Event_CloseWindow
             End
     
        Case  #PB_Event_Gadget
          Select EventGadget()
            Case 1
              MessageRequester("Info","Le bouton 1 a été appuyé !",#PB_MessageRequester_Ok)
            Case 2
              MessageRequester("Info","Le bouton 2 a été appuyé !",#PB_MessageRequester_Ok)
            Case 3
              MessageRequester("Info","Le bouton 3 a été appuyé !",#PB_MessageRequester_Ok)
 
            Case 7
              position=GetGadgetAttribute(0,#PB_ScrollArea_Y )
              TextGadget(7, 10, 160,250,20,Str(position))

          EndSelect
          
          ; MODIF ICI
          SetGadgetText(7, Str(GetGadgetAttribute(0,#PB_ScrollArea_Y )))
          
      EndSelect
    ForEver
  EndIf

[Patix]

Merci,

simple et efficace