anchor.diff:      FScroll: TATScroll;
       FThemed: boolean;
       procedure ScrollChange(Sender: TObject);
  +    procedure SetThemed(AValue: boolean);
       procedure UpdScroll;
     protected
       procedure DoSelectionChanged; override;
  
positive.code:     function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
    public
      constructor Create(AOwner: TComponent); override;
      property Themed: boolean read FThemed write FThemed;
    end;
  
  const
  
negative.code:   FScroll.AutoAdjustLayout(lapDefault, 100, UiOps_ScreenScale, 1, 1);
    FScroll.OnChange:= @ScrollChange;
  
    SetThemed(false);
    UpdScroll;
  end;
  
  procedure TTreeViewMy.ScrollChange(Sender: TObject);
  begin
    ScrolledTop:= FScroll.Position;
  end;
  
  procedure TTreeViewMy.SetThemed(AValue: boolean);
  begin
    FThemed:= AValue;
    FScroll.Visible:= FThemed;
    if FThemed then
      ScrollBars:= ssNone
    else
      ScrollBars:= ssAutoBoth;
  end;
  
  procedure TTreeViewMy.UpdScroll;
  