anchor.diff:  constructor TKMScrollPanel.Create(aParent: TKMPanel; aLeft, aTop, aWidth, aHeight: Integer; aScrollAxisSet: TKMScrollAxisSet;
                                     aStyle: TKMButtonStyle; aScrollStyle: TKMScrollStyle; aEnlargeParents: Boolean = False);
   begin
  -  inherited Create(aParent, aLeft, aTop, aWidth - 20*Byte(saVertical in aScrollAxisSet), aHeight - 20*Byte(saHorizontal in aScrollAxisSet));
  +  inherited Create(aParent, aLeft, aTop, aWidth, aHeight);
   
     fPadding := KMRect(0, 0, 0, 0);
   
     fScrollAxisSet := aScrollAxisSet;
  +
  +  fChildsPanel := TKMPanel.Create(Self, aLeft, aTop, aWidth, aHeight);
  +  fChildsPanel.AnchorsStretch;
   
     fScrollBarH := TKMScrollBar.Create(aParent, aLeft, aTop + aHeight - 20, aWidth, 20, saHorizontal, aStyle, aScrollStyle);
     fScrollBarH.Hide;
  
positive.code:   TKMScrollPanel = class(TKMPanel)
    private
      fClipRect: TKMRect;
      fScrollBarH: TKMScrollBar;
      fScrollBarV: TKMScrollBar;
      fScrollAxisSet: TKMScrollAxisSet;
  
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;
  