anchor.diff:    Tree.Parent:= Self;
     Tree.Align:= alClient;
     Tree.Container:= Self;
  +  Tree.OnDeletion:= @TreeOnDeletion;
   
     FScrollbarVert:= TATScrollbar.Create(nil);
     FScrollbarVert.Parent:= Self;
  
positive.code:     Tree.ScrollBars:= ssAutoBoth;
  end;
  
  procedure TAppTreeContainer.UpdateScrollbars;
  begin
    if Tree=nil then exit;
  
negative.code:     procedure ScrollHorzChange(Sender: TObject);
      procedure ScrollVertChange(Sender: TObject);
      procedure SetThemed(AValue: boolean);
      procedure TreeOnDeletion(Sender: TObject; Node: TTreeNode);
      procedure UpdateScrollbars;
    public
      Tree: TAppTreeView;
  