VirtualTreeView SCROLLEN

[APP]

Hallo Thomas,
ich benutze 2 VirtualStringTrees (vstLeft, vstRight) und synchronisiere sie beide im onScroll-Event mit einer Prozedur:

Delphi-Quellcode:

{******************************************************************************}
PROCEDURE TfMain.VSTSyncScroll(Sender: TBaseVirtualTree; DeltaX,
  DeltaY: Integer);
{******************************************************************************}
// Synchronisation beider VST beim Scrollen
BEGIN
  IF (Sender = vstLeft) THEN
    vstRight.OffsetY := vstLeft.OffsetY
  ELSE IF (Sender = vstRight) THEN
    vstLeft.OffsetY := vstRight.OffsetY;
END;

Ich habe sehr viele Nodes in den Bäumen und keine Probleme beim Zeichen/Updaten.

[EDIT]
Willkommen in der Delphi-Praxis
[/EDIT]