anchor.diff:    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;
  
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:   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
  