anchor.diff:      property ScrollV: TKMScrollBar read fScrollBarV;
   
       function AddChild(aChild: TKMControl): Integer; override;
  +    property ClipRect: TKMRect read fClipRect;
  +    property Padding: TKMRect read fPadding write fPadding;
   
       procedure MouseWheel(Sender: TObject; WheelDelta: Integer; var aHandled: Boolean); override;
   
  
positive.code:       Enlarge(fScrollBarV);
    end;
  
    fClipRect := KMRect(Left, Top, Left + Width, Top + Height);
  end;
  
  
  
negative.code: 
    if (saHorizontal in fScrollAxisSet) then
    begin
      if KMRectWidth(ChildsRect) + fPadding.Left + fPadding.Right > KMRectWidth(fClipRect) then
      begin
        fScrollBarH.MaxValue := KMRectWidth(ChildsRect) - KMRectWidth(fClipRect) + fPadding.Left + fPadding.Right;
        NewPos := fClipRect.Left - Left;
  
        if NewPos > fScrollBarH.MaxValue then
  