TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 2 Próxima »

Classe: TTabs

Cria um objeto do tipo aba.


Hierarquia

TSrvObject -> TControl -> TTabs


Construtores
New

New

Método construtor da classe.


Sintaxe

TTabs(): New ( [ nTop], [ nLeft], [ aPrompts], [ bAction], [ oWnd], [ nOption], [ nClrFore], [ uParam8], [ lPixel], [ uParam10], [ nWidth], [ nHeigth], [ cMsg] ) --> oObjeto


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nTopNuméricoIndica a coordenada vertical em pixels ou caracteres.
nLeftNuméricoIndica a coordenada horizontal em pixels ou caracteres.
aPromptsVetorIndica o array, no formato texto, que contêm as descrições das abas.
bActionBloco de códigoIndica o bloco de código que será executado quando mudar de aba.
oWndObjetoIndica a janela ou controle visual onde objeto será criado.
nOptionNuméricoIndica a aba que será selecionada.
nClrForeNuméricoIndica a cor de frente do objeto..
uParam8NuméricoCompatibilidade.
lPixelLógicoIndica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).
uParam10LógicoCompatibilidade.
nWidthNuméricoIndica a largura em pixels do objeto.
nHeigthNuméricoIndica a altura em pixels do objeto.
cMsgCaracterIndica a mensagem, do tipo dica de contexto (tooltip/hint), que será apresentada ao posicionar o ponteiro do mouse sobre o objeto.
Retorno
    oObjeto(objeto)
  • Retorna o objeto criado.

Exemplos 
oTTabs := TTabs():New(01,01,{'Aba01','Aba02','Aba03'},;         {||oPanel01:lVisibleControl:=(oTTabs:nOption==1)},;         oDlg,,CLR_HRED,,.T.,,260,184,)

Métodos
AddItem

AddItem

Adiciona uma aba.


Sintaxe

TTabs(): AddItem ( [ cTitulo] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
cTituloCaracterIndica o título da aba que será adicionada.

Exemplos 
oTTabs:AddItem("Nova aba")
DelItem

DelItem

Exclui uma aba.


Sintaxe

TTabs(): DelItem ( ) -->


Observações

A exclusão é realizada sempre da primeira aba para última.


Exemplos 
oTTabs:DelItem()
MoveOpt

MoveOpt

Move o conteúdo de uma aba para outra e exclui a de origem.


Sintaxe

TTabs(): MoveOpt ( [ nAbaOrigem], [ nAbaDestino] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nAbaOrigemNuméricoIndica a aba que terá seu conteúdo movido e será excluída.
nAbaDestinoNuméricoIndica a aba que receberá o conteúdo da aba excluída.

Exemplos 
oTTabs:MoveOpt(1,3)
SetOption

SetOption

Seleciona uma aba.


Sintaxe

TTabs(): SetOption ( [ nNrAba] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nNrAbaNuméricoIndica o número da aba que será selecionada.

Exemplos 
oTTabs:SetOption( 2 )
SetTabs

SetTabs

Inclui um novo array, no formato texto, com novas abas.


Sintaxe

TTabs(): SetTabs ( < aAbas>, < nOpt> ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
aAbasVetorIndica um array, no formato texto, com as novas abas. X
nOptNuméricoIndica o número da aba que será apresentada. X

Exemplos 
aNewTabs := {'Nova Aba01','Nova Aba02','Nova Aba03'}   oTTabs:SetTabs( aNewTabs, 1 )

Propriedade
PropriedadeDescriçãoTipo
aPromptsIndica o array, no formato texto, que contêm as descrições das abas.Vetor
bActionIndica o bloco de código que será executado quando mudar de aba.Bloco de código
nOptionIndica a aba que será selecionada.Numérico

Exemplos 
#include "TOTVS.CH"User Function TTabs() 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

Preview
Exemplo da classe TTabs

Abrangência
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

  • Sem rótulos