anchor.diff:    fScrollBarV.OnChange := ScrollChanged;
     fScrollBarV.WheelStep := 10;
   
  -  if aEnlargeParents then
  -  begin
  -    if saHorizontal in aScrollAxisSet then
  -      Enlarge(fScrollBarH);
  -
  -    if saVertical in aScrollAxisSet then
  -      Enlarge(fScrollBarV);
  -  end;
  +//  if aEnlargeParents then
  +//  begin
  +//    if saHorizontal in aScrollAxisSet then
  +//      Enlarge(fScrollBarH);
  +//
  +//    if saVertical in aScrollAxisSet then
  +//      Enlarge(fScrollBarV);
  +//  end;
   
     fClipRect := KMRect(Left, Top, Right, Bottom);
   end;
  
positive.code: 
  function TKMScrollPanel.AddChild(aChild: TKMControl): Integer;
  begin
    Result := inherited AddChild(aChild);
  
    aChild.fOnHeightChange := UpdateScrollV;
    aChild.fOnWidthChange := UpdateScrollH;
    aChild.fOnPositionSet := UpdateScrolls;
    aChild.fOnChangeVisibility := UpdateScrolls;
    aChild.fOnChangeEnableStatus := UpdateScrolls;
  end;
  
  
  
negative.code: 
      procedure UpdateScrolls(Sender: TObject; aValue: Boolean); overload;
      procedure UpdateScrolls(Sender: TObject); overload;
      procedure UpdateScrollV; overload;
      procedure UpdateScrollV(aChildsRect: TKMRect); overload;
      procedure UpdateScrollV(Sender: TObject; aValue: Integer); overload;
      procedure UpdateScrollH; overload;
      procedure UpdateScrollH(aChildsRect: TKMRect); overload;
      procedure UpdateScrollH(Sender: TObject; aValue: Integer); overload;
      procedure ScrollChanged(Sender: TObject);
      function GetChildsRect: TKMRect;
  