Histórico da Página

...

01. VISÃO GERAL

Este componente TreeView4glTreeView, feito em progress, tem como objetivo substituir o componente TreeView fornecido pela Microsoft (mscomctrl.ocx), pois este OCX não possui compatibilidade com o OpenEdge 64Bits.

...

Variável	Tipo	Descrição
h-4gltreeview	Handle	Contem o handle da instância do TreeView
c-codigo-node	Char	Contem o pcKe (chave) 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-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 treeviewTreeView.

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

Valores válidos para o pcOtnpcOptn:

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 treeviewTreeView
AutoSort=yes/no	Liga ou desliga a ordenação do treeviewTreeView
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-node-is-expanded

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

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.

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 do TreeviewTreeView.

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.

pi-GenericEventTreeview

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

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.

...

03. PROCEDURES E FUNÇÕES DO COMPONENTE

O componente 4GLTreeView 4glTreeView possui um código altamente documentado que pode ser utilizado.

...

Procedure

Parâmetros

Descrição

Exemplo/Utilização

addNode *

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

Adiciona um node no treeviewTreeView.

Se o node for adicionado a um

node pai, ele será o último filho.

DO ON ERROR UNDO, LEAVE:
   RUN addNode IN h-4gltreeview 
       ("n1","","node1","","").
   RUN addNode IN h-4gltreeview 
       ("n2","","node2","","expanded").
   RUN addNode IN h-4gltreeview 
       ("n21","n2","node21","","").
   RUN addNode IN h-4gltreeview 
       ("n22","n2","node22","","expanded").
   RUN addNode IN h-4gltreeview 
       ("n221","n22","node221","image/book02.bmp","").
   RUN addNode IN h-4gltreeview 
       ("n222","n22","node222","image/book02.bmp","").
   RUN addNode IN h-4gltreeview 
       ("n3","","node3","present1.bmp","expanded").
   RUN addNode IN h-4gltreeview 
       ("n31","n3","node31","image/$.bmp","").
   RUN addNode IN h-4gltreeview 
       ("n4","","node4","image/smile56.bmp","").
END.

updateNode *

Parâmetro	Tipo	Descrição
pcKe (I)	Char	Chave do node a mover
pcFieldNames (I)	Char	List 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.

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

deleteNode

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

Elimina um node de uma chave especificada.

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

moveNode

Parâmetro	Tipo	Descrição
pcKe (I)	Char	Chave do node a mover
pcToKe (I)	Char	Mover para o node
pcMode (I)	Char	Modos possíveis: after, before, parent
pcOptn (I)	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-4gltreeview 
    (c-codigo-node, c-codigo-node-pai, "after", "refresh").

enableObject

Habilita o treeviewTreeView

RUN enableObject IN h-4gltreeview.

initializeObject

Inicializa o treeviewTreeView

RUN initializeObject IN h-4gltreeview.

destroyObject

Elimina o treeview TreeView da memória.

IF  VALID-HANDLE(h-4gltreeview) THEN DO:

    RUN destroyObject IN h-4gltreeview.

    DELETE PROCEDURE h-4gltreeview.

END.

getFrameTreeview

Parâmetro	Tipo	Descrição
hFrame (O)	Handle	Handle da frame do treeviewTreeView

Retorna o handle da frame do treeviewTreeView.

RUN getFrameTreeview IN h-4gltreeview 
    (OUTPUT hFrameTV).

emptyTree

Zera o conteúdo da treeviewTreeView.

RUN emptyTree IN h-4gltreeview.

applyEntry

Passar o parâmetro vazio ("")

Faz um entry no treeviewTreeView.

RUN applyEntry IN h-4gltreeview
    (INPUT "").

expandBranch

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

Expande o node e todos os seus filhos.

Obs: Caso queria expandir apenas o node (e não os filhos), use a função "expandNode".

RUN expandBranch IN h-4gltreeview
    (c-codigo-node).
RUN pi-atualizaTreeview.

getNodeDetails

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

Retorna detalhes de um node do treeviewTreeView.

