Code: Select all
Procedure sizeCB()
ResizeGadget(1,5,5,WindowWidth(0)-10,WindowHeight(0)-10)
For gad = 10 To 30 Step 10
ResizeGadget(gad,0,0,GadgetWidth(1)-8,GadgetHeight(1)-28)
Next
EndProcedure
OpenWindow(0, 0, 0, 400, 300, "PanelGadget with SetParent_()", #PB_Window_SystemMenu | #PB_Window_ScreenCentered |#PB_Window_SizeGadget)
SmartWindowRefresh(0,1)
PanelGadget(1,5,5,390,290)
AddGadgetItem(1, -1, "1")
AddGadgetItem(1, -1, "2")
AddGadgetItem(1, -1, "3")
CloseGadgetList()
hWnd = GetWindow_(GadgetID(1),#GW_CHILD)
hWnd1 = GetWindow_(hWnd,#GW_HWNDNEXT)
hWnd2 = GetWindow_(hWnd1,#GW_HWNDNEXT)
w = GadgetWidth(1)-8
h = GadgetHeight(1)-28
ContainerGadget(10,0,0,w,h)
SetGadgetColor(10, #PB_Gadget_BackColor, $E8E8E8)
ButtonGadget(12,10,10,60,20,"RUN")
CloseGadgetList()
SetParent_(GadgetID(10),hwnd)
ContainerGadget(20,0,0,w,h)
SetGadgetColor(20, #PB_Gadget_BackColor, $D2FEFE)
ButtonGadget(22,10,10,60,20,"RUN")
CloseGadgetList()
SetParent_(GadgetID(20),hwnd1)
ContainerGadget(30,0,0,w,h)
SetGadgetColor(30, #PB_Gadget_BackColor, $D2FFDA)
ButtonGadget(32,10,10,60,20,"RUN")
CloseGadgetList()
SetParent_(GadgetID(30),hwnd2)
BindEvent(#PB_Event_SizeWindow,@sizeCB())
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Gadget
Select EventGadget()
Case 0
Select EventType()
Case #PB_EventType_Change
;UpdateWindow_(GadgetID(1))
;InvalidateRect_(GadgetID(1),0,1)
EndSelect
Case 12
Debug "12"
Case 22
Debug "22"
Case 32
Debug "32"
EndSelect
EndSelect
Until Quit = 1
End