FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour recorrer para atras en un tree
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
recorrer para atras en un tree
Posted: Mon May 23, 2022 08:37 AM

Hola.

Estoy posicionado en una rama que no se si estan dentro de otra... necesito recorrer desde esa rama para ATRAS hasta llegar a la raiz, como lo hago?

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: recorrer para atras en un tree
Posted: Mon May 23, 2022 08:36 PM
Gustavo,

El método Scan() de la Clase TTreeView usa esta función para "avanzar en los items"

Code (fw): Select all Collapse
static function ScanItemsBlock( aItems, bAction )

   local oItem, n := 1, oItemFound

   while n <= Len( aItems ) .and. oItemFound == nil
      oItem = aItems[ n ]
      if Eval( bAction, oItem, n )
         return oItem
      else
         if Len( oItem:aItems ) > 0
            oItemFound = ScanItemsBlock( oItem:aItems, bAction )
         endif
      endif
      n++
   end

return oItemFound


Tendrias que hacer una función similar que en vez de llamar a n++ llame a n-- y n > 0
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion