anchor.diff:    Inc(fClipRect.Bottom, Top - OldValue);
   
     UpdateScrolls(nil);
  +end;
  +
  +
  +procedure TKMScrollPanel.SetVisible(aValue: Boolean);
  +begin
  +  inherited;
  +
  +  // Sync ScrollBars visibility with ScrollPanel visibility
  +  fScrollBarH.Visible := aValue;
  +  fScrollBarV.Visible := aValue;
   end;
   
   
  
positive.code:   fChildsPanel.AnchorsStretch;
    fChildsPanel.fIsHitTestUseDrawRect := True; // We want DrawRect to be used on the ScrollPanel
  
    fScrollBarH := TKMScrollBar.Create(aParent, aLeft, aTop + aHeight - 20, aWidth, 20, saHorizontal, aStyle, aScrollStyle);
    fScrollBarH.Hide;
    fScrollBarH.OnChange := ScrollChanged;
  
negative.code:     function AllowScrollV: Boolean;
      function AllowScrollH: Boolean;
    protected
      procedure SetVisible(aValue: Boolean); override;
  
      procedure SetLeft(aValue: Integer); override;
      procedure SetTop(aValue: Integer); override;
      procedure SetHeight(aValue: Integer); override;
  