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