anchor.diff:      function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
     public
       constructor Create(AOwner: TComponent); override;
  -    property Themed: boolean read FThemed write FThemed;
  +    property Themed: boolean read FThemed write SetThemed;
     end;
   
   const
  
positive.code:   FScroll.AutoAdjustLayout(lapDefault, 100, UiOps_ScreenScale, 1, 1);
    FScroll.OnChange:= @ScrollChange;
  
    UpdScroll;
  end;
  
  procedure TTreeViewMy.ScrollChange(Sender: TObject);
  begin
    ScrolledTop:= FScroll.Position;
  end;
  
  procedure TTreeViewMy.UpdScroll;
  
negative.code: constructor TTreeViewMy.Create(AOwner: TComponent);
  begin
    inherited;
  
    FScroll:= TATScroll.Create(Self);
    FScroll.Parent:= Self;
  