gibt es eine Möglichkeit alle Gadget in ein ScrollAreaGadget zu entfernen ohne in eine Schleifen mit FreeGadget?
Code: Alles auswählen
Enumeration
#button
#area
#Preview
EndEnumeration
Procedure setArea()
TextGadget(#PB_Any, 10, 10, 250, 20, "TextGadget")
StringGadget(#PB_Any, 10, 40, 250, 20, "StringGadget...")
; und noch viel mehr ...
EndProcedure
Procedure deleteArea()
Debug "deleteArea"
EndProcedure
If OpenWindow(0, 0, 0, 350, 300, "Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ButtonGadget(#button, 100, 20, 90, 20, "delete")
ScrollAreaGadget(#area, 10, 50, 300,200, 470, 400, #PB_Ignore, #PB_ScrollArea_Flat )
setArea()
CloseGadgetList()
Repeat
event = WaitWindowEvent()
Select event
Case #PB_Event_Gadget
EventGadget = EventGadget()
Select EventGadget
Case #button
deleteArea()
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf
MarcelX