Histórico da Página

...

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

Variável	Tipo	Descrição
h-treeview4gltreeview	Handle	Contem o handle da instância do treeviewTreeView
c-codigo-node	Char	Contem o pcKe 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

atualizaTreeviewpcNodeKey

Procedure

Parâmetros

Descrição

Exemplo/Utilização

pi-

Faz uma atualização/refresh do treeview.

RUN pi-atualizaTreeview.

pi-create-node

	Parâmetros	Tipo	Descrição
I	pcKe	Char	Chave do node
I	pcKePar	Char	Pai do node
I	pcLabel	Char	Label do node
I	pcIco	Char	Ícone do node
I	pcOptn	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 pcOtn:

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","","") NO-ERROR.

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

END.

pi-update-node

	Parâmetro	Tipo	Descrição
I	cChavepcKe	Char	Chave do node a mover
I	cFieldNamespcFieldNames	Char	Lista de campos, exemplo: "lab,ico"
I	cFieldValuespcFieldValues	Char	Lista de valores separados por chr(1)
I	cParampcOptn	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) NO-ERROR.

tvNodeEventpi-node-is-expanded

	Parâmetro	Tipo	Descrição
I

pcEvent

Char

Evento que aconteceu

I

pcKe

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.

tvNodeEvent

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

Procedure auxiliar que 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ão alimentados as variáveis c-codigo-node e h-node com o pcNodeKey, que é a chave do node selecionado.

pi-atualizaTreeview
Faz uma atualização/refresh do treeview.

RUN pi-atualizaTreeview.

pi-ClickTreeview
Esta é uma procedure que é chamada pelo tvNodeEvent e deve ser criada no seu programa, pois neste ponto que você deverá utilizar o c-codigo-node e h-node, que é a chave do node, e fazer os seus procedimentos necessários para atualizar frames e utilizar o node selecionado.

Árvore de páginas

Versões comparadas

Versão antiga 21

Nova versão 22

Chave