Histórico da Página

XTree(): New ( [ nTop], [ nLeft], [ nWidth], [ nHeight], [ oOwner], [ uChange], [ uRClick] ) --> oObjeto

()
• Retorna o objeto criado.

oTree := xTree():New(000,000,000300,000300,oDlg,/*uChange*/,/*uRClick*/,/*bDblClick*/)

XTree(): AddItem ( cPrompt,cCargo,cResource1,cResource2,nType,bAction,bRClick,bDblClick ) -->

• Utilizado para adicionar itens dinamicamente na árvore, depois de sua construção. Para adicionar itens durante a criação do objeto, utilize os métodos AddTree e AddTreeItem.

//Adiciona Localizaum onovo nívelitem abaixo do qual // estes subitens deverão ser criados // -----------------------------------if oTree:TreeSeek("006")   oTree:AddItem("Subnível 01","007", "FOLDER6",,,,2)	  oTree:AddItem("Subnível 02","008", "FOLDER6",,,,2)	endifitem posicionado.

oTree:AddItem("Novo Item","0106","folder5.png","folder6.png",2,/*bAction*/,/*bRClick*/,/*bDblClick*/)

DBTreeXTree(): AddTree ( [ cPrompt], [ lOpened], [ cRes1], [ cRes2], [ cFile1], [ cFile2], [ cCargo] cResource1, cResource2, cCargo, bAction, bRClick, bDblClick ) -->

• A opção de múltiplas colunas definidas pelo parâmetro cHeaders do construtor New do objeto e alimentadas por valores separados por ponto e vírgula do parâmetro cPrompt deste método, está disponível somente em builds superiores à 7.00.120420A.

• Utilizado para adicionar um nó na árvore durante a construção do objeto. Para adicionar dinamicamente, utilizar método AddItem.
• Após a utilização desse método deve haver a chamada do método EndTree() para fechar o nó construído

//Cria nó na árvore

oTree:AddTree("Nó","folder5.png","folder6.png","0101",/*bAction*/,/*bRClick*/,/*bDblClick*/)
 

 //Adiciona filhos
 oTree:AddTreeItem("Nó filho","folder5.png","0102",/*bAction*/,/*bRClick*/,/*bDblClick*/)
 

//Fecha nó criado
oTree:EndTree(

)

DBTreeXTree(): AddTreeItem ( [ cPrompt], [ cRes], [ cFile], [ cCargo] ) -->, cResource, cCargo, bAction, bRClick, bDblClick )

• A opção de múltiplas colunas definidas pelo parâmetro cHeaders do construtor New do objeto e alimentadas por valores separados por ponto e vírgula do parâmetro cPrompt deste método, está disponível somente em builds superiores à 7.00.120420A.

oTree:AddTreeItem("Novo Item","FOLDER7",,"006")

• Utilizado para adicionar um item no nó da árvore aberto durante a construção do objeto. Para adicionar dinamicamente, utilizar método AddItem.

//Cria nó na árvore

oTree:AddTree("Nó","folder5.png","folder6.png","0101",/*bAction*/,/*bRClick*/,/*bDblClick*/)
 

 //Adiciona filhos
 oTree:AddTreeItem("Nó filho","folder5.png","0102",/*bAction*/,/*bRClick*/,/*bDblClick*/)
 

//Fecha nó criado
oTree:EndTree

DBTree(): BeginUpdate ( ) -->

Este método é muito importante na criação do objeto para que os ajustes de criação e performance sejam realizados corretamente.

()

DBTreeXTree(): ChangeBmp ( [ cBmp1], [ cBmp2], [ cFile1], [ cFile2], [ cCargo] ) -->cResource1, cResource2, cCargo, lForceUpdate)

oTree:ChangeBmp("LBNO","LBTIK",,,"00101")

DBTreeXTree(): ChangePrompt ( [ cPrompt], [ cCargo] ) -->

• A opção de múltiplas colunas definidas pelo parâmetro cHeaders do construtor New do objeto e alimentadas por valores separados por ponto e vírgula do parâmetro cPrompt deste método, está disponível somente em builds superiores à 7.00.120420APode se utilizar em conjunto com o método GetCargo para alterar a descrição do item atual.

oTree:ChangePrompt("Novo Texto Item 001","001")

DBTree(): DelItem ( ) -->

oTree:DelItem()

DBTree(): EndTree ( ) -->

oTree:EndTree()

DBTree(): EndUpdate ( ) -->

Este método é muito importante na criação do objeto para que os ajustes de criação e performance sejam realizados corretamente.

oTree:EndUpdate()

DBTree(): GetCargo ( ) --> cCargo

(caracter)
• Indica a chave de identificação do item selecionado na árvore.

oTree:GetCargo()

DBTree(): GetPrompt ( [ lSpace] ) --> cPrompt

(caracter)
• Retorna a descrição do item selecionado.

• A opção de múltiplas colunas definidas pelo parâmetro cHeaders do construtor New do objeto e alimentadas por valores separados por ponto e vírgula do parâmetro cPrompt deste método, está disponível somente em builds superiores à 7.00.120420A.

oTree:GetPrompt(.T.) // Result: "Subnível 01"

DBTree(): IsEmpty ( ) --> lIsEmpty

(logico)
• Retorna, verdadeiro (.T.), se a árvore estiver vazia; caso contrário, retornará falso (.F.).

