anchor.diff:  procedure TAppTreeView.Collapse(Node: TTreeNode);
   begin
     inherited;
  -  (Owner as TAppTreeContainer).UpdateScrollbars;
  +  UpdateBars;
   end;
   
   procedure TAppTreeView.Expand(Node: TTreeNode);
   begin
     inherited;
  -  (Owner as TAppTreeContainer).UpdateScrollbars;
  +  UpdateBars;
   end;
   
   
  
positive.code: begin
    inherited;
  
    Tree:= TAppTreeView.Create(Self);
    Tree.Parent:= Self;
    Tree.Align:= alClient;
  
    FScrollbarVert:= TATScrollbar.Create(Self);
    FScrollbarVert.Parent:= Self;
    FScrollbarVert.Kind:= sbVertical;
    FScrollbarVert.Align:= alRight;
    FScrollbarVert.Width:= UiOps.ScrollbarWidth;
    FScrollbarVert.OnChange:= @ScrollVertChange;
  
    FScrollbarHorz:= TATScrollbar.Create(Self);
    FScrollbarHorz.Parent:= Self;
    FScrollbarHorz.Kind:= sbHorizontal;
    FScrollbarHorz.Align:= alBottom;
  
negative.code: 
  type
    { TAppTreeView }
    TAppTreeContainer = class;
  
    TAppTreeView = class(TTreeView)
    private
      procedure UpdateBars; inline;
    protected
      procedure DoSelectionChanged; override;
      procedure Resize; override;
  