duh=no problem, resolved?
icons=LoadIconStrip(file_name)
SetGadgetIconStrip gadget,icons
tabber=CreateTabber()
AddGadgetItem tabber,"name",,icon_index
' createtabber.bmx
Import MaxGui.Drivers
Strict
Local window:TGadget
Local tabber:TGadget
Local document:TGadget[3]
Local currentdocument:TGadget
' CreateDocument creates a hidden panel that fills entire tabber client area
Function CreateDocument:TGadget(tabber:TGadget)
Local panel:TGadget
panel=CreatePanel(0,0,ClientWidth(tabber),ClientHeight(tabber),tabber)
SetGadgetLayout panel,1,1,1,1
HideGadget panel
Return panel
End Function
' create a default window with a tabber gadget that fills entire client area
window=CreateWindow("My Window",30,20,400,300)
Local iconstrip:ticonstrip = LoadIconStrip("resource/icons_small_2.png")
tabber=CreateTabber(0,0,ClientWidth(window),ClientHeight(window),window)
SetGadgetLayout tabber,1,1,1,1
' add three items and corresponding document panels to the tabber
If iconstrip
SetGadgetIconStrip tabber , iconstrip
Else
Print "No icons..."
End If
AddGadgetItem tabber,"Document 0",False,0,""
AddGadgetItem tabber,"Document 1",False,1,"Tabber Tip 1"
AddGadgetItem tabber,"Document 2",False,2,"tips 4 2"
document[0]=CreateDocument(tabber)
document[1]=CreateDocument(tabber)
document[2]=CreateDocument(tabber)
SetPanelColor document[0],255,200,200
SetPanelColor document[1],200,255,200
SetPanelColor document[2],200,200,255
' our documents start off hidden so make first one current and show
currentdocument=document[0]
ShowGadget currentdocument
' standard message loop with special tabber EVENT_GADGETACTION and EVENT_GADGETMENU handling
While WaitEvent()
Select EventID()
Case EVENT_GADGETACTION
If EventSource()=tabber
HideGadget currentdocument
currentdocument=document[EventData()]
ShowGadget currentdocument
EndIf
Case EVENT_GADGETMENU
If EventSource()=tabber
Notify "You right clicked the tab with index " + EventData() + "!"
EndIf
Case EVENT_WINDOWCLOSE
End
End Select
Wend
|