OpenEuphoria

Re: destroying tabcontrol (or tabs)

• Posted by Dan Moyer <DANIELMOYER at prodigy.net> Apr 17, 2002
• 386 views

I had the same problem while improving RunDemos to allow easier
adding/removing of demos to/from displayed list and add/remove tabfolders;
in response, Derek has added the ability to destroy tabItems in version 57
of Win32Lib.

Dan Moyer

----- Original Message -----
From: <jacktarred at yahoo.com>
To: "EUforum" <EUforum at topica.com>
Subject: destroying tabcontrol (or tabs)


>
> Is there anyway to destroy a tab or tabcontrol?
>
> I have place a tab control in its own window and tried
> closing then re-opening the window before the next
> call to the tab control.
>
> I have also tried to trackObject then deleteObject,
> but I seem to have the same tabItems each time it
> re-creates the tabControl.
>
> Thanks for all your help.
>
> partial code below:
>
> integer NoExitWin, StockTab, x1, y1
> sequence where
>
> where = getRect( StockMain )
>         x1 = where[1]
>         y1 = where[2]
>
> NoExitWin = create( Window,"", StockMain, x1+292,
> y1+32, 430, 235, { WS_POPUP} )
> StockTab = createEx( TabControl, "", NoExitWin, 0,
> 0, 430, 235, 0, 0 )
>          setWindowBackColor( NoExitWin,{131, 172, 150}
> )
>          trackObject( NoExitWin, StockTab, ForProgram
> )
>
> --=========ViewPort Button=====================
> procedure onClick_ViewPort()
>         integer index, msgbx1
>         sequence viewthis
>         if donethisbefore = 2 then
>            deleteObject( StockTab )
>         end if
>
>          viewthis = {}
> index = getIndex( PortLst )
> if index < 1 then
>            msgbx1 = message_box( "Please select a
> portfolio from your list", "", {} )
>         elsif index >= 1 then
>            closeWindow( NoExitWin )
>            openWindow( NoExitWin, Normal )
>            viewthis = paths[index]
>    ViewStocks( viewthis, StockTab )
>         end if
>         donethisbefore = 2
> end procedure
>
>
>
>