ScrollAreaGadget in aktivem Fenster
Verfasst: 10.11.2014 09:14
ScrollAreaGadgets werden in aktiven Fenstern erstellt.
Wenn ich ein ScrollAreaGadget in win1 erstellen möchte, win2 aber aktiv ist, würde das Gadget in win2 erstellt werden.
Um sicherzugehen, dass mein ScrollAreaGadget in win1 erstellt wird, habe ich mir folgenden Code geschrieben:
Wenn ich nun win2 schliesse, dann sollte win1 aktiv sein und das ScrollAreaGadget erstellt werden.
Es kommt aber unter Windows die Fehlermeldung, dass es keine Gadget-Liste geben würde.
Was mache ich falsch?
Wenn ich ein ScrollAreaGadget in win1 erstellen möchte, win2 aber aktiv ist, würde das Gadget in win2 erstellt werden.
Um sicherzugehen, dass mein ScrollAreaGadget in win1 erstellt wird, habe ich mir folgenden Code geschrieben:
Code: Alles auswählen
win1=OpenWindow(#PB_Any, 0,0,800,600, "window1", #PB_Window_ScreenCentered|#PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget| #PB_Window_TitleBar)
win2=OpenWindow(#PB_Any, 0,0,400,300, "window2", #PB_Window_ScreenCentered|#PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget| #PB_Window_TitleBar)
;- Ereignis-Schleife
Repeat
Event = WaitWindowEvent(100)
EventWindow = EventWindow()
EventGadget = EventGadget()
EventType = EventType()
Select Event
Case #PB_Event_Gadget
Case #PB_Event_CloseWindow
If EventWindow = win2
CloseWindow(win2)
EndIf
If EventWindow = win1
raus=1
CloseWindow(win1)
Break
EndIf
EndSelect
If aflag=0 And GetActiveWindow()=win1
ScrollAreaGadget(4, 10,10,300,300,300,300)
For i=1 To 100
TextGadget(#PB_Any, 10,i+80,100,25,"TextGadget "+Str(i))
Next i
CloseGadgetList()
aflg=1
EndIf
Until raus=1
Es kommt aber unter Windows die Fehlermeldung, dass es keine Gadget-Liste geben würde.
Was mache ich falsch?