anchor.diff:          listBox.SelectAndMakeVisible(Min(listBox.ItemIndex + NumItems(listBox), listBox.Items.Count - 1));
         listBox.OnClick(listBox);
         key := 0;
  +    end
  +    else if assigned(treeData) then begin
  +      if key = VK_UP then begin
  +        MoveUp(treeData.VirtualTree);
  +        key := 0;
  +      end
  +      else if key = VK_DOWN then begin
  +        MoveDown(treeData.VirtualTree);
  +        key := 0;
  +      end;
       end;
     end
     else if key = VK_RETURN then begin
  
positive.code:     procedure SetOnAction(const value: TDLUIXFrameAction);
      procedure StartSearch(Sender: TObject);
      procedure UpdateClientSize(const rect: TRect);
    public
      constructor Create(const parentFrame: IDLUIXFrame);
      // IDLUIXVCLFloatingFrame
  
negative.code:       node: PVirtualNode; var childCount: cardinal);
      function  IsHistoryAnalyzer(const analyzer: IDLUIXAnalyzer): boolean;
      function  MakeRes(const resourceName: string): string;
      procedure MoveDown(vt: TVirtualStringTree);
      procedure MoveUp(vt: TVirtualStringTree);
      procedure NewColumn;
      function  NumItems(listBox: TListBox): integer;
      procedure PrepareNewColumn;
  