Code: Alles auswählen
OpenWindow()
CreateGadgetList(WindowID())
bla = ScrollAreaGadget(4000,10, 40,170,424, 150, 27610, 10)
irgendwas
CloseGadgetList()
repeat
forever
Vorher UseGadgetList(bla) nehmen?
Code: Alles auswählen
OpenWindow()
CreateGadgetList(WindowID())
bla = ScrollAreaGadget(4000,10, 40,170,424, 150, 27610, 10)
irgendwas
CloseGadgetList()
repeat
forever
Procedure Bilder(von,bis)
OpenGadgetList(4000)
Ausgabe von neuen Buttons im ScrollAreaGadget...
CloseGadgetList()
<<<<< ausgabe im normalen fenster >>>>>
EndProcedure
OpenWindow(0,0,0,584,474,#PB_Window_SystemMenu,"")
CreateGadgetList(WindowID())
... Buttons
ScrollAreaGadget(4000,10, 40,170,424, 150, 27610, 10)
Bilder(1,200)
CloseGadgetList()
Repeat
EventID = WaitWindowEvent()
Until EventID = #PB_Event_CloseWindow
End