converte combox -> tab control

[Silvio]

I load nto an arrary 3 strings ..

local aIdx:={}

aIdx:={"Fondatore","Ordinario","Simpatizzante","Servizi"}

On old program I use a combox to select the option

REDEFINE COMBOBOX oCbx VAR cVar ITEMS aIdx ID 210 OF oDlg;
ON CHANGE Sel_Index(oCbx)


Now I want show the option into a tab control

@ nGridBottom, nSplit+2 TABS oApp():oTab ;
OPTION nOrder SIZE oApp():oWndMain:nWidth()-80, 12 PIXEL OF oApp():oDlg ;
ITEMS aIdx


but it not run ok

can U help me pls

[Rochinha]

Silvio

The TAB control can choosed by using SetOption method and the page too.

...
oTab:SetOption( nOrder )
oPage:SetOption( nOrder ) or oPage:SetOption( oTab:nOption )
...

[Silvio]

Dear Rochinha
If you not understood what I say , please not write me

the command setoption use when I must show a tab

Instead I ask another help .....

I must write the tab name "xxxxx","xxxxx", "xxxxx" they called ITEMS or aPrompts

On the combobos I use ITEMS aaa where aaa is an array with 3 strings

Now I want insert these strings into tab control as tab names

I hope you unserstand me now

[Enrico Maria Giordano]

This is a working sample:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL oTabs

    DEFINE DIALOG oDlg

    @ 0, 0 BUTTON "Change";
           ACTION ( oTabs:aPrompts[ 2 ] := "Changed",;
                    oTabs:Refresh() )

    @ 2, 0 TABS oTabs;
           PROMPTS "First", "Second", "Third"

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG