anchor.diff:    Tree.ScrolledTop:= FScrollVert.Position;
   end;
   
  +procedure TAppTreeContainer.ScrollHorzChange(Sender: TObject);
  +begin
  +  Tree.ScrolledLeft:= FScrollHorz.Position;
  +end;
  +
   procedure TAppTreeContainer.SetThemed(AValue: boolean);
   begin
     FThemed:= AValue;
     FScrollVert.Visible:= FThemed;
  +  FScrollHorz.Visible:= FThemed;
     if FThemed then
       Tree.ScrollBars:= ssNone
     else
  
positive.code:   FScrollVert.IndentBorder:= UiOps_ScrollbarBorderSize;
    FScrollVert.OnChange:= @ScrollVertChange;
  
    SetThemed(false);
    UpdateScrolls;
  end;
  
negative.code:   TAppTreeContainer = class(TCustomControl)
    private
      FScrollVert: TATScroll;
      FScrollHorz: TATScroll;
      FThemed: boolean;
      procedure ScrollHorzChange(Sender: TObject);
      procedure ScrollVertChange(Sender: TObject);
      procedure SetThemed(AValue: boolean);
      procedure UpdateScrolls;
  