Como puedo hacer un GoTop a un Tree ??

[gabo]

Pues eso.. camaradas, como le puedo hacer un GoTop o poner en el primer item a un tree al momento de pintarlo. cada vez que refresco el tree siempre me muestra los ultimos items.
Este es el codigo que actualiza el tree segun los items que tenga

Code: Select all

 IF ValType( aPerfilUsr ) == "U"
    MsgStop( "NO HAY PERFILES DEFINIDOS...", "Aviso del sistema.." )
    RETURN NIL
 ENDIF

 oBmpTree:= TImageList():New(16,16)

 oBmpTree:AddMasked( TBitmap():Define( "BMP_TREE_CLOSE",,     oChild ), nRGB( 255, 0, 255 ) )
 oBmpTree:AddMasked( TBitmap():Define( "BMP_TREE_OPEN",,      oChild ), nRGB( 255, 0, 255 ) )
 oBmpTree:AddMasked( TBitmap():DEFINE( "BMP_TREE_ENABLE",,   oChild ), nRGB( 255, 0, 255 ) )
 oBmpTree:AddMasked( TBitmap():DEFINE( "BMP_TREE_DISABLE",,  oChild ), nRGB( 255, 0, 255 ) )
 oBmpTree:AddMasked( TBitmap():DEFINE( "BMP_TREE_CLOSE_SON",, oChild ), nRGB( 255, 0, 255 ) )
 oBmpTree:AddMasked( TBitmap():DEFINE( "BMP_TREE_OPEN_SON",,  oChild ), nRGB( 255, 0, 255 ) )
 oBmpTree:AddMasked( TBitmap():DEFINE( "BMP_TREE_CLOSE_FATHER",, ::oChild ), nRGB( 255, 0, 255 ) )
 oBmpTree:AddMasked( TBitmap():DEFINE( "BMP_TREE_OPEN_FHATER",, oChild ), nRGB( 255, 0, 255 ) )

 IF oTreeRights != NIL
    oTreeRights:DeleteAll()
 ENDIF
 oTreeRights:SetImageList( oBmpTree )
 FOR EACH aRamas IN aPerfilUsr
     IF aRamas[1] == cNivel .AND. aRamas[2]!= "00" .AND. aRamas[3]=="00"
        oFile:= oTreeRights:Add( aRamas[4], 6 )
        oFile:cargo:= HB_EnumIndex()
     ELSE
        IF aRamas[1] == cNivel .AND. aRamas[2]!= "00" .AND. aRamas[3]!="00"
           IF aRamas[5] == "N"
              oChild:= oFile:ADD( aRamas[4], 3 )
           ELSEIF aRamas[5] == "S"
              oChild:= oFile:ADD( aRamas[4], 2 )
           ENDIF
           oChild:cargo:= HB_EnumIndex()
        ENDIF
     ENDIF
 END

 IF oChild == NIL
    oTreeRights:SetColor( CLR_BLACK, GetSysColor( COLOR_BTNFACE ) )
 ELSE
    oTreeRights:SetColor( CLR_BLACK, CLR_WHITE )
 ENDIF
 oTreeRights:Expand()

Saludos
GABO

[Antonio Linares]

Gabo,

Prueba con:

oTreeView:Select( oTreeView:aItems[ 1 ] )

[gabo]

Antonio,
Funciono perfecto, gracias!
Saludos
GABO