anchor.diff:    FScroll.Position:= ItemTop;
   end;
   
  -procedure TATListboxMy.Changed;
  +procedure TATListboxMy.CMChanged(var Message: TLMessage);
   begin
     inherited;
     UpdScroll;
  
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;
  