Classe: TTabsCria um objeto do tipo aba. NewMé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,) AddItemAdiciona 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") DelItemExclui uma aba.A exclusão é realizada sempre da primeira aba para última. MoveOptMove 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. | | |
SetOptionSeleciona 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. | | |
SetTabsInclui 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 |
#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 |