anchor.diff:    FOnShowProc.Enqueue(proc);
   end; { TDLUIXVCLFloatingFrame.QueueOnShow }
   
  +procedure TDLUIXVCLFloatingFrame.ReloadTree(vt: TVirtualStringTree;
  +  const coordinates: ICoordinates);
  +begin
  +  vt.BeginUpdate;
  +  try
  +    vt.Clear;
  +    vt.NodeDataSize := SizeOf(IInterface);
  +    vt.RootNodeCount := coordinates.Count;
  +  finally vt.EndUpdate; end;
  +end; { TDLUIXVCLFloatingFrame.ReloadTree }
  +
   function TDLUIXVCLFloatingFrame.ResourceSize: integer;
   begin
     //TODO: Make DPI-dependent
  
positive.code:   if FListMap.TryGetValue(Sender as TComponent, listBoxData) then
      FilterListBox(listBoxData.SearchBox)
    else if FTreeMap.TryGetValue(TComponent(Sender), treeData) then
      DoSearch(treeData, treeData.SearchBox.Text);
  end; { TDLUIXVCLFloatingFrame.HandleSearchBoxTimer }
  
  procedure TDLUIXVCLFloatingFrame.HandleVTFocusChanged(Sender: TBaseVirtualTree;
  
negative.code: 
    TDLUIXVCLTreeStorage = class(TInterfacedObject, IDLUIXVCLTreeStorage)
    strict private
      FAbortSearch: boolean;
      FCoordinates: ICoordinates;
      FInSearch   : boolean;
      FSearchBox  : TSearchBox;
      FTimer      : TTimer;
      FVirtualTree: TVirtualStringTree;
    strict protected
      function  GetAbortSearch: boolean;
      function  GetCoordinates: ICoordinates;
      function  GetInSearch: boolean;
      function  GetSearchBox: TSearchBox;
      function  GetSearchTimer: TTimer;
      function  GetVirtualTree: TVirtualStringTree;
      procedure SetAbortSearch(const value: boolean);
      procedure SetCoordinates(const value: ICoordinates);
      procedure SetInSearch(const value: boolean);
    public
      constructor Create(AVirtualTree: TVirtualStringTree; ASearchBox: TSearchBox; ATimer: TTimer);
      property Coordinates: ICoordinates read GetCoordinates write SetCoordinates;
      property AbortSearch: boolean read GetAbortSearch write SetAbortSearch;
      property InSearch: boolean read GetInSearch write SetInSearch;
      property SearchBox: TSearchBox read GetSearchBox;
      property SearchTimer: TTimer read GetSearchTimer;
      property VirtualTree: TVirtualStringTree read GetVirtualTree;
  