¿Cómo desplazarse de manera confiable TreeView virtual hasta la parte inferior?

Question

Un objeto TVirtualStringTree con altura de nodo personalizada, Cómo desplazar de manera confiable Vista de árbol virtual hacia la parte inferior (es decir, la barra de desplazamiento llega al final)?

intenté llamar tree1.FullExpand continuación tree1.ScrollIntoView.(tree1.GetLast), pero no funciona.

Gracias de antemano.

Answer 1

ScrollIntoView funciona bien para mí. También puede intentar tree1.FocusedNode := tree1.GetLast;

Es usted la creación altura nodo personalizado en caso OnMeasureItem? Si no funciona, intente establecer DefaultNodeHeight del árbol en el valor más grande y en el evento OnMeasureItem cambiarlo a menor. Noté que el árbol recalcula la longitud de la barra de desplazamiento de esa manera.

Answer 2

Esto también debería funcionar:

tree1.TopNode := tree1.GetLast 

Answer 3

que he tenido el mismo problema trabajar con TVirtualDrawTree de. Debe asegurarse de que las alturas de los nodos se computen antes de que el árbol se desplace.

Esto es lo que hago:

1.- Añadir este código al evento OnInitNode para que el árbol sabe que la altura del nuevo nodo debe ser calculado:

Node.States := node.States + [vsMultiline] - [vsHeightMeasured]; 

2.- en el OnMeasureItem, si no se puede calcular la altura (por ejemplo, nodo no inicializado aún), asegúrese de informar al árbol para repetir la llamada cuando sea necesario: en el controlador de eventos OnMeasureItem:

If (Node = Nil) Or (Node = tree.RootNode) Then Begin 
    Exclude(Node.States, vsHeightMeasured); 
    Exit; 
End; 

NodeData := tree.GetNodeData(Node); 
If (NodeData = Nil) Or (NodeData^.XMLNode = Nil) Then Begin 
    Exclude(Node.States, vsHeightMeasured); 
    Exit; 
End; 
Try 
    // Code to measure node height here. 
Except 
    Exclude(Node.States, vsHeightMeasured); 
End; 

Espero que te ayude.

Answer 4

Prueba esto:

SendMessage(VST.Handle, WM_VSCROLL, SB_BOTTOM, 0); 
PostMessage(VST.Handle, WM_VSCROLL, SB_BOTTOM, 0);