Xailer & OZ Software

Dejame ver como explicar esto que veo.
Resulta que cuando creo un TreeView desde la aplicacion y la cantidad de
Items es mayor que el tamaño(alto del treview), se distorciona la image,
aaaaahhh, y en vez de sacar el scroll vertical,hace lo anteriormente dicho.
Aqui va lo que hago:
METHOD TreeView1Create( oSender ) CLASS TOrdenar
LOCAL oFiles, aFiles, aTemp
local aImagenes :={"AbrirD"}
local n := 1
WITH OBJECT oSender
::oDir := Application:cDirectory
aTemp := Directory( ::oDir+"DbfDatos*.DBF" )
aFiles := Array( Len( aTemp ) )
Aeval( aTemp, {|v,e| aFiles[ e ] := ::oDir + "" + v[ 1 ] } )
FOR n := 1 TO Len(aFiles)
:InsertImage( aImagenes[1] ) //esto en este caso
:InsertItem( aFiles[n], 1 )
:lCheckBoxes := .T.
NEXT
:ExpandAll()
/*
:OnSelChanged := {|n|n := ::oPaginas:nIndex :=
::oTreeView1:GetSelectedItem():lParam, iif(n == 2,;
AbreTabla(::oDSGrupos,::oParent:oCdxDs),),;
::oDBEdiDGrp:oDataSet := ::oDSGrupos,;
::oDBEdIDGrp:oDataField := "IDGRUPO",;
::oDBEdIdGrp:OnChange := {||::BrwGrupoChange()}}
if(::oPaginas:nIndex == 1,::MuestraCtrl(),)
*/
END
RETURN NILL

Carlos,
> Resulta que cuando creo un TreeView desde la aplicacion y la cantidad de
> Items es mayor que el tamaño(alto del treview), se distorciona la image,
> aaaaahhh, y en vez de sacar el scroll vertical,hace lo anteriormente
> dicho.
No consigo reproducir lo que dices. Es más, el propio IDE tiene varios
treeviews (el gestor de proyectos, el árbol de controles del inspector de
objectos, etc.) que están funcionando perfectamente. Por favor, intenta
crear un ejemplo autocontenido, es decir, un proyecto completo y lo más
sencillo posible donde se muestre el problema.
Por cierto, si vas a añadir muchos items de golpe estando el control ya
visible, te aconsejo que pongas :lRedraw := .F. antes de empezar, y :lRedraw
:= .T. después, para evitar que se vea como se van añadiendo los items.
--
Un saludo,
José F. Giménez