Classe: TTabs
Cria um objeto do tipo aba.
TSrvObject -> TControl -> TTabs
New
Método construtor da classe.
TTabs(): New ( [ nTop], [ nLeft], [ aPrompts], [ bAction], [ oWnd], [ nOption], [ nClrFore], [ uParam8], [ lPixel], [ uParam10], [ nWidth], [ nHeigth], [ cMsg] ) --> oObjeto
Nome | Tipo | Descrição | Obrigatório | Referência |
nTop | Numérico | Indica a coordenada vertical em pixels ou caracteres. | ||
nLeft | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | ||
aPrompts | Vetor | Indica o array, no formato texto, que contêm as descrições das abas. | ||
bAction | Bloco de código | Indica o bloco de código que será executado quando mudar de aba. | ||
oWnd | Objeto | Indica a janela ou controle visual onde objeto será criado. | ||
nOption | Numérico | Indica a aba que será selecionada. | ||
nClrFore | Numérico | Indica a cor de frente do objeto.. | ||
uParam8 | Numérico | Compatibilidade. | ||
lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | ||
uParam10 | Lógico | Compatibilidade. | ||
nWidth | Numérico | Indica a largura em pixels do objeto. | ||
nHeigth | Numérico | Indica a altura em pixels do objeto. | ||
cMsg | Caracter | Indica a mensagem, do tipo dica de contexto (tooltip/hint), que será apresentada ao posicionar o ponteiro do mouse sobre o objeto. |
oObjeto
- (objeto)
- Retorna o objeto criado.
oTTabs := TTabs():New(01,01,{'Aba01','Aba02','Aba03'},; {||oPanel01:lVisibleControl:=(oTTabs:nOption==1)},; oDlg,,CLR_HRED,,.T.,,260,184,)
AddItem
Adiciona uma aba.
TTabs(): AddItem ( [ cTitulo] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
cTitulo | Caracter | Indica o título da aba que será adicionada. |
oTTabs:AddItem("Nova aba")
DelItem
Exclui uma aba.
TTabs(): DelItem ( ) -->
A exclusão é realizada sempre da primeira aba para última.
oTTabs:DelItem()
MoveOpt
Move o conteúdo de uma aba para outra e exclui a de origem.
TTabs(): MoveOpt ( [ nAbaOrigem], [ nAbaDestino] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
nAbaOrigem | Numérico | Indica a aba que terá seu conteúdo movido e será excluída. | ||
nAbaDestino | Numérico | Indica a aba que receberá o conteúdo da aba excluída. |
oTTabs:MoveOpt(1,3)
SetOption
Seleciona uma aba.
TTabs(): SetOption ( [ nNrAba] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
nNrAba | Numérico | Indica o número da aba que será selecionada. |
oTTabs:SetOption( 2 )
SetTabs
Inclui um novo array, no formato texto, com novas abas.
TTabs(): SetTabs ( < aAbas>, < nOpt> ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
aAbas | Vetor | Indica um array, no formato texto, com as novas abas. | X | |
nOpt | Numérico | Indica o número da aba que será apresentada. | X |
aNewTabs := {'Nova Aba01','Nova Aba02','Nova Aba03'} oTTabs:SetTabs( aNewTabs, 1 )
Propriedade | Descrição | Tipo |
aPrompts | Indica o array, no formato texto, que contêm as descrições das abas. | Vetor |
bAction | Indica o bloco de código que será executado quando mudar de aba. | Bloco de código |
nOption | Indica a aba que será selecionada. | Numérico |
Exemplos
#INCLUDE "TOTVS.CH" MAIN FUNCTION testTabs() DEFINE DIALOG oDlg TITLE "Exemplo TTabs" FROM 180,180 TO 550,700 PIXEL // Cria a TTab oTTabs := TTabs():New(01,01,{'Aba01','Aba02','Aba03'},; {||oPanel01:lVisibleControl:=(oTTabs:nOption==1)},; oDlg,,CLR_HRED,,.T.,,260,184,) // Insere um painel na TTab oPanel01 := TPanel():New( 1,1,'',oTTabs,,,,,,100,100,,.T. ) oBtn01 := TButton():New( 01,01,'TButton01',oPanel01,; {||oTTabs:SetOption(2)},; 037, 012,,,.F.,.T.,.F.,,.F.,,,.F. ) ACTIVATE DIALOG oDlg CENTERED RETURN
Exemplo da classe TTabs
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas