anchor.diff:      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
  
positive.code:   vt.OnInitNode := InitSearchNode;
    vt.OnInitChildren := InitSearchNodeChildren;
    vt.OnGetText := GetSearchNodeText;
  
    searchTimer := TTimer.Create(FForm);
    searchTimer.Enabled := false;
  
negative.code:     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;
  