DBTree

DBTree(): New ( [ nTop], [ nLeft], [ nBottom], [ nRight], [ oWnd], [ bChange], [ bRClick], [ lCargo], [ lDisable], [ oFont], [ cHeaders] ) --> oObjeto

()
• Retorna o objeto criado.

oTree := DbTree():New(0,0,160,260,oDlg,,,.T.,'Tree header')

DBTree(): AddItem ( [ cPrompt], [ cCargo], [ cRes1], [ cRes2], [ cFile1], [ cFile2], [ nTipo] ) -->

• 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.

// Localiza o nível 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)	endif

DBTree(): AddTree ( [ cPrompt], [ lOpened*], [ cRes1], [ cRes2], [ cFile1], [ cFile2], [ 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.120420A.

oTree:AddTree("Nível 02","010", "FOLDER6")

DBTree(): AddTreeItem ( [ cPrompt], [ cRes], [ cFile], [ 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.120420A.

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

DBTree(): BeginUpdate ( ) -->

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

oTree:BeginUpdate()

DBTree(): ChangeBmp ( [ cBmp1], [ cBmp2], [ cFile1], [ cFile2], [ cCargo] ) -->

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

DBTree(): 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.120420A.

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