anchor.diff:  begin
     FreeAndNil(Tree);
     FreeAndNil(FScrollVert);
  +  FreeAndNil(FScrollHorz);
     inherited;
   end;
   
   procedure TAppTreeContainer.DoScaleScrollbar;
   begin
     FScrollVert.AutoAdjustLayout(lapDefault, 96, Screen.PixelsPerInch, 100, 100);
  +  FScrollHorz.AutoAdjustLayout(lapDefault, 96, Screen.PixelsPerInch, 100, 100);
   end;
   
   procedure TAppTreeContainer.ScrollVertChange(Sender: TObject);
  
positive.code:   Tree.ScrolledTop:= FScrollVert.Position;
  end;
  
  procedure TAppTreeContainer.SetThemed(AValue: boolean);
  begin
    FThemed:= AValue;
    FScrollVert.Visible:= FThemed;
    if FThemed then
      Tree.ScrollBars:= ssNone
    else
  
negative.code: begin
    if not Assigned(Tree) then exit;
    if not Assigned(FScrollVert) then exit;
    if not Assigned(FScrollHorz) then exit;
  
    FScrollVert.Min:= 0;
    FScrollVert.PageSize:= ClientHeight;
    FScrollVert.Max:= Tree.GetMaxScrollTop+FScrollVert.PageSize;
    FScrollVert.Position:= Tree.ScrolledTop;
  
    FScrollHorz.Min:= 0;
    FScrollHorz.PageSize:= ClientWidth;
    FScrollHorz.Max:= Tree.GetMaxScrollLeft+FScrollHorz.PageSize;
    FScrollHorz.Position:= Tree.ScrolledLeft;
    FScrollHorz.IndentCorner:= FScrollHorz.Height;
  end;
  
  procedure TAppTreeView.DoSelectionChanged;
  