Code: Alles auswählen
SetWindowLong(GadgetID(Nr), #GWL_STYLE, GetWindowLong(GadgetID(NR), #GWL_STYLE) | #WS_GROUP)
Beispiel:
Code: Alles auswählen
OpenWindow(0, 0, 0, 640, 480, "OptionGroup", #PB_Window_SystemMenu)
OptionGadget(0, 5, 5, 80, 20, "Gruppe A 1")
OptionGadget(1, 5, 30, 80, 20, "Gruppe A 2")
OptionGadget(2, 5, 55, 80, 20, "Gruppe B 1")
SetWindowLong_(GadgetID(2), #GWL_STYLE, GetWindowLong_(GadgetID(2), #GWL_STYLE) | #WS_GROUP)
OptionGadget(3, 5, 80, 80, 20, "Gruppe B 2")
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow