ScrollArea qui laisse une "trainée" [Resolu]

[lepiaf31]

Bonjour, j'ai (encore) un probleme avec un scrollArea. Lorsque je place des gadgets dessus pour la première fois, tout se passe bien. Puis quand j'efface les gadgets pour en mettre de nouveaux, là il y a un probleme: quand on 'scrolle', il reste une trainée comme ceci:


Je ne donne pas de code pour le moment car il y a enormement de ligne. Je vais essayer d'isoler le bout de code qui pose problème avant de le poster

Merci

[Ar-S]

pas sûr mais ce ne serait pas une histoire de delay (tout petit) à ajouter ?

[poshu]

plutôt nettoyer le gadget, non? y'a une fonction pour ça dans l'api.

[lepiaf31]

Bon voila j'ai fait un code qui isole le problème:

Code : Tout sélectionner

OpenWindow(0, 0, 0, 300, 300, "TEST", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ButtonGadget(0, 5, 5, 120, 30, "clic")
ScrollAreaGadget(1, 5, 50, 250, 200, 240, 800, 10, #PB_ScrollArea_BorderLess)
TextGadget(2, 5, 5, 100, 20, "Du texte")
CloseGadgetList()

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Gadget
      If EventGadget() = 0 ;bouton
        FreeGadget(2)
        UseGadgetList(GadgetID(1))
        TextGadget(2, 5, 5, 100, 20, "Autre texte")
      EndIf
  EndSelect
ForEver

Cliquez sur le bouton et dans un premier temps le nouveau texte n'apparait pas et puis quand on scrolle, le texte apparait et laisse une trainée comme ceci:


Alors je ne sais pas si ça fait pareil chez vous mais c'est très embetant.

[gnozal]

Code : Tout sélectionner

OpenWindow(0, 0, 0, 300, 300, "TEST", #PB_Window_SystemMenu|#PB_Window_ScreenCentered) 
ButtonGadget(0, 5, 5, 120, 30, "clic") 
ScrollAreaGadget(1, 5, 50, 250, 200, 240, 800, 10) 
  TextGadget(2, 5, 5, 100, 20, "Du texte") 
CloseGadgetList() 

Repeat 
  Select WaitWindowEvent() 
    Case #PB_Event_CloseWindow 
      Break 
    Case #PB_Event_Gadget 
      If EventGadget() = 0 ;bouton 
        FreeGadget(2) 
        OpenGadgetList(1) 
          TextGadget(2, 5, 5, 100, 20, "Autre texte") 
        CloseGadgetList() 
      EndIf 
  EndSelect 
ForEver

OpenGadgetList(#Gadget [, Element]) : pour les gadgets -> http://www.purebasic.com/french/documen ... tlist.html
UseGadgetlist(WindowID) : pour les fenêtres -> http://www.purebasic.com/french/documen ... tlist.html

[lepiaf31]

Ha oui ... Honte à moi erreur stupide ...

Merci =)