Window Resize Problem

[saimen]

mit folgendem Code habe ich das größenverändern der Gadgets beim FensterResize ermöglicht.

Code: Alles auswählen

Procedure WCB(wnd, msg, wParam, lParam) 
    Result = #PB_ProcessPureBasicEvents 
    Select msg 
    Case #WM_SIZE 
        ResizeGadget(#Splitter, -1, -1, WindowWidth(), WindowHeight()) 
        SetGadgetState(#Splitter, 150)
    EndSelect 
    ProcedureReturn Result 
EndProcedure 

SetWindowCallback(@wcb()) 

Das Funktioniert auch solange ganz gut bis ich vom Hauptfenster aus ein zweites Fenster öffne und wieder schließe. Danach funktioniert das Größenändern des GAdgets nicht mehr. Wo ist problem?

[Hroudtwolf]

Code: Alles auswählen

Procedure WCB(wnd, msg, wParam, lParam)
    Result = #PB_ProcessPureBasicEvents
    Select msg
    Case #WM_SIZE
if wnd=windowid(1)
usewindow(1)
        ResizeGadget(#Splitter, -1, -1, WindowWidth(), WindowHeight())
        SetGadgetState(#Splitter, 150)
endif 
if wnd=windowid(2)
usewindow(2)
        ResizeGadget(#Splitter, -1, -1, WindowWidth(), WindowHeight())
        SetGadgetState(#Splitter, 150)
endif     
EndSelect
    ProcedureReturn Result
EndProcedure

SetWindowCallback(@wcb()) 

Vieleicht hilft die das !?

[saimen]

Danke. Das klappt.