Come scrollare in modo affidabile TreeView virtuale verso il basso?

Question

Un oggetto TVirtualStringTree con altezza del nodo personalizzata, Come scorrere in modo affidabile TreeView virtuale in basso (ovvero la barra di scorrimento raggiunge il fondo)?

Ho provato a chiamare tree1.FullExpand quindi tree1.ScrollIntoView.(tree1.GetLast), ma non funziona.

Grazie in anticipo.

Answer 1

ScrollIntoView funziona bene per me. Puoi anche provare tree1.FocusedNode := tree1.GetLast;

Stai impostando l'altezza del nodo personalizzato nell'evento OnMeasureItem? Se non funziona, prova ad impostare DefaultNodeHeight dell'albero sul valore più grande e in OnMeasureItem event a cambiarlo. Ho notato che l'albero ricalcola la lunghezza della barra di scorrimento meglio in questo modo.

Answer 2

Questo dovrebbe funzionare anche:

tree1.TopNode := tree1.GetLast 

Answer 3

Ho avuto lo stesso problema a lavorare con TVirtualDrawTree di. Devi assicurarti che le altezze dei nodi siano calcolate prima che l'albero scorra effettivamente.

Questo è quello che faccio:

1.- Aggiungere questo codice all'evento OnInitNode in modo che l'albero sa che l'altezza del nuovo nodo deve essere calcolata:

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

2.- nel OnMeasureItem, se non è possibile calcolare l'altezza (es nodo non ancora inizializzato), assicuratevi di informare l'albero per ripetere la chiamata quando necessario: nel gestore di eventi 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; 

Spero che ti aiuti.

Answer 4

Prova questa:

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