No fixed width
Different tabs widths
Code:
LoadFont(0,"Tahoma",12)
OpenWindow(0, 0, 0, 400, 300, "Check to Tab", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
PanelGadget(1,5,5,390,290)
SetGadgetFont(1,FontID(0))
AddGadgetItem(1, -1, "Tab1 ") ;Spaces to set the text left padding
AddGadgetItem(1, -1, "Tab2 #2 ")
AddGadgetItem(1, -1, "Tab333 #3 ")
CloseGadgetList()
SendMessage_(GadgetID(1),#TCM_GETITEMRECT,0,r.RECT)
cbtrim = (r\bottom-r\top -15)/2
CheckBoxGadget(10,r\right-12,GadgetY(1)+r\top+cbtrim,15,15,"")
BringWindowToTop_(GadgetID(10))
SendMessage_(GadgetID(1),#TCM_GETITEMRECT,1,r.RECT)
CheckBoxGadget(20,r\right-12,GadgetY(1)+r\top+cbtrim,15,15,"")
BringWindowToTop_(GadgetID(20))
SendMessage_(GadgetID(1),#TCM_GETITEMRECT,2,r.RECT)
CheckBoxGadget(30,r\right-12,GadgetY(1)+r\top+cbtrim,15,15,"")
BringWindowToTop_(GadgetID(30))
DisableGadget(20,1)
DisableGadget(30,1)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Gadget
Select EventGadget()
Case 1
Select EventType()
Case #PB_EventType_Change
state = GetGadgetState(1)
If state = 0
DisableGadget(10,0)
DisableGadget(20,1)
DisableGadget(30,1)
EndIf
If state = 1
DisableGadget(10,1)
DisableGadget(20,0)
DisableGadget(30,1)
EndIf
If state = 2
DisableGadget(10,1)
DisableGadget(20,1)
DisableGadget(30,0)
EndIf
EndSelect
Case 10,20,30
Debug EventGadget()
Debug GetGadgetState(EventGadget())
EndSelect
EndSelect
Until Quit = 1
End