RUN getNodeDetails IN h-4gltreeview
    (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-sib:" hNdBf:BUFFER-FIELD("pre"):BUFFER-VALUE SKIP
    "next-sib:" hNdBf:BUFFER-FIELD("nex"):BUFFER-VALUE SKIP
    "expand:" hNdBf:BUFFER-FIELD("expanded"):BUFFER-VALUE SKIP
    "optn:" hNdBf:BUFFER-FIELD("optn"):BUFFER-VALUE
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

DELETE OBJECT hNdBf.

hasNodes

Parâmetro	Tipo	Descrição
pcHasN (O)	Logical	Existe node

Retorna Verdadeiro ou False se o TreeView possui nodes.

IF DYNAMIC-FUNCTION('hasNodes' IN h-4gltreeview) THEN DO:
   MESSAGE "Existe nós na Treeview" 
           VIEW-AS ALERT-BOX.
END.

getTreeCount

Parâmetro	Tipo	Descrição
pcCount (O)	Integer	quantidade nodes

Retorna a quantidade de nodes da TreeView.

ASSIGN iTreeCount =

   DYNAMIC-FUNCTION('getTreeCount' IN h-4gltreeview).
MESSAGE "A Treeview possui " + string(iTreeCount) + " nós !"
        VIEW-AS ALERT-BOX.

getNodeParentKey

Parâmetro	Tipo	Descrição
pcKe (I)	Char	Chave do node
pcKePar (O)	Char	Chave do node Pai

Retorna a chave do node Pai do node informado.

ASSIGN cParentKey =

   DYNAMIC-FUNCTION('getNodeParentKey' IN h-4gltreeview,
                    c-codigo-node).

selectNode

Parâmetro	Tipo	Descrição
pcKe (I)	Char	Chave do node
pcOk (O)	Logical	Indica se foi possível selecionar o node.

Seleciona o node informado.

ASSIGN lOk =
   DYNAMIC-FUNCTION('selectNode':U IN h-4gltreeview,
                    c-codigo-node).

collapseNode

Parâmetro	Tipo	Descrição
pcKe (I)	Char	Chave do node
pcOptn (I)	Char	Opção possível: refresh
pcOk (O)	Logical	Indica se foi possível contrair o node.

Contrai o node informado.

ASSIGN lOk =
   DYNAMIC-FUNCTION('collapseNode' IN h-4gltreeview,
                    c-codigo-node, "refresh").

expandNode

Parâmetro	Tipo	Descrição
pcKe (I)	Char	Chave do node
pcOptn (I)	Char	Opção possível: refresh
pcOk (O)	Logical	Indica se foi possível expandir o node.

Expande o node informado.

Obs: Os filhos não serão expandidos. Para isto, utilize a procedure "expandBranch".

ASSIGN lOk =
   DYNAMIC-FUNCTION('expandNode' IN h-4gltreeview,
                    c-codigo-node, "refresh").

setNodeTag

Parâmetro	Tipo	Descrição
pcKe (I)	Char	Chave do node
pcTag (I)	Char	Uma informação qualquer
pcOk (O)	Logical	Indica se foi possível gravar a Tag no node.

Atualiza a TAG do node. A TAG é um campo "coringa", onde pode ser gravada qualquer informação para recuperar depois.

ASSIGN lOk =
   DYNAMIC-FUNCTION('setNodeTag' IN h-4gltreeview,
                    c-codigo-node, "minha informação").

getNodeTag

Parâmetro	Tipo	Descrição
pcKe (I)	Char	Chave do node
pcTag (O)	Char	A informação gravada na Tag do node.

Retornar a TAG gravada no node.

ASSIGN cNodeTag = 
   DYNAMIC-FUNCTION('getNodeTag' IN h-4gltreeview,
                    c-codigo-node).
MESSAGE "TAG do Nó: " + cNodeTag 
        VIEW-AS ALERT-BOX.

...

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

View file

name	wmainten.w
height	250

...

Árvore de páginas

Versões comparadas

Versão antiga 27

Nova versão 28

Chave

01. VISÃO GERAL

03. PROCEDURES E FUNÇÕES DO COMPONENTE