anchor.diff:  begin
     inherited Create(aParent, aLeft, aTop, aWidth - 20*Byte(saVertical in aScrollAxisSet), aHeight - 20*Byte(saHorizontal in aScrollAxisSet));
   
  +  fPadding := KMRect(0, 0, 0, 0);
  +
     fScrollAxisSet := aScrollAxisSet;
   
     fScrollBarH := TKMScrollBar.Create(aParent, aLeft, aTop + aHeight - 20, aWidth, 20, saHorizontal, aStyle, aScrollStyle);
  
positive.code:     fScrollBarH: TKMScrollBar;
      fScrollBarV: TKMScrollBar;
      fScrollAxisSet: TKMScrollAxisSet;
      procedure UpdateScrolls(Sender: TObject; aValue: Boolean); overload;
      procedure UpdateScrolls(Sender: TObject); overload;
      procedure UpdateScrollV(Sender: TObject); overload;
  
negative.code:   if Sender = fScrollBarV then
    begin
      OldValue := Top;
      Top := fClipRect.Top - fScrollBarV.Position + fPadding.Top;
      //To compensate changes in SetTop
      Inc(fClipRect.Top, OldValue - Top);
      Inc(fClipRect.Bottom, OldValue - Top);
  