Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
// Deficoes do treeview {utp/ut-4gltreeview.i} PROCEDURE afterDisplayFields : RUN carregaTreeView. RUN criaTreeView. END PROCEDURE. // Carregando o componente treeview PROCEDURE carregaTreeView : IF NOT VALID-HANDLE(h-4gltreeview) THEN DO: // Instancia o treeview RUN utp/ut-4gltreeview.w PERSISTENT SET h-4gltreeview. // Indica a Frame "Pai" do componente RUN setParentFrame IN h-4gltreeview (INPUT FRAME fPage0:HANDLE). // Inicializa o treeview RUN initializeObject IN h-4gltreeview. // Faz a subscricao dos eventos do treeview SUBSCRIBE TO "tvNodeEvent" IN h-4gltreeview. // Reposiciona o treeview RUN repositionObject IN h-4gltreeview (6.35, 2.00). // Ajusta o tamanho do treeview RUN resizeObject IN h-4gltreeview (10.70, 28.00). END. END PROCEDURE. // Cria os nodes no treeview PROCEDURE criaTreeView : // Limpa o treeview RUN emptyTree IN h-4gltreeview NO-ERROR. ASSIGN c-codigo-node = "". // Logica para criar nos nodes do treeview ... RUN pi-create-node (cNodeId, cNodeIdPai, cDescNode, cImage, cOptn). ... // Faz o refresh do treeview RUN pi-atualizaTreeview. // Coloca o cursor no treeview RUN applyEntry IN h-4gltreeview (INPUT ""). END PROCEDURE. // Procedure executada toda vez que ocorrer um evento de click em um node PROCEDURE pi-ClickTreeView : MESSAGE c-codigo-node VIEW_AS ALERT-BOX. END PROCEDURE. // Retira o treeview da memoria PROCEDURE beforeDestroyInterface : IF VALID-HANDLE(h-4gltreeview) THEN DO: RUN destroyObject IN h-4gltreeview. DELETE PROCEDURE h-4gltreeview. END. RETURN "OK":U. END PROCEDURE. |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas