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: 
  type
    { TAppTreeView }
  
    TAppTreeView = class(TTreeView)
    protected
      procedure DoSelectionChanged; override;
      procedure Resize; override;
  
negative.code:   FScrollbarHorz.Update;
  end;
  
  { TAppTreeView }
  
  procedure TAppTreeView.UpdateBars;
  begin
    if Assigned(Container) then
      Container.UpdateScrollbars;
  end;
  
  procedure TAppTreeView.DoSelectionChanged;
  begin
    inherited;
    UpdateBars;
  end;
  
  procedure TAppTreeView.Resize;
  begin
    inherited;
    UpdateBars;
  end;
  
  procedure TAppTreeView.CMChanged(var Message: TLMessage);
  begin
    inherited;
    UpdateBars;
  end;
  
  function TAppTreeView.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
    MousePos: TPoint): Boolean;
  begin
    Result:= inherited;
    UpdateBars;
  end;
  
  procedure TAppTreeView.DoEnter;
  