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 addNode IN h-4gltreeview 
       ("n31","n3","node31",
        "image/treeview/tvpics/$SDO.bmp","").
   RUN addNode IN h-4gltreeview 
       ("n4","","node4",
        "image/treeview/tvpics/smile56.bmp","").
END.

updateNode *

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

RUN deleteNode IN h-4gltreeview
    (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.

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

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

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.

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.

APPLY "Entry" TO CtrlFrame.

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

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 arquivoícone
dedo imagemnode, associando 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). As 

imagens utilizadasOs 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" usado no node, existemexiste um 
conjunto de 4 5arquivos imagensde
imagem.
 Por exemplo, para o ícone "user", são utilizadas as utilizados os
seguintes arquivos de imagens:
user.bmp
userMinus.bmp
usersNoSign.bmp
usersPlus.bmp
xxxxxxx
minus.bmp
plus.bmp        - Somente ícone (raiz)
userMinus.bmp   - Símbolo de menos e ícone (expandido com filhos)
usersNoSign.bmp - Ícone com deslocamento p/ direita (sem filhos)
usersPlus.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).