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
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
TreeView Problem
TreeView Problem
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
> 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