Histórico da Página

...

Procedure

Parâmetros

Descrição

Exemplo/Utilização

pi-create-node

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

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:

Parâmetro	Descrição
expanded	Inicia o node expendido
collapsed	Inicia o node fechado (não expandido) - opção default
selected	Seleciona o node ate o 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

DO ON ERROR UNDO, LEAVE:

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

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

END.

pi-update-node

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

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.

pi-atualizaTreeview

Faz uma atualização/refresh do TreeView.

RUN pi-atualizaTreeview.

tvNodeEvent

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

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.

pi-ClickTreeview

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.

pi-CtrlPopupTreeview

Parâmetro

Tipo

Descrição

pcAction (I)

Char

Ação do Popup:

"build" ou "choose"

pcEvent (I)

Char

Item do Popup escolhido

pcNodeKey (I)

Chave do node

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:
   DEF INPUT PARAM pcAction  AS CHAR NO-UNDO.
   DEF INPUT PARAM pcEvent   AS CHAR NO-UNDO.
   DEF INPUT PARAM pcNodeKey AS CHAR 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 "DELETANDO O NÓ !"
                    VIEW-AS ALERT-BOX.          
         END.
         WHEN "menuDetalhe" THEN DO:
            MESSAGE "MOSTRANDO DETALHES !"
                    VIEW-AS ALERT-BOX. 
         END.
      END CASE.

      RETURN.
   END.

END PROCEDURE.

pi-GenericEventTreeview

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

Procedure que será chamada pelo tvNodeEvent para todos os eventos do TreeView que não sejam o evento de "select" (tratado pela PI pi-ClickTreeview) e os eventos de Popup Menu (tratados pela PI pi-CtrlPopupTreeview).

Caso queria capturar algum evento específico do TreeView, esta Procedure deve ser definida no seu programa.

O parâmetro pcEvent irá conter o evento que ocorreu, por exemplo "expand", que ocorre quando o node é expandido.

PROCEDURE pi-GenericEventTreeview:
   DEF INPUT PARAM pcEvent   AS CHAR NO-UNDO.
   DEF INPUT PARAM pcNodeKey AS CHAR NO-UNDO.

   MESSAGE "OCORREU O EVENTO: " + pcEvent SKIP
           "PARA O NÓ: " + pcNodeKey
           VIEW-AS ALERT-BOX.
END PROCEDURE.

...

View file

name	wmainten.w
height	250

View file

name	exemplo-ut-4gltreeview.p
height	250

Bloco de código

title	Exemplo de utilização do TreeView
linenumbers	true

// Deficoes do treeview
{utp/ut-4gltreeview.i}

PROCEDURE afterDisplayFields :
   RUN carregaTreeView.
   RUN criaTreeView.
END PROCEDURE.

// Carregando o componente treeview
PROCEDURE carregaTreeView :
   IF NOT VALID-HANDLE(h-4gltreeview) THEN DO:
      // Instancia o treeview
      RUN utp/ut-4gltreeview.w PERSISTENT SET h-4gltreeview.
   
      // Indica a Frame "Pai" do componente
      RUN setParentFrame IN h-4gltreeview (INPUT FRAME fPage0:HANDLE).

      // Inicializa o treeview
      RUN initializeObject IN h-4gltreeview.
   
      // Faz a subscricao dos eventos do treeview
      SUBSCRIBE TO "tvNodeEvent" IN h-4gltreeview.

      // Reposiciona o treeview 
      RUN repositionObject IN h-4gltreeview (6.35, 2.00).

      // Ajusta o tamanho do treeview 
      RUN resizeObject IN h-4gltreeview (10.70, 28.00).
   END.
END PROCEDURE.

// Cria os nodes no treeview
PROCEDURE criaTreeView :
   // Limpa o treeview
   RUN emptyTree IN h-4gltreeview.
   ASSIGN c-codigo-node = "".

   // Logica para criar nos nodes do treeview
   ...
   RUN pi-create-node (cNodeId, cNodeIdPai, cDescNode, cImage, cOptn).
   ...

   // Faz o refresh do treeview
   RUN pi-atualizaTreeview.

   // Coloca o cursor no treeview
   RUN applyEntry IN h-4gltreeview (INPUT "").
END PROCEDURE.

// Procedure executada toda vez que ocorrer um evento de click em um node
PROCEDURE pi-ClickTreeView :
   MESSAGE c-codigo-node VIEW_AS ALERT-BOX.
END PROCEDURE.

// Retira o treeview da memoria
PROCEDURE beforeDestroyInterface :
   IF VALID-HANDLE(h-4gltreeview) THEN DO:
      RUN destroyObject IN h-4gltreeview.
      DELETE PROCEDURE h-4gltreeview.
   END.     
   RETURN "OK".
END PROCEDURE.

...

Árvore de páginas

Versões comparadas

Versão antiga 50

Nova versão 51

Chave