anchor.diff:  
         if NewPos > fScrollBarV.MaxValue then
           fTop := Top + NewPos - fScrollBarV.MaxValue; //Slightly move panel to the top, when resize near maxvalue position
  -      fScrollBarV.DoSetVisible;
  +      ShowScroll := True;
       end else begin
         fScrollBarV.Position := 0;
         if Top <> fClipRect.Top then
  
positive.code:   end;
  
    fScrollBarH.Width := Width;
  end;
  
  
  
negative.code: var
    ChildsRect: TKMRect;
    NewPos: Integer;
    ShowScroll: Boolean;
  begin
    ChildsRect := GetChildsRect;
    ShowScroll := False;
  
    if (saHorizontal in fScrollAxisSet) then
    begin
  