anchor.diff:      VHeight := Height - WFactor2;
     end;
     HWidth := Max(ScrollWidth, Wid - WFactor2);
  +
     HScrollBar.Visible := HBar;
  -  HScrollBar.LargeChange := Max(1, Wid - 20);
  -  HScrollBar.SetBounds(WFactor, Height - sbWidth - WFactor, Wid - WFactor, sbWidth);
  -  VScrollBar.SetBounds(Width - sbWidth - WFactor, WFactor, sbWidth, VHeight);
  -  VScrollBar.LargeChange := PaintPanel.Height - VScrollBar.SmallChange;
  +  if HScrollBar.Visible then
  +  begin
  +    HScrollBar.LargeChange := Max(1, Wid - 20);
  +    HScrollBar.SetBounds(WFactor, Height - sbWidth - WFactor, Wid - WFactor, sbWidth);
  +    SetPageSizeAndMax(HScrollBar, Wid, Max(Wid, HWidth));
  +  end;
  +
     if htShowVScroll in FOptions then
     begin
       VScrollBar.Visible := (FScrollBars in [ssBoth, ssVertical]);
  
positive.code:     procedure HTMLTimerTimer(Sender: TObject);
      procedure InitLoad;
      procedure Layout;
      procedure Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
      procedure ScrollTo(Y: Integer);
      procedure SetActiveColor(Value: TColor);
      procedure SetBase(Value: string);
      procedure SetBorderStyle(Value: THTMLBorderStyle);
  
negative.code:   PaintPanel.OnMouseMove := HTMLMouseMove;
    PaintPanel.OnMouseUp := HTMLMouseUp;
  
    VScrollBar := TScrollBar.Create(Self);
    VScrollBar.Kind := sbVertical;
    VScrollBar.SmallChange := 16;
    VScrollBar.OnScroll := ScrollVert;
    VScrollBar.Visible := False;
    VScrollBar.TabStop := False;
    sbWidth := VScrollBar.Width;
  