Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

ProcedureParâmetrosDescriçãoExemplo
addNode

ParâmetrosTipoDescrição
IpcKeCharChave do node
IpcKeParCharPai do node
IpcLabelCharLabel do node
IpcIcoCharIcone do node
IpcOptnCharParâmetros do node

Adiciona um node no treeview.

Se o node for adicionado a um

node pai, ele será o último filho.

   DO DO ON ERROR UNDO, LEAVE:

      RUN addNode IN h-treeview ("n1","","node 1","","") NO-ERROR.

      RUN addNode IN h-treeview ("n2","","node 2","","expanded") NO-ERROR.

      RUN addNode IN h-treeview ("n21","n2","node 21","","") NO-ERROR.

      RUN addNode IN h-treeview ("n22","n2","node 22","image/treeview/book02.bmp","expanded").

      RUN addNode IN h-treeview("n221","n22","node 221","image/treeview/book02.bmp","").

      RUN addNode IN h-treeview ("n222","n22","node 222","image/treeview/book02.bmp","").

      RUN addNode IN h-treeview ("n3","","node 3","image/treeview/present1.bmp","expanded").

      RUN addNode IN h-treeview ("n31","n3","node 31","image/treeview/$.bmp","").

      RUN addNode IN h-treeview ("n4","","node 4","image/treeview/smile56.bmp","").

   END.

applyEntryPassar o parâmetro vazio ("")RFaz Faz um entry no treeviewRUN applyEntry IN h-treeview (INPUT "").
deleteNode

ParâmetroTipoDescrição
IpcKeCharChave do node
IpcOptnCharParâmetros do node
Elimina um node de uma chave especificada.RUN deleteNode IN h-treeview (c-codigo-node,"refresh").
destroyObject
Elimina o treeview da memoriamemória.

   IF IF VALID-HANDLE(h-treeview) THEN DO:

         RUN destroyObject IN h-treeview.

      DELETE PROCEDURE h-treeview NO-ERROR.     DELETE PROCEDURE h-treeview NO-ERROR.

END.

emptyTree
Zera o conteúdo da treeVview.RUN emptyTree IN h-treeview NO-ERROR.
enableObject
Habilita o treeviewRUN enableObject IN h-treeview NO-ERROR.
expandBranch

ParâmetroTipoDescrição
IpcKeCharChave do node
Expande o node e todos os filhos deleRUN expandBranch IN h-treeview (c-codigo-node) NO-ERROR.
getFrameTreeview

ParâmetroTipoDescrição
OhFrameHandleHandle da frame do treeview
Retorna o handle da frame do treeviewRUN getFrameTreeview IN h-treeview (OUTPUT hFrameTV).
getNodeDetails

ParâmetroTipoDescrição
IpcKeCharChave do node
Retorna detalhes de um node do treeview

RUN getNodeDetails IN h-treeview (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
    "param:" hNdBf:BUFFER-FIELD("par"):BUFFER-VALUE SKIP
    "prev-sibling:" hNdBf:BUFFER-FIELD("pre"):BUFFER-VALUE SKIP
    "next-sibling:" hNdBf:BUFFER-FIELD("nex"):BUFFER-VALUE SKIP
    "expanded:" hNdBf:BUFFER-FIELD("expanded"):BUFFER-VALUE SKIP
    "optn:" hNdBf:BUFFER-FIELD("optn"):BUFFER-VALUE
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

DELETE OBJECT hNdBf   END.






  • addNode (INPUT  pcKe    AS CHARACTER  NO-UNDO.

       DEFINE INPUT  PARAMETER pcKePar AS CHARACTER  NO-UNDO.

       DEFINE INPUT  PARAMETER pcLab   AS CHARACTER  NO-UNDO.

       DEFINE INPUT  PARAMETER pcIco   AS CHARACTER  NO-UNDO.

       DEFINE INPUT  PARAMETER pcOptn  AS CHARACTER  NO-UNDO.

...