Como puedo hacer un GoTop a un Tree ??
Posted: Wed Jun 18, 2008 11:21 pm
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
Saludos
GABO
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()
GABO