Error in TTreeView

[Enrico Maria Giordano]

ScanItem must be ScanItems:

Code: Select all  Expand view

METHOD GetSelected() CLASS TTreeView

return ScanItem( ::aItems, TVGetSelected( ::hWnd ) )

//----------------------------------------------------------------------------//

METHOD GetItem( hItem ) CLASS TTreeView

return ScanItem( ::aItems, hItem )

EMG

[Enrico Maria Giordano]

No, it is not enough. Please look at

Code: Select all  Expand view

static function ScanItems( aItems, lExpand, lToggle )

and at

Code: Select all  Expand view

return ScanItems( ::aItems, TVGetSelected( ::hWnd ) )

and

Code: Select all  Expand view

return ScanItems( ::aItems, hItem )

It seems that the second parameter has to be logical.

What am I missing?

EMG

[Enrico Maria Giordano]

Found! It seems that ScanItem() function is missing from the latest TTreeView:

Code: Select all  Expand view

static function ScanItem( aItems, hItem )

   local n, oItem

   for n = 1 to Len( aItems )
      if Len( aItems[ n ]:aItems ) > 0
         if ( oItem := ScanItem( aItems[ n ]:aItems, hItem ) ) != nil
            return oItem
         endif
      endif
      if aItems[ n ]:hItem == hItem
         return aItems[ n ]
      endif
   next

return nil

EMG

[Antonio Linares]

Enrico,

Yes, you are right, thanks! We accepted some Class modifications and they broke the code. Lets use different names to avoid conflicts:

Code: Select all  Expand view

METHOD GetSelected() CLASS TTreeView

return SearchItem( ::aItems, TVGetSelected( ::hWnd ) )

//----------------------------------------------------------------------------//

METHOD GetItem( hItem ) CLASS TTreeView

return SearchItem( ::aItems, hItem )

//----------------------------------------------------------------------------//

static function SearchItem( aItems, hItem )

...

return nil


[hua]

After applying the instructions here, I tried compiling and running testtre2.prg in \Samples. This is what I got:



Correct me if I'm mistaken but isn't the +/- sign is missing? Shouldn't there be texts to the right of the all 3 folder images?

Thanks.
--
xHB 0.99.61 FWHX2.8 Nov BCC55 Win98SE

[Antonio Linares]

Hua,

See how it looks here:

Though we use gray for the window color. Probably you don't see the text cause is painted in white color. Lets see how to change it.

[Antonio Linares]

Hua,

Make this change in samples\TestTre2.prg:

DEFINE WINDOW oWnd FROM 3, 6 TO 20, 70 ;
TITLE "Welcome to " + FWVERSION COLOR "N/W"

[hua]

thanks Antonio! that did the trick