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:   fScrollBarH.Top := fClipRect.Top + Height;
  
    UpdateScrolls(nil);
  end;
  
  
  
negative.code: 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);
  