$include "windowssdk.inc"
def w1:WINDOW 
CONST TCN_SELCHANGE = -550-1
 
openconsole
OPENWINDOW w1,0,0,500,500,@CAPTION|@SYSMENU,0,"Tab Control Sample",&mainwindow 
 
   CONTROL w1,@BUTTON,"Delete",320,20,80,25,0,1
   CONTROL w1,@BUTTON,"Add",320,50,80,25,0,2

 
TabControl(w1,10,5,250,300,0,0,10)
tcInsertTab w1,10,0,"Tab 1"
tcInsertTab w1,10,1,"Tab 2"
tcInsertTab w1,10,2,"Tab 3"

waituntil iswindowclosed(w1)
closeconsole
end

sub mainwindow(),int 

if @NOTIFYCODE <> 0
print @NOTIFYCODE
endif

if @NOTIFYCODE = TCN_SELCHANGE
   print "CHANGE ",@NOTIFYCODE
endif

   select @MESSAGE

	case @IDCREATE
		CENTERWINDOW #<WINDOW>@HITWINDOW 
	case @IDCLOSEWINDOW 
		  closewindow w1

	case @IDCONTROL
        select @CONTROLID 
               case 1 'Delete
                    tcDeleteTab(w1,10,tcGetSelectedTab(w1,10))

               case 2 'Add 
                    setcaption(w1,"Tab count " + str$(tcGetTabCount(w1,10)))
                    tcInsertTab w1,10,tcGetTabCount(w1,10),"Tab " + ltrim$(str$(tcGetTabCount(w1,10)+1))

               case 10
                    if @NOTIFYCODE = TCN_SELCHANGE
                       string Tabs =  ltrim$(str$(tcGetTabCount(w1,10)))
                       setcaption w1,"On tab " + str$(tcGetSelectedTab(w1,10)+1) + " Tab count " +  Tabs
                    endif 

        endselect

endselect 
return 0
ENDSUB