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: begin
    FreeAndNil(Tree);
    FreeAndNil(FScrollVert);
    inherited;
  end;
  
  procedure TAppTreeContainer.DoScaleScrollbar;
  begin
    FScrollVert.AutoAdjustLayout(lapDefault, 96, Screen.PixelsPerInch, 100, 100);
  end;
  
  procedure TAppTreeContainer.ScrollVertChange(Sender: TObject);
  
negative.code:   FScrollVert.IndentBorder:= UiOps_ScrollbarBorderSize;
    FScrollVert.OnChange:= @ScrollVertChange;
  
    FScrollHorz:= TATScroll.Create(Self);
    FScrollHorz.Parent:= Self;
    FScrollHorz.Kind:= sbHorizontal;
    FScrollHorz.Align:= alBottom;
    FScrollHorz.Height:= UiOps_ScrollbarWidth;
    FScrollHorz.IndentBorder:= UiOps_ScrollbarBorderSize;
    FScrollHorz.OnChange:= @ScrollHorzChange;
  
    SetThemed(false);
    UpdateScrolls;
  end;
  