anchor.diff:  
   uses
     Classes, SysUtils, Controls, Graphics, StdCtrls, ComCtrls, Forms,
  +  LMessages,
     ATScrollBar, ATListbox;
   
   type
  
positive.code:   protected
      procedure DoSelectionChanged; override;
      procedure Resize; override;
      procedure Changed; override;
      procedure Collapse(Node: TTreeNode); override;
      procedure Expand(Node: TTreeNode); override;
    public
      constructor Create(AOwner: TComponent); override;
    end;
  
negative.code:   UpdScroll;
  end;
  
  procedure TTreeViewMy.CMChanged(var Message: TLMessage);
  begin
    inherited;
    UpdScroll;
  