Histórico da Página

Adiciona um node no TreeView.

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/treeview/tvpics/book02.bmp","").
   RUN addNode IN h-4gltreeview 
       ("n222","n22","node222",
        "image/treeview/tvpics/book02.bmp","").
   RUN addNode IN h-4gltreeview 
       ("n3","","node3",
        "image/treeview/tvpics/present1.bmp","expanded").
   RUN 

Adiciona um node no TreeView.

Se o node for adicionado a um

node pai, ele será o último filho.

DO ON ERROR UNDO, LEAVE:
   RUN addNode IN h-4gltreeview 
       ("n1n31","n3","node1node31","","").

     RUN addNode IN h-4gltreeview 
       ("n2","","node2"image/treeview/tvpics/SDO.bmp","","expanded").
   RUN RUN addNode IN h-4gltreeview 
       ("n21n4","n2","node21node4","","").
   RUN addNode IN h-4gltreeview 
       ("n22"image/treeview/tvpics/smile56.bmp","n2","node22","","expanded").
   RUN addNode IN h-4gltreeview 
       ("n221","n22","node221","image/book02.bmp","").
   RUN addNode ").
END.

updateNode *

RUN updateNode IN h-4gltreeview 
       ("n222","n22","node222","image/book02(c-codigo-node, "", "", cFgColor).

RUN deleteNode.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.(c-codigo-node, "refresh").

RUN moveNode

 IN h-4gltreeview 
    (c-codigo-node, c-codigo-node-pai, "after", "refresh"

).

RUN 

enableObject IN h-4gltreeview.

RUN initializeObject IN h-4gltreeview.

IF  VALID-HANDLE(

h-4gltreeview) THEN DO:

    RUN destroyObject IN h-4gltreeview.

    DELETE PROCEDURE h-4gltreeview.

END.

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

RUN emptyTree IN h-4gltreeview.

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.

RUN 

getNodeDetails IN h-4gltreeview

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

    RUN destroyObject IN h-4gltreeview.

    DELETE PROCEDURE h-4gltreeview.

END.

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

RUN emptyTree 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.

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

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".

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

ASSIGN 

iTreeCount 

= 

DYNAMIC-FUNCTION('getTreeCount' IN h-4gltreeview).
MESSAGE 

"A Treeview possui " + string(iTreeCount) + " nós !"
        VIEW-AS ALERT-BOX.

ASSIGN cParentKey = 

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

ASSIGN lOk =
   DYNAMIC-FUNCTION('selectNode

' IN h-4gltreeview

,
 

c-codigo-node).

ASSIGN 

lOk =

   DYNAMIC-FUNCTION('

collapseNode' IN h-4gltreeview

,

c-

codigo-node, "refresh").

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").

Retorno YES ou NO indicando se o node

está expandido.

IF DYNAMIC-FUNCTION('

isNodeExpanded'

 IN h-4gltreeview, 
                    c-codigo-node)

 THEN
   MESSAGE "O NÓ ESTÁ EXPANDIDO" 
           VIEW-AS ALERT-BOX.
ELSE
   MESSAGE "O NÓ NÃO ESTÁ EXPANDIDO" 
           VIEW-AS ALERT-BOX.

ASSIGN lOk =
   DYNAMIC-FUNCTION('

setNodeTag' IN h-4gltreeview,
                    c-codigo-node, "

minha informação").

ASSIGN 

cNodeTag = 
   DYNAMIC-FUNCTION('

getNodeTag' IN h-4gltreeview,
                    c-codigo-node

).
MESSAGE "

TAG do Nó: " + cNodeTag 
        VIEW-AS ALERT-BOX.

DEFINE VARIABLE chTreeView  AS COM-HANDLE       NO-UNDO.
DEFINE VARIABLE CtrlFrame   AS WIDGET-HANDLE    NO-UNDO.
DEFINE VARIABLE chCtrlFrame AS COMPONENT-HANDLE NO-UNDO.

// Definições Treeview
{utp/ut-4gltreeview.i}

Carrega o OCX através da procedure "control_load".

Criar um procedure como exemplo da "carregaTreeView"
apresentada no tópico de exemplo.

CREATE CONTROL-FRAME CtrlFrame ASSIGN
       FRAME           = FRAME fpage0:HANDLE
       ROW             = 2.46
       COLUMN          = 1
       HEIGHT          = 13.5
       WIDTH           = 31
       HIDDEN          = NO
       SENSITIVE       = YES.

RUN repositionObject IN h-4gltreeview (2.46, 1.00).
RUN resizeObject IN h-4gltreeview (13.5, 31.00).

DEFINE VARIABLE pop-menu AS WIDGET-HANDLE NO-UNDO.
CREATE MENU pop-menu
     ASSIGN popup-only = TRUE
            TITLE      = "POPUP".
CtrlFrame:POPUP-MENU = pop-menu.

Criar a procedure "pi-CtrlPopupTreeview"
apresentada no tópico de procedures da include.

ChTreeView:Nodes:Clear().

RUN emptyTree IN h-4gltreeview.

DO i-cont = 1 TO chTreeView:Nodes:Count:
   ASSIGN chTreeView:Nodes(i-cont):Expanded = TRUE.
END.

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

ASSIGN chTreeView:SelectedItem = 
                           chTreeView:Nodes(cNodeId).
IF NOT ERROR-STATUS:ERROR THEN
   RUN CtrlFrame.TreeView.NodeClick 
           (INPUT chTreeView:Nodes:Item(cNodeId)).

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

IF chTreeView:Nodes:COUNT > 0 THEN DO:
   ...
END.

IF DYNAMIC-FUNCTION('hasNodes' IN h-4gltreeview) THEN DO:
   ...
END.

IF chTreeView:SelectedItem:Expanded THEN DO:
   ...
END.

IF DYNAMIC-FUNCTION('isNodeExpanded' IN h-4gltreeview, 
                    c-codigo-node) THEN DO:
   ...
END.

ASSIGN cNodeId = chTreeView:SelectedItem:key().

ASSIGN cNodeId = c-codigo-node.

PROCEDURE CtrlFrame.TreeView.NodeClick :
...
END PROCEDURE.

Criar a procedure "pi-ClickTreeView"
apresentada no tópico de procedures da include.

chTreeView:Nodes:Add (cNodeIdPai,
                      4, 
                      cNodeId, 
                      cNodeLabel, 
                    

iNodeimage).

RUN pi-create-node (cNodeId, 
                    cNodeIdPai,
                    cNodeLabel, 

 cNodeImage, 
                   

 cNodeOptn).

// Gravar TAG
ASSIGN chTreeView:Nodes:Item(cNodeId):Tag = 
   STRING(ROWID(ttDados)).

// Recuperar TAG
ASSIGN rRowid = 
   TO-ROWID(hTreeView:Nodes:Item(cNodeId):Tag).

// Gravar TAG
ASSIGN lOk = DYNAMIC-FUNCTION('setNodeTag' IN h-4gltreeview, 
                     

cNodeId, STRING(ROWID(ttDados)).

// Recuperar TAG
ASSIGN rRowid = 
   TO-ROWID(DYNAMIC-FUNCTION('getNodeTag' IN h-4gltreeview, 
                             cNodeId))).

Criar um relacionamento entre a TreeView e a TempTable de Negócio

De preferencia por utilizar o Rowid como chave do Node,
desta forma, fica mais fácil de achar o Node a partir
da Temp-Table. 
Mas, também é possível utilizar a TAG para armazenar o
Rowid.

De preferencia por utilizar o Rowid como chave do Node,
desta forma, fica mais fácil de achar o Node a partir
da Temp-Table. 
Mas, também é possível utilizar a TAG para armazenar o
Rowid.

Utiliza o componente ImageList para determinar o ícone
do node, informando o arquivo de imagem e associando
a um índice numérico.
No momento de criar o node, envia este índice:

FILE-INFO:FILE-NAME = 
   SUBSTRING(SEARCH("image\conecta.ico"),1,
   R-INDEX(SEARCH("image\conecta.ico"),"~\")).
chImageList:ListImages:Add(5,, 
   LOAD-PICTURE(FILE-INFO:PATHNAME + "/" + 
   "conecta.ico")).
chTreeView:Nodes:Add(,, cNodeId, cNodeLabel, 5). 

Os arquivos de imagem, utilizados pelo componente para determinar
o ícone do node, estão disponíveis na pasta:
image\treeview\tvpics

Sendo que, para cada ícone, existe um conjunto de 4 arquivos de
imagem. Por exemplo, para o ícone "user", são utilizados os
seguintes arquivos de imagens:
user.bmp       - Somente ícone (raiz)
userMinus.bmp  - Símbolo de menos e ícone (expandido com filhos)
userNoSign.bmp - Ícone com deslocamento p/ direita (sem filhos)
userPlus.bmp   - Símbolo de mais e ícone (contraído com filhos)

No momento de criar o node, deve-se sempre informar o arquivo
raiz, desta forma o componente irá carregar os demais arquivos
conforme a necessidade:
RUN pi-create-node (cNodeId, "", cNodeLabel, 
                    "image/treeview/tvpics/user.bmp", "").

Caso o ícone necessário não exista, deverão ser criados os 
arquivos de imagem, na pasta descrita acima, e seguindo o mesmo
padrão de nomenclatura de ícone e sufixos (Minus, NoSign e Plus).