anchor.diff:    aChild.fOnPositionSet := UpdateScrolls;
     aChild.fOnChangeVisibility := UpdateScrolls;
     aChild.fOnChangeEnableStatus := UpdateScrolls;
  +end;
  +
  +
  +//Update View is usefull when use Padding Left or Top
  +//To show panel properly initially. Beeter to invoke from Show Element
  +procedure TKMScrollPanel.UpdateVisibility;
  +begin
  +  if Visible
  +    and ((fPadding.Left > 0) or (fPadding.Top > 0)) then //Update visibility only when left/top padding > 0
  +  begin
  +    if saHorizontal in fScrollAxisSet then
  +    begin
  +      fScrollBarH.Position := fPadding.Left;
  +      ScrollChanged(fScrollBarH);
  +    end;
  +
  +    if saVertical in fScrollAxisSet then
  +    begin
  +      fScrollBarV.Position := fPadding.Top;
  +      ScrollChanged(fScrollBarV);
  +    end;
  +  end;
   end;
   
   
  
positive.code:   if Sender = fScrollBarH then
    begin
      OldValue := Left;
      Left := fClipRect.Left - fScrollBarH.Position;
      //To compensate changes in SetLeft
      Inc(fClipRect.Left, OldValue - Left);
      Inc(fClipRect.Right, OldValue - Left);
  
negative.code:     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;
  
  