Histórico da Página

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

oObjeto()
• Retorna o objeto criado.

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

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

// 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] ) -->

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

DBTree(): AddTreeItem ( [ cPrompt], [ cRes], [ cFile], [ cCargo] ) -->

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] ) -->

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

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

oTree:GetCargo()

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

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

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

DBTree(): IsEmpty ( ) --> lIsEmpty

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

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

DBTree(): Nivel ( ) --> nNivel

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
Image Removed Image Added
 

#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

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

oTree:Total() // Result: 8

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

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