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