Jedesmal ein neues gadget zu erstellen ist schon mal falsch!
Dafür gibs ResizeGadget, damit kannst du ein Gadget verschieben (u.a.)
Zum Verzögern kannst du einen WindowTimer nutzen.
Das ganze sieht dann zB so aus:
Code:
Enumeration
#Window
#Gadget
#Timer
EndEnumeration
OpenWindow(#Window, 0, 0, 400, 300, "Fenster", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
TextGadget(#Gadget, 130, 10, 200, 20, "Beispieltext")
AddWindowTimer(#Window, #Timer, 500)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
Case #PB_Event_Timer
Select EventTimer()
Case #Timer
If GadgetX(#Gadget) > 70
ResizeGadget(#Gadget, GadgetX(#Gadget)-10, #PB_Ignore, #PB_Ignore, #PB_Ignore)
EndIf
EndSelect
EndSelect
ForEver
Solange der Text nicht bei x=70 ist wird er jede 500ms um 10px nach links geschoben.