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 pcOptn:

DO ON ERROR UNDO, LEAVE:

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

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

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).
RUN pi-atualizaTreeview.

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-AS ALERT-BOX.
END PROCEDURE.

Procedure utilizada para criar e controlar o Popup Menu do TreeView.

Caso queria definir um Popup Menu para a TreeView, esta Procedure deve ser definida no seu programa.

Ela será chamada pelo tvNodeEvent em dois momentos:

1) Criação do Popup 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 a serem apresentados no Popup. A lista deve utilizar o separador "chr(1)" e ser composta por Label e Valor de cada item. Exemplo: "Label Item1" + chr(1) + "valoritem1" + chr(1) + "Label ItemN" + chr(1) + "valoritemN". É possível acrescentar uma régua entre os itens, para isto, basta incluir um item com o Label "RULE" e o valor igual a branco.

Obs: O parâmetro pcNodeKey irá conter a chave do node selecionado, caso queira criar um Popup Menu personalizado para cada node.

2) Clique no Item do Popup Menu

Executada no momento em que algum item do Popup é clicado. Passando como parâmetro a Ação "choose" e o valor do item clicado no parâmetro pcEvent.

PROCEDURE pi-CtrlPopupTreeview :
    DEFINE DEF INPUT  PARAMETERPARAM pcAction  AS CHARACTERCHAR NO-UNDO.
    DEFINE DEF INPUT  PARAMETERPARAM pcEvent   AS CHARACTERCHAR NO-UNDO.
    DEFINE DEF INPUT  PARAMETERPARAM pcNodeKey AS CHARACTERCHAR NO-UNDO.

   // Criação do Popup Menu

   IF pcAction = "build" THEN DO:
      RETURN "Muda Cor"    + CHR(1) + 
             "menuMudaCor" + CHR(1) +
             "Deleta Nó"   + CHR(1) + 
             "menuDelNode" + CHR(1) +
             "RULE"        + CHR(1) + 
             ""             + CHR(1) +
             "Detalhes"    + CHR(1) +
             "menuDetalhe".

   END.
   
   // Clica em um Item do Popup Menu

   IF pcAction = "choose" THEN DO:
      CASE pcEvent:
         WHEN "menuMudaCor" THEN DO:
            MESSAGE "MUDANDO A COR DO NÓ !"
                    VIEW-AS ALERT-BOX. 
         END.
         WHEN "menuDelNode" THEN DO:
            MESSAGE "DELETADELETANDO O NÓ !"
                    VIEW-AS ALERT-BOX.          
         END.
         WHEN "menuDetalhe" THEN DO:
            MESSAGE "MOSTRAMOSTRANDO DETALHES !"
                    VIEW-AS ALERT-BOX. 
         END.
      END CASE.

      RETURN.
   END.

END PROCEDURE. 

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.