| 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 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/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 treeview | RUN enableObject IN h-4gltreeview. |
| initializeObject |
| Inicializa o treeview | RUN initializeObject IN h-4gltreeview. |
| destroyObject |
| Elimina o 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 treeview |
| Retorna o handle da frame do treeview | RUN getFrameTreeview IN h-4gltreeview
(OUTPUT hFrameTV). |
| emptyTree |
| Zera o conteúdo da treeview. | RUN emptyTree IN h-4gltreeview. |
| applyEntry | Passar o parâmetro vazio ("") | Faz um entry no treeview | RUN applyEntry IN h-4gltreeview
(INPUT ""). |
| expandBranch | | Parâmetro | Tipo | Descrição |
|---|
| pcKe (I) | Char | Chave do node |
| Expande o node e todos os filhos deleseus 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 treeview | 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 | getTreeCount | getNodeParentKey | selectNode | collapseNode | expandNode | setNodeTag | | 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. getNodeTag |
