anchor.diff:    FScrollbarHorz.Update;
   end;
   
  +{ TAppTreeView }
  +
  +procedure TAppTreeView.UpdateBars;
  +begin
  +  if Assigned(Container) then
  +    Container.UpdateScrollbars;
  +end;
  +
   procedure TAppTreeView.DoSelectionChanged;
   begin
     inherited;
  -  (Owner as TAppTreeContainer).UpdateScrollbars;
  +  UpdateBars;
   end;
   
   procedure TAppTreeView.Resize;
   begin
     inherited;
  -  (Owner as TAppTreeContainer).UpdateScrollbars;
  +  UpdateBars;
   end;
   
   procedure TAppTreeView.CMChanged(var Message: TLMessage);
   begin
     inherited;
  -  (Owner as TAppTreeContainer).UpdateScrollbars;
  +  UpdateBars;
   end;
   
   function TAppTreeView.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
     MousePos: TPoint): Boolean;
   begin
     Result:= inherited;
  -  (Owner as TAppTreeContainer).UpdateScrollbars;
  +  UpdateBars;
   end;
   
   procedure TAppTreeView.DoEnter;
  
positive.code: 
  type
    { TAppTreeView }
  
    TAppTreeView = class(TTreeView)
    protected
      procedure DoSelectionChanged; override;
      procedure Resize; override;
  
negative.code: procedure TAppTreeView.Collapse(Node: TTreeNode);
  begin
    inherited;
    UpdateBars;
  end;
  
  procedure TAppTreeView.Expand(Node: TTreeNode);
  begin
    inherited;
    UpdateBars;
  end;
  
  
  