TVirtualStringTree y vertical Scroll no funciona correctamente

Question

He aprendido a usar TVirtualStringTree, y me pareció excelente. Tengo una lista personalizada no visual llamada PackedList que se completa con otra cadena. Y quiero mostrar todo el contenido de la lista en TVirtualStringTree en tiempo real. Así que puse un temporizador en la forma principal para actualizar HexLog (que es TVirtualStringTree) RootNodeCount cada 500 ms.

Todos mis datos aparecen en el VirtualStringTree, y no tengo ningún problema de velocidad, muy agradable. Pero hay un problema con la barra de desplazamiento vertical. Cuando presiono Ctrl + Fin en el control para saltar al final de la lista, va a algún lugar en el medio. Del mismo modo, cuando arrastro la barra de desplazamiento hasta el final, no llega al final. Pero HexLog conoce el DataCount. ¿Por qué no salta hasta el final? Si presiono un par de veces para presionar Ctrl + END, llega al final.

Rutina de temporizador interno, quiero decir que HexLog salta al final de la lista por código. ¿Cómo puedo hacer esto y cómo manejar la barra de desplazamiento vertical correctamente?

procedure TMainForm.StatusUpdateTimerTimer(Sender: TObject); 
begin 
    if (FirpList.ComOperationCount > 0) and (PacketList.Items.Count <> FirpList.ComOperationCount) then 
    begin 
     HexLog.RootNodeCount := PacketList.Items.Count; 
    end; 
end; 

procedure TMainForm.HexLogMeasureItem(Sender: TBaseVirtualTree; 
    TargetCanvas: TCanvas; Node: PVirtualNode; var NodeHeight: Integer); 
begin 
    if Sender.MultiLine[Node] then 
    begin 
    TargetCanvas.Font := Sender.Font; 
    NodeHeight := HexLog.ComputeNodeHeight(TargetCanvas, Node, 1, FirpList.ComOperations[Node^.Parent^.Index].DataAsHexString(FAppSettings.HexLogColumnCharWidth) + #13#10); 
    end; 
end; 

sugerido respuesta por Tlama no funciona correctamente, consulte la imagen para obtener una explicación:

Ver que enlazan para una explicación detallada de imagen: http://i43.tinypic.com/1445thi.png

Answer 1

para saltar a las final del árbol, llame al ScrollIntoView(GetLast).

Para desplazarse a un nodo particular, el control debe sumar las alturas de todos los nodos anteriores para que pueda determinar la compensación adecuada.

Sus nodos tienen diferentes alturas. Si no está inicializando las alturas reales de los nodos en algún lugar, entonces el control usa la propiedad DefaultNodeHeight para cualquier nodo no inicializado. Parece que la altura es más corta que cualquier altura de nodo real en su árbol, por lo que el control termina calculando un desplazamiento que es más pequeño de lo esperado, y se desplaza allí en lugar de donde lo desea.

Asegúrese de que está manejando el evento OnMeasureItem, y que tiene la opción toVariableNodeHeight establecida en Options.MiscOptions. Si no lo hace, entonces el control solo usará la altura actualmente asignada para cada nodo, y usará la altura predeterminada para cualquier nodo no inicializado.

Puede obtener el comportamiento que informa aquí si asigna manualmente NodeHeight en lugar de toVariableNodeHeight y maneja OnMeasureItem.