anchor.diff:    end; { TDLUIXVCLListStorage }
   
     IDLUIXVCLTreeStorage = interface ['{990B7DE6-6222-4D62-A646-3727F70788E9}']
  +    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);
     //
  +    property AbortSearch: boolean read GetAbortSearch write SetAbortSearch;
       property Coordinates: ICoordinates read GetCoordinates write SetCoordinates;
  +    property InSearch: boolean read GetInSearch write SetInSearch;
       property SearchBox: TSearchBox read GetSearchBox;
       property SearchTimer: TTimer read GetSearchTimer;
       property VirtualTree: TVirtualStringTree read GetVirtualTree;
  
positive.code:   Result := FVirtualTree;
  end; { TDLUIXVCLTreeStorage.GetVirtualTree }
  
  procedure TDLUIXVCLTreeStorage.SetCoordinates(const value: ICoordinates);
  begin
    FCoordinates := value;
  end; { TDLUIXVCLTreeStorage.SetCoordinates }
  
  end.
  
negative.code:     procedure NewColumn;
      function  NumItems(listBox: TListBox): integer;
      procedure PrepareNewColumn;
      procedure ReloadTree(vt: TVirtualStringTree; const coordinates: ICoordinates);
      function  ResourceSize: integer;
      procedure QueueOnShow(proc: TProc);
      procedure SetCaption(const value: string);
  