Control Tree no expande el nodo ERROR?

[David Field]

Hola compañeros,

En la última versión de OOHG el control TREE no expande los nodos.

Para comprobar esto es posible utilizar Treedemo.prg de los ejemplos de OOHG en el directorio SAMPLES.

He dado con el problema que reside en el metodo DoEvent que por defecto regresa .F. y en h_tree.prg bajo el metodo Events_Notify estan las siguientes lineas de código donde se prueba ::OnExpand y si este bloque no está definido ("U") ::DoEvent() regresa .F. y por lo tanto no expande el nodo.

   ElseIf nNotify == TVN_ITEMEXPANDING
      TreeItemHandle := TreeView_ItemExpandingItem( lParam )
      Item := ::HandleToItem( TreeItemHandle )
      IF TreeView_ItemExpandingAction( lParam ) == TVE_EXPAND
         lValid := ::DoEvent( ::OnExpand, "TREEVIEW_ITEMEXPANDING", {Item, ::Item( Item )} )
      ELSE   // TVE_COLLAPSE
         lValid := ::DoEvent( ::OnCollapse, "TREEVIEW_ITEMCOLLAPSING", {Item, ::Item( Item )} )
      ENDIF
      IF HB_ISLOGICAL( lValid ) .AND. ! lValid  // Aquí el problema con regresar por defecto .F.
         // do not expand or collapse
         RETURN 1
      ENDIF
      RETURN 0

Saludos,

David Field

[David Field]

Mismo caso al querer colapsar el nodo.

[David Field]

Otro detalle de este control es que ::OnRClick solo se ejecuta si da uno doble click

[Luis R. Stach]

Hola Gente

Yo también estaba buscando información porque no puedo expandir los nodos de un Tree, pero veo que hay un problema.

Espero se pueda solucionar.

Saludos

Luis R. Stach

[Fernando Yurisich]

Ver https://github.com/oohg/core/blob/main/ChangeLog.txt

2025-07-13 18:20 UTC-0300 Fernando Yurisich <fyur...@oohg.org>
  * core\source\h_tree.prg
    ! Tree control does not expand its nodes.
  #631

Saludos

--

OOHG project is located at https://github.com/oohg and QPM project is located at https://github.com/teamQPM

If you value my work to support this project, please consider supporting me with a donation via Amazon Gift Card.

--
Has recibido este mensaje porque estás suscrito al grupo "[oohg]" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a oohg+uns...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/f3a66e3c-dbd7-4f48-954b-7d109eea7f55n%40googlegroups.com.

[Luis R. Stach]

Gracias Fernando

Actualice los fuentes y regenere la librería, funciona, ahora se expanden los nodos, pero no se colapsan, también detecté otro problemas con los IDs, asigna los ID en en forma automática tanto de los nodos como de los items, adjunto un ejemplo.

Saludos
Luis R. Stach

Para ver este debate, visita https://groups.google.com/d/msgid/oohg/CAHBF2g7c2wmwCHowFHq7hc-a-wLQVMarH%2Bj8bp0%2BUWdF%3D5bKDA%40mail.gmail.com.