Histórico da Página
...
Processo | OCX | 4glTreeView |
---|---|---|
Definição de Variáveis | DEFINE VARIABLE chTreeView AS COM-HANDLE NO-UNDO. | // Definições Treeview |
Carregar o TreeView | Carrega o OCX através da procedure "control_load". | Criar um procedure como exemplo da "carregaTreeView" |
Posicionar a TreeView na tela | CREATE CONTROL-FRAME CtrlFrame ASSIGN | RUN repositionObject IN h-4gltreeview (2.46, 1.00). |
Menu Popup | DEFINE VARIABLE pop-menu AS WIDGET-HANDLE NO-UNDO. | Criar a procedure "pi-CtrlPopupTreeview" |
Jogar o foco para o TreeView | APPLY "Entry" TO CtrlFrame. | RUN applyEntry IN h-4gltreeview (INPUT ""). |
Apagar todos os nós do TreeView | ChTreeView:Nodes:Clear(). | RUN emptyTree IN h-4gltreeview. |
Expandir o nó e seus filhos | DO i-cont = 1 TO chTreeView:Nodes:Count: | RUN expandBranch IN h-4gltreeview (c-codigo-node). |
Selecionar um nó | ASSIGN chTreeView:SelectedItem = | ASSIGN lOk = DYNAMIC-FUNCTION('selectNode' IN h-4gltreeview, |
Verificar se existem nós | IF chTreeView:Nodes:COUNT > 0 THEN DO: | IF DYNAMIC-FUNCTION('hasNodes' IN h-4gltreeview) THEN DO: |
Verificar se o nó está expandido | IF chTreeView:SelectedItem:Expanded THEN DO: | IF DYNAMIC-FUNCTION('isNodeExpanded' IN h-4gltreeview, |
Pegar a chave do nó selecionado | ASSIGN cNodeId = chTreeView:SelectedItem:key(). | ASSIGN cNodeId = c-codigo-node. |
Monitorar o evento de click | PROCEDURE CtrlFrame.TreeView.NodeClick : | Criar a procedure "pi-ClickTreeView" |
Incluir um nó | chTreeView:Nodes:Add (cNodeIdPai, | RUN pi-create-node (cNodeId, |
Gravar e recuperar a TAG | // Gravar TAG | // Gravar TAG |
Criar um relacionamento entre a TreeView e a TempTable de Negócio | De preferencia por utilizar o Rowid como chave do Node, | De preferencia por utilizar o Rowid como chave do Node, |
Definir a imagem do nó | Utiliza o componente ImageList para determinar o arquivo |
06. TELAS DO TREEVIEW Âncoratelas telas
telas | |
telas |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas