Mehrere Fenster und dessen GadgetListen ?

[D.J.Peters]

Ich sehe gerade vor lauter Bäumen den Wald nicht.

Hier das simple Problem:

Code: Alles auswählen

; wenn schon zwei Fenster existieren
win1 = OpenWindow(#PB_Any,10,10,200,200,"win1")
win2 = OpenWindow(#PB_Any,50,50,200,200,"win2")

; Wie kann man dann "später" eines der Fester für neue Gadgets auswählen ?
; Es gibt ja kein SetGadgetList(win1) und oder OpenGadgetList(win2) gilt ja nur für Container Gadgets
; oder werden Fenster einfach wie ein Container behandelt (was sie ja eigentlich auch sind) ?

; Wie erstelle ich nun diesen Button "nachträglich" auf Fenster 1 ?
btn1 = ButtonGadget(#PB_Any,10,10,120,24,"window 1")

; und diesen Button "on the fly" auf Window 2 ?
btn2 = ButtonGadget(#PB_Any,10,10,120,24,"window 2")

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

DANKE

DJ

[ts-soft]

Code: Alles auswählen

; wenn schon zwei Fenster existieren
win1 = OpenWindow(#PB_Any,10,10,200,200,"win1")
win2 = OpenWindow(#PB_Any,50,50,200,200,"win2")

; Wie kann man dann "später" eines der Fester für neue Gadgets auswählen ?
; Es gibt ja kein SetGadgetList(win1) und oder OpenGadgetList(win2) gilt ja nur für Container Gadgets
; oder werden Fenster einfach wie ein Container behandelt (was sie ja eigentlich auch sind) ?

; Wie erstelle ich nun diesen Button "nachträglich" auf Fenster 1 ?
UseGadgetList(WindowID(win1))
btn1 = ButtonGadget(#PB_Any,10,10,120,24,"window 1")

; und diesen Button "on the fly" auf Window 2 ?
UseGadgetList(WindowID(win2))
btn2 = ButtonGadget(#PB_Any,10,10,120,24,"window 2")

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow 

Gruß
Thomas

[RSBasic]

Ganz einfach mit UseGadgetList():

Code: Alles auswählen

; wenn schon zwei Fenster existieren
win1 = OpenWindow(#PB_Any,10,10,200,200,"win1")
win2 = OpenWindow(#PB_Any,50,50,200,200,"win2")

; Wie kann man dann "später" eines der Fester für neue Gadgets auswählen ?
; Es gibt ja kein SetGadgetList(win1) und oder OpenGadgetList(win2) gilt ja nur für Container Gadgets
; oder werden Fenster einfach wie ein Container behandelt (was sie ja eigentlich auch sind) ?

UseGadgetList(WindowID(win1))

; Wie erstelle ich nun diesen Button "nachträglich" auf Fenster 1 ?
btn1 = ButtonGadget(#PB_Any,10,10,120,24,"window 1")

UseGadgetList(WindowID(win2))

; und diesen Button "on the fly" auf Window 2 ?
btn2 = ButtonGadget(#PB_Any,10,10,120,24,"window 2")

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

\\Edit:
Zu langsam.

[ts-soft]

\\Edit:
Zu langsam.

[D.J.Peters]

Das kommt davon wenn man in der Hilfe alle Gadget Befehle liest und meint bei TreeGadget aufhören zu können.
Da kann ja nichts mehr kommen auser U,V,W,X,Y,Z und das war es denn doch UseGadgetList()

Danke euch Beiden.

DJ