Code: Alles auswählen
#LAYOUT_RTL = $001
SetProcessDefaultLayout_(#LAYOUT_RTL)
Global GadgetBkg = CreateSolidBrush_(#White)
Procedure WindowProc(hWnd, uMsg, wParam, lParam)
result = #PB_ProcessPureBasicEvents
Select uMsg
Case #WM_CTLCOLORSTATIC
Select GetDlgCtrlID_(lParam)
Case 2,3,4,5
SetBkMode_(wParam,#TRANSPARENT)
result = GadgetBkg
EndSelect
EndSelect
ProcedureReturn result
EndProcedure
If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
SetWindowCallback(@WindowProc())
PanelGadget (0, 8, 8, 306, 203)
AddGadgetItem (0, -1, "Panel 1")
ContainerGadget(1,0,0,300,200)
SetGadgetColor(1, #PB_Gadget_BackColor,#White)
CheckBoxGadget(2, 30, 70, 100, 20, "Checkbox")
CheckBoxGadget(3, 30, 100, 100, 20, "Checkbox")
CheckBoxGadget(4, 180, 70, 100, 20, "Display issue")
CheckBoxGadget(5, 180, 100, 100, 20, "Display issue")
CloseGadgetList()
CloseGadgetList()
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Code: Alles auswählen
#LAYOUT_RTL = $001
SetProcessDefaultLayout_(#LAYOUT_RTL)
If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
PanelGadget (0, 8, 8, 306, 203)
AddGadgetItem (0, -1, "Panel 1")
PanelGadget (1, 5, 5, 290, 166)
AddGadgetItem(1, -1, "Sub-Panel 1")
ContainerGadget(10,0,0,290,166)
CheckBoxGadget(2, 30, 70, 100, 20, "Checkbox")
CheckBoxGadget(3, 30, 100, 100, 20, "Checkbox")
CheckBoxGadget(4, 180, 70, 100, 20, "Display issue")
CheckBoxGadget(5, 180, 100, 100, 20, "Display issue")
CloseGadgetList()
AddGadgetItem(1, -1, "Sub-Panel 2")
AddGadgetItem(1, -1, "Sub-Panel 3")
CloseGadgetList()
AddGadgetItem (0, -1,"Panel 2")
ButtonGadget(6, 10, 15, 80, 24,"Button 1")
ButtonGadget(7, 95, 15, 80, 24,"Button 2")
CloseGadgetList()
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf