Histórico da Página

CONTEÚDO

Visão Geral
Exemplo de utilização
Procedures do Componente
Procedures do include ut-treeview.i
Tela XXX
1. Outras Ações / Ações relacionadas
Tela XXX
1. Principais Campos e Parâmetros
Tabelas utilizadas

...

Procedure

Parâmetros

Descrição

Exemplo/Utilização

addNode

	Parâmetros	Tipo	Descrição
I	pcKe	Char	Chave do node
I	pcKePar	Char	Pai do node
I	pcLabel	Char	Label do node
I	pcIco	Char	Icone do node
I	pcOptn	Char	Parâmetros do node

O pcOptn é uma lista de parâmetros que sao separados por chr(1).

Valores válidos para o pcOtn:

Parâmetro	Descrição
expended	Inicia o node expendido
collapsed	Inicia o node fechado (não expandido) - opção default
selected	Seleciona o node ate o

proximo

próximo refresh
refresh	Realiza o refresh do treeview
AutoSort=yes/no	Liga ou desliga a ordenação do treeview
font=n	Define uma fonte para o node
fgcolor=n	Define uma cor de frente para o node
bgcolor=n	Define uma cor de fundo para o node
tooltip=xxx	Define um help para o node

Adiciona um node no treeview.

Se o node for adicionado a um

node pai, ele será o último filho.

DO ON ERROR UNDO, LEAVE:

RUN addNode IN h-treeview ("n1","","node 1","","") NO-ERROR.

RUN addNode IN h-treeview ("n2","","node 2","","expanded") NO-ERROR.

RUN addNode IN h-treeview ("n21","n2","node 21","","") NO-ERROR.

RUN addNode IN h-treeview ("n22","n2","node 22","image/treeview/book02.bmp","expanded").

RUN addNode IN h-treeview("n221","n22","node 221","image/treeview/book02.bmp","").

RUN addNode IN h-treeview ("n222","n22","node 222","image/treeview/book02.bmp","").

RUN addNode IN h-treeview ("n3","","node 3","image/treeview/present1.bmp","expanded").

RUN addNode IN h-treeview ("n31","n3","node 31","image/treeview/$.bmp","").

RUN addNode IN h-treeview ("n4","","node 4","image/treeview/smile56.bmp","").

END.

applyEntry

Passar o parâmetro vazio ("")

Faz um entry no treeview

RUN applyEntry IN h-treeview (INPUT "").

deleteNode

	Parâmetro	Tipo	Descrição
I	pcKe	Char	Chave do node
I	pcOptn	Char	Parâmetros do node

Elimina um node de uma chave especificada.

RUN deleteNode IN h-treeview (c-codigo-node, "refresh").

destroyObject

Elimina o treeview da memória.

IF VALID-HANDLE(h-treeview) THEN DO:

RUN destroyObject IN h-treeview.

DELETE PROCEDURE h-treeview NO-ERROR.

END.

emptyTree

Zera o conteúdo da treeVviewtreeview.

RUN emptyTree IN h-treeview NO-ERROR.

enableObject

Habilita o treeview

RUN enableObject IN h-treeview NO-ERROR.

expandBranch

	Parâmetro	Tipo	Descrição
I	pcKe	Char	Chave do node

Expande o node e todos os filhos dele

RUN expandBranch IN h-treeview (c-codigo-node) NO-ERROR.

getFrameTreeview

	Parâmetro	Tipo	Descrição
O	hFrame	Handle	Handle da frame do treeview

Retorna o handle da frame do treeview

RUN getFrameTreeview IN h-treeview (OUTPUT hFrameTV).

getNodeDetails

	Parâmetro	Tipo	Descrição
I	pcKe	Char	Chave do node

Retorna detalhes de um node do treeview

RUN getNodeDetails IN h-treeview (c-codigo-node, OUTPUT hNdBf).

MESSAGE
"id:" hNdBf:BUFFER-FIELD("id"):BUFFER-VALUE SKIP
"label:" hNdBf:BUFFER-FIELD("lab"):BUFFER-VALUE SKIP
"ico:" hNdBf:BUFFER-FIELD("ico"):BUFFER-VALUE SKIP
"level:" hNdBf:BUFFER-FIELD("level"):BUFFER-VALUE SKIP
"param:" hNdBf:BUFFER-FIELD("par"):BUFFER-VALUE SKIP
"prev-sibling:" hNdBf:BUFFER-FIELD("pre"):BUFFER-VALUE SKIP
"next-sibling:" hNdBf:BUFFER-FIELD("nex"):BUFFER-VALUE SKIP
"expanded:" hNdBf:BUFFER-FIELD("expanded"):BUFFER-VALUE SKIP
"optn:" hNdBf:BUFFER-FIELD("optn"):BUFFER-VALUE
VIEW-AS ALERT-BOX INFO BUTTONS OK.

DELETE OBJECT hNdBf.

initializeObject

Inicializa o treeview

RUN initializeObject IN h-treeview.

moveNode

	Parâmetro	Tipo	Descrição
I	pcKe	Char	Chave do node a mover
I	pcToKe	Char	Mover para o node
I	pcMode	Char	Modos possíveis: after, before, parent
I	pcOptn	Char	Opção possível: refresh

Move um node origem como filho de outro node destino. Caso o pcMode = "parent" e o node destino seja em branco, ele jogara o node origem como o último node do nível 0.

RUN moveNode IN h-treeview (c-codigo-node, c-codigo-node-pai, "after", "refresh") NO-ERROR.

