Histórico da Página

Cria um node no treeview.

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

Valores válidos para o pcOtn:

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.

Atualiza o label, ícone ou a lista de opções de um determinado 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.

ASSIGN cFgColor = "font=1".
RUN pi-update-node 
    (c-codigo-node, "", "", cFgColor) NO-ERROR.

Retorno "YES" ou "NO" indicando se o node está expandido.

RUN pi-node-is-expanded 
    (INPUT c-codigo-node).
IF RETURN-VALUE = "YES" THEN
   MESSAGE "O NÓ ESTÁ EXPANDIDO" 
           VIEW-AS ALERT-BOX.
ELSE
   MESSAGE "O NÓ NÃO ESTÁ EXPANDIDO" 
           VIEW-AS ALERT-BOX.

RUN pi-atualizaTreeview.

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

Você não precisa chamar esta procedure diretamente, pois quem irá chamá-la é o TreeView.

Nesta procedure será alimentada a variável c-codigo-node com a chave do node selecionado.

Procedure que será chamada pelo tvNodeEvent sempre que ocorrer um evento de "select" (click em um node) no TreeView.

Caso queria capturar este evento, esta Procedure deve ser definida no seu programa.

A variável c-codigo-node irá conter a chave do node selecionado.

PROCEDURE pi-ClickTreeView:
   MESSAGE "Chave do Nó: " + c-codigo-node
           VIEW-c-codigo-node
           VIEW-AS ALERT-BOX.
END PROCEDURE.

Procedure utilizada para criar e controlar o Popup do Treeview.

Ela será chamada pelo tvNodeEvent em dois momentos:

1) Criação do Menu

Executada na momento em que o componente é criado. Passando como parâmetro o Ação "build". Neste momento a Procedure deverá retornar uma String com a lista dos itens que devem ser apresentados no Popup. A lista deve utilizar o separador "chr(1)" e deve ser composta por Label e Valor de cada item. Ex: "LabelItem1" + chr(1) + "valoritem1" + chr(1) + "LabelItem2" + chr(1) + "valoritem2". É possível acrescentar uma regra entre os itens, para isto, basta incluir um item com o Label "RULE" e o  valor igual a branco.

xxxxProcedure que será chamada pelo tvNodeEvent sempre que ocorrer um evento de "select" (click em um node) no TreeView.

xxxxCaso queria capturar este evento, esta Procedure deve ser definida no seu programa.

xxxxxA variável c-codigo-node irá conter a chave do node selecionado.

xxxxProcedure que será chamada pelo tvNodeEvent sempre que ocorrer um evento de "select" (click em um node) no TreeView.

xxxxCaso queria capturar este evento, esta Procedure deve ser definida no seu programa.

xxxA variável c-codigo-node irá conter a chave do node selecionado.

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 RUN addNode IN h-treeview4gltreeview 
       ("n1","","node1","","") NO-ERROR.
    RUN RUN addNode IN h-treeview4gltreeview 
       ("n2","","node2","","expanded") NO-ERROR.
    RUN addNode IN h-treeview4gltreeview 
       ("n21","n2","node21","","") NO-ERROR.
    RUN addNode IN h-treeview4gltreeview 
       ("n22","n2","node22","","expanded").
    RUN RUN addNode IN h-treeview4gltreeview 
       ("n221","n22","node221","image/book02.bmp","").
    RUN RUN addNode IN h-treeview4gltreeview 
       ("n222","n22","node222","image/book02.bmp","").
    RUN addNode IN h-treeview4gltreeview 
       ("n3","","node3","present1.bmp","expanded").
    RUN addNode IN h-treeview4gltreeview 
       ("n31","n3","node31","image/$.bmp","").
    RUN RUN addNode IN h-treeview4gltreeview 
       ("n4","","node4","image/smile56.bmp","").
END.

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

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

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

    RUN destroyObject IN h-treeview4gltreeview.

    DELETE PROCEDURE h-treeview NO-ERROR4gltreeview.

END.

RUN emptyTree IN h-treeview NO-ERROR4gltreeview.

RUN enableObject IN h-treeview NO-ERROR4gltreeview.

RUN expandBranch IN h-treeview (c-codigo-node) NO-ERROR.
RUN pi-atualizaTreeview.
Obs: // Ao fazer o expandBranch não esqueça de fazer 
// o Refresh para atualizar o treeview na tela para atualizar o treeview na tela.
RUN expandBranch IN h-4gltreeview
    (c-codigo-node).
RUN pi-atualizaTreeview.

RUN getFrameTreeview IN h-treeview4gltreeview 
    (OUTPUT hFrameTV).

RUN getNodeDetails IN h-treeview4gltreeview
    (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
    "parent:" hNdBf:BUFFER-FIELD("par"):BUFFER-VALUE SKIP
       "prev-siblingsib:" hNdBf:BUFFER-FIELD("pre"):BUFFER-VALUE SKIP
     "next-siblingsib:" hNdBf:BUFFER-FIELD("nex"):BUFFER-VALUE SKIP
     "expandedexpand:" hNdBf:BUFFER-FIELD("expanded"):BUFFER-VALUE SKIP
    "optn:" hNdBf:BUFFER-FIELD("optn"):BUFFER-VALUE
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

DELETE OBJECT hNdBf.

RUN initializeObject IN h-treeview4gltreeview.

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

updateNode *

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