oTree:IsEmpty() // Result: .F.

DBTree(): Nivel ( ) --> nNivel

()
• Retorna o nível do item selecionado, sendo que o primeiro item estará no nível 1, seus filhos no nível 2 e assim sucessivamente.

oTree:Nivel() // Result: 3

DBTree(): PTRefresh ( ) -->

oTree:PTRefresh()

DBTree(): PTSendTree ( < aNodes> ) -->

Formato do array para criação dos itens da classe DBTree()

1. Nível do item (Caracter).
2. ID que identificará este item (Caracter).
3. Compatibilidade. Configure sempre com aspas "" (Caracter).
4. Descrição que será apresentada no item (Caracter).
5. Imagem quando o item da árvore estiver fechado (Caracter).
6. Imagem quando o item da árvore estiver aberto (Caracter).

Dicas de utilização do método

Este método foi desenvolvido para acelerar a criação da árvore. No entanto, para que funcione corretamente, é necessário seguir as seguintes regras na criação do array:

• Os itens devem ser criados na ordem exata que serão apresentados.
• Os níveis devem ser inseridos de acordo com a posição do item.

No exemplo abaixo, observe a maneira correta de alimentar o array:
 

// ExemploDEFINE DIALOG oDlg TITLE "Exemplo do PTSendTree" FROM 180,180 TO 550,700 PIXELIMAGE1 := "FOLDER5"IMAGE2 := "FOLDER6"aNodes := {}aadd(aNodes,{'00',"001","","Descrição Raiz",IMAGE1,IMAGE2})         // Raizaadd(aNodes,{'01',"002","","Descrição Subnível 01",IMAGE1,IMAGE2}) // Segundo nívelaadd(aNodes,{'02',"003","","Descrição Subnível 02",IMAGE1,IMAGE2}) // Terceiro nívelaadd(aNodes,{'01',"004","","Descrição Subnível 01",IMAGE1,IMAGE2}) // Segundo nívelaadd(aNodes,{'02',"005","","Descrição Subnível 02",IMAGE1,IMAGE2}) // Terceiro nível// Cria o objeto Tree e carrega os itensoTree := DbTree():New(0,0,160,260,oDlg,,,.T.)oTree:PTSendTree( aNodes )ACTIVATE DIALOG oDlg CENTERED

Visualização

 

#include "TOTVS.CH"User Function PTSendTree()Local nX,nY,nZDEFINE DIALOG oDlg TITLE "Exemplo do PTSendTree" FROM 180,180 TO 550,700 PIXELaNodes := {}IMAGE1  := "" 	// Imagem quando nível estiver fechadoIMAGE2  := "" 	// Imagem quando nível estiver abertonLoop   := 690  // Quantidade de Loops - irá gerar 20010 ItensnCount	:= 0	// Simula ID dos itens da Tree//cTime1 := Time()// PRIMEIRO NÍVELfor nX := 1 to nLoop		nCount++	IMAGE1 := "FOLDER5"	aadd( aNodes, {'00', StrZero(nCount,7), "", "Primeiro Nível->ID: "+;	StrZero(nCount,7), IMAGE1, IMAGE2} )		// SEGUNDO NÍVEL	for nY := 1 to 7				nCount++		IMAGE1 := "FOLDER6"		aadd( aNodes, {'01', StrZero(nCount,7), "", "Segundo Nível->ID: "+;		StrZero(nCount,7), IMAGE1, IMAGE2} )				// TERCEIRO NÍVEL		for nZ := 1 to 3						nCount++			IMAGE1 := "FOLDER10"			aadd( aNodes, {'02',StrZero(nCount,7),"","Terceiro Nível->ID: "+;			StrZero(nCount,7), IMAGE1, IMAGE2} )					next nZ			next nY	next nX// Cria o objeto TreeoTree := DbTree():New(0,0,160,260,oDlg,,,.T.)// Método para carga dos itens da TreeoTree:PTSendTree( aNodes )ACTIVATE DIALOG oDlg CENTEREDReturn

DBTree(): PTSrvUpdatePosition ( ) -->

oTree:PTSrvUpdatePosition()

DBTree(): PTUpdateNodes ( < cNivel> ) -->

oTree:PTUpdateNodes( "005" )

DBTree(): Reset ( ) -->

oTree:Reset()

DBTree(): SetDisable ( ) -->

oTree:SetDisable()

DBTree(): SetEnable ( ) -->

oTree:SetEnable()

DBTree(): SetScroll ( < nTipo>, < lHabilita> ) -->

oTree:SetScroll(1,.T.) // Habilita barra de rolagem horizontaloTree:SetScroll(2,.T.) // Habilita barra de rolagem vertical

DBTree(): Total ( ) --> nItens

()
• Retorna o número de itens na árvore.

oTree:Total() // Result: 8

DBTree(): TreeSeek ( < cCargo> ) --> lFind

(logico)
• Retorna, verdadeiro (.T.), se o cargo for localizado; caso contrário, retornará falso (.F.)

// Localiza o Cargo 001 e posiciona o cursor// para que o segundo nível seja criado abaixo dele// -----------------------------------------------------if oTree:TreeSeek("001")   oTree:AddItem("Segundo nível da DBTree","002", "FOLDER10",,,,2)	endif