...

DEFINE INPUT PARAMETER pcKePar AS CHARACTER NO-UNDO.

DEFINE INPUT PARAMETER pcLab AS CHARACTER NO-UNDO.

DEFINE INPUT PARAMETER pcIco AS CHARACTER NO-UNDO.

updateNode

	Parâmetro	Tipo	Descrição
I	pcKe	Char	Chave do node a mover
I	pcFieldNames	Char	List de campos, exemplo: "lab,ico"
I	pcFieldValues	Char	Lista de valores separados por chr(1)
I	pcOptn	Char	Parâmetros do node

Para remover um item do pcOptn existente, coloque "!" na frente da opção, conforme o exemplo abaixo:

pcOptn="!font"

A opção acima removerá o fonte definido para o node.

Atualiza o label, icone ou a lista de opcoes de um determinado node.

RUN updateNode IN h-treeview (c-codigo-node, "", "", cFgColor) NO-ERROR.

03. PROCEDURES DO INCLUDE ut-treeview.i

Foi disponibilizado o include ut-treeview-i para facilitar a utilização do TreeView, onde possui das seguintes variaveis e procedures:

Variável	Tipo	Descrição
h-treeview	Handle	Contem o handle da instância do treeview
h-Node	Char	Contem o pcKe do node selecionado
c-codigo-node	Char	Contem o pcKe do node selecionado
cImage	Char	Contem a imagem que será apresentada no node
cFgColor	Char	Contem a cor de frente do node
cFont	Char	Contem o código da fonte utilizada no node
cExpClp	Char	Expande ou fecha o node

Procedure

Parâmetros

Descrição

Exemplo/Utilização

pi-atualizaTreeview

Faz uma atualização/refresh do treeview.

RUN pi-atualizaTreeview.

pi-create-node

	Parâmetros	Tipo	Descrição
I	cChave	Char	Chave do node
I	cParent	Char	Pai do node
I	cText	Char	Label do node
I	cImage	Char	Icone do node
I	pcOptncParam	Char	Parâmetros do node

Adiciona um node no treeview.

Esta procedure chama a addNode.

DO ON ERROR UNDO, LEAVE:

RUN pi-create-node ("n1","","node 1","","") NO-ERROR.

RUN pi-create-node ("n2","","node 2","","expanded") NO-ERROR.

END.

pi-update-node

	Parâmetro	Tipo	Descrição
I	cChave	Char	Chave do node a mover
I	cFieldNames	Char	List de campos, exemplo: "lab,ico"
I	cFieldValues	Char	Lista de valores separados por chr(1)
I	cParam	Char	Parâmetros do node

Atualiza o label, icone ou a lista de opcoes de um determinado node.

Esta procedure chama a updateNode.

RUN pi-update-node (c-codigo-node, "", "", cFgColor) NO-ERROR.

tvNodeEvent

	Parâmetro	Tipo	Descrição
I	pcEvent	Char	Evento que aconteceu
I	pcNodeKey	Char	Chave do node

Procedure auxiliar que é assinada no treeview, onde todos os eventos que ocorrerem no treeview chamarão esta procedure.

Voce não precisa chamar esta procedure diretamente, pois quem irá chamá-la é o treeview.

Nesta procedure serão alimentados as variáveis c-codigo-node e h-node com o pcNodeKey, que é a chave do node selecionado.

pi-ClickTreeview

Esta é uma procedure que é chamada pelo tvNodeEvent e deve ser criada no seu programa, pois neste ponto que você deverá obter o c-codigo-node e h-node, que é a chave do node, e fazer os seus procedimentos necessários para atualizar frames e utiliza o node selecionado

...

.

02. EXEMPLO DE UTILIZAÇÃO

Bloco de código

// iniciando o treeview
{utp/ut-treeview.i}

// no afterDisplayFields voce inicializa o componente treeview
PROCEDURE afterDisplayFields :
   IF NOT VALID-HANDLE(h-treeview) THEN DO:
      RUN utp/ut-treeview.w PERSISTENT SET h-treeview.
   
      RUN initializeObject IN h-treeview.
   
      SUBSCRIBE TO "tvNodeEvent" IN h-treeview.
   
      RUN repositionObject IN h-treeview ( 2.65 , 1.30 ) NO-ERROR.
      RUN resizeObject IN h-treeview ( 14.35 , 28.00 ) NO-ERROR.
   END.
END PROCEDURE.

// esta procedure sera executada toda vez que ocorrer um evento de click em um determinado nó
PROCEDURE pi-ClickTreeView :
END PROCEDURE.

04. INCLUDE DE EVENTOS

...

Árvore de páginas

Versões comparadas

Versão antiga 4

Nova versão 5

Chave

CONTEÚDO

03. PROCEDURES DO INCLUDE ut-treeview.i

02. EXEMPLO DE UTILIZAÇÃO

04. INCLUDE DE EVENTOS

Definição de variáveis utilizadas para utilização do TreeView, que são:
...

Árvore de páginas

Histórico da Página

Versões comparadas

Versão antiga 4

Nova versão 5

Chave

CONTEÚDO

03. PROCEDURES DO INCLUDE ut-treeview.i

02. EXEMPLO DE UTILIZAÇÃO

04. INCLUDE DE EVENTOS

Definição de variáveis utilizadas para utilização do TreeView, que são:...

Definição de variáveis utilizadas para utilização do TreeView, que são:
...