anchor.diff:      procedure HandleSearchBoxTimer(Sender: TObject);
       procedure HandleVTFocusChanged(Sender: TBaseVirtualTree; node: PVirtualNode;
         column: TColumnIndex);
  +    procedure HandleVTDblClick(Sender: TObject);
       procedure InitSearchNode(Sender: TBaseVirtualTree; parentNode, node: PVirtualNode;
         var initialStates: TVirtualNodeInitStates);
       procedure InitSearchNodeChildren(Sender: TBaseVirtualTree;
  
positive.code:   vt.OnInitNode := InitSearchNode;
    vt.OnInitChildren := InitSearchNodeChildren;
    vt.OnGetText := GetSearchNodeText;
  
    searchTimer := TTimer.Create(FForm);
    searchTimer.Enabled := false;
  
negative.code:     StartSearch(treeData.SearchBox);
  end; { TDLUIXVCLFloatingFrame.HandleSearchBoxTimer }
  
  procedure TDLUIXVCLFloatingFrame.HandleVTDblClick(Sender: TObject);
  var
    navigationAction: IDLUIXNavigationAction;
    searchAction    : IDLUIXSearchAction;
    treeData        : TDLUIXVCLTreeStorage;
  begin
    treeData := TDLUIXVCLTreeStorage((Sender as TBaseVirtualTree).Tag);
    searchAction := (FActionMap[treeData.SearchBox] as IDLUIXSearchAction);
  
    if not (assigned(searchAction.DefaultAction)
            and Supports(searchAction.DefaultAction, IDLUIXNavigationAction, navigationAction))
    then
      navigationAction := nil;
  
    if assigned(navigationAction) then
      OnAction(Self, navigationAction);
  end; { TDLUIXVCLFloatingFrame.HandleVTDblClick }
  
  procedure TDLUIXVCLFloatingFrame.HandleVTFocusChanged(Sender: TBaseVirtualTree;
    node: PVirtualNode; column: TColumnIndex);
  var
  