Histórico da Página

...

CONTEÚDO

1. Visão Geral
2. Procedures do ComponenteProcedures do Include ut-treeview.i (facilitador)
   
3. Procedures do Componente
4. Exemplo de Utilização
5. Telas do TreeView
6. Documentação Complementar do Componente

...

• Performático, onde testamos mais de 5000 nós e não houve perda de performance.
• Temos um include ut-treeview.i que possui algumas procedures "facilitadoras" para manipulação do TreeView.
• Feito totalmente em progress.
• Possuimos o código fonte, onde podemos customizá-lo de acordo com as nossas necessidades.

02. PROCEDURES DO

...

O componente TreeView.w possui um código altamente documentado que pode ser utilizado.

...

INCLUDE ut-treeview.i (facilitador)

Foi disponibilizado o include ut-treeview-i para facilitar a utilização do TreeView, que possui as seguintes variáveis e procedures:

RUN pi-atualizaTreeview.

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.

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

03. PROCEDURES DO COMPONENTE

O componente TreeView.w possui um código altamente documentado que pode ser utilizado.

Aconselhamos utilizar o include facilitador, pois ele possui variáveis e algumas procedures que vão facilitar o desenvolvimento.

Abaixo temos as principais procedures do TreeView:

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.

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

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

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

       RUN destroyObject IN h-treeview.

       DELETE PROCEDURE h-treeview NO-ERROR.

END.

RUN emptyTree IN h-treeview NO-ERROR.

RUN enableObject IN h-treeview NO-ERROR.

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

RUN getFrameTreeview IN h-treeview (OUTPUT hFrameTV).

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.

RUN initializeObject IN h-treeview.

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

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:

...

RUN pi-atualizaTreeview.

...

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.

...

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.

...

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.

* = Procedures chamadas pelo facilitador

...

04. EXEMPLO DE UTILIZAÇÃO

Estamos disponibilizando um exemplo de um programa com thin-templates que utiliza esse componente de treeview.

// iniciandodefinition o treeviewarea
{utp/ut-treeview.i}

// procedure area
PROCEDURE AfterDisplayFields :
    IF  NOT VALID-HANDLE(h-treeview) THEN DO:
        // instancia o treeview
        RUN utp/ut-treeview.w PERSISTENT SET h-treeview.

       // inicializa o treeview   
       RUN initializeObject IN h-treeview.
   
       SUBSCRIBE// faz a subscricao do evento de click dentro do treeview
        SUBSCRIBE TO "tvNodeEvent" IN h-treeview.
   
       // repositiona o treeview
       RUN repositionObject IN h-treeview ( 2.65 , 1.30 ) NO-ERROR.

       // ajusta o tamanho do componente
       RUN resizeObject IN h-treeview ( 14.35 , 28.00 ) NO-ERROR.
    END.

     // carrega os itens do treeview
    RUN pi-loadNodes.
    
    // faz o refresh do treeview
    RUN pi-atualizaTreeview IN THIS-PROCEDURE.   

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

// esta procedure sera executada toda vez que ocorrer um evento de click em um determinado nó
PROCEDURE pi-ClickTreeView :
    MESSAGE c-codigo-node VIEW_AS ALERT-BOX.
END PROCEDURE.

// retira o treeview da memoria
PROCEDURE beforeDestroyInterface :
   IF VALID-HANDLE(h-treeview) THEN DO:
      RUN destroyObject IN h-treeview.
      DELETE PROCEDURE h-treeview NO-ERROR.
   END.

   RETURN "OK":U.
END PROCEDURE.

Programas de exemplo no produto que estão utilizando este componente:

...