anchor.diff:      procedure ScrollChange(Sender: TObject);
       procedure UpdScroll;
     protected
  -    procedure Changed; override;
       procedure Resize; override;
  +    procedure CMChanged(var Message: TLMessage); message CM_CHANGED;
     public
       constructor Create(AOwner: TComponent); override;
       function ClientWidth: integer;
  
positive.code: 
  uses
    Classes, SysUtils, Controls, Graphics, StdCtrls, ComCtrls, Forms,
    ATScrollBar, ATListbox;
  
  type
  
negative.code:   UpdScroll;
  end;
  
  procedure TTreeViewMy.CMChanged(var Message: TLMessage);
  begin
    inherited;
    UpdScroll;
  