topic-14818

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

control tree
Posted: Thu Mar 05, 2009 01:19 PM

Compañeros,
Estoy usando este control y quiero hacer una búsqueda. uso un array donde busco y de esta manera hallo el índice para posicionarme en el control., pero este paso no me doy cuenta como hacerlo. en ttreeitem hay un método Skip( @n ) pero no sé implementarlo. Desde ya muchas gracias

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: control tree
Posted: Fri Mar 06, 2009 11:32 AM

Nadie sabe ?? me urge. Gracias de todas maneras

RenOmaS

Posts: 205

Joined: Fri Oct 07, 2005 05:07 PM

Re: control tree
Posted: Fri Mar 06, 2009 12:48 PM

Experimenta implementar este method en la clase TTreVie.prg

Code (fw): Select all Collapse

METHOD Find( cPrompt ) CLASS TTreeView
  Local n, m := 0
  Local lOk := .F.
  For n := 1 To Len( ::aItems )
      If ::aItems[ n ]:cPrompt == cPrompt
         m := ::aItems[ n ]
         lOk := .T.
         Exit
      Else
         m := ::aItems[ n ]:Find( cPrompt )
         If ValType( m ) != 'N'
            lOk := .T.
            Exit
         EndIf
      EndIf
  EndFor

  Return If( lOk, m, Self )

Y en TTvItem.prg

Code (fw): Select all Collapse

METHOD Find( cPrompt ) CLASS TTVItem
  Local n := AScan( ::aItems, { |o| o:cPrompt == cPrompt } )
  Return If( n > 0, ::aItems[ n ], n )

ten presente que solo encuentra la primera concidencia.
falta desarrollar mas para encontrar las demas, si es que tuviera.

Saludos/regards

RenOmaS

skype: americo.balboa

FiveTech Support Forums

Continue the discussion