anchor.diff:    PaintPanel.OnMouseMove := HTMLMouseMove;
     PaintPanel.OnMouseUp := HTMLMouseUp;
   
  -  VScrollBar := T32ScrollBar.Create(Self);
  +  VScrollBar := TScrollBar.Create(Self);
     VScrollBar.Kind := sbVertical;
     VScrollBar.SmallChange := 16;
  +  VScrollBar.OnScroll := ScrollVert;
     VScrollBar.Visible := False;
     VScrollBar.TabStop := False;
     sbWidth := VScrollBar.Width;
  
positive.code:     Position := Math.Min(Position, Max - PaintPanel.Width);
  end;
  
  procedure THtmlViewer.Scroll(Sender: TObject; ScrollCode: TScrollCode;
    var ScrollPos: Integer);
  {only the horizontal scrollbar comes here}
  begin
    ScrollPos := Min(ScrollPos, HScrollBar.Max - PaintPanel.Width);
  
negative.code:   VScrollBar.Position := Y;
    FSectionList.SetYOffset(Y);
    Invalidate;
  end;
  
  //-- BG ---------------------------------------------------------- 19.02.2011 --
  // thanks to Alex at grundis.de
  procedure THtmlViewer.ScrollVert(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
  var
    TheChange: Integer;
  begin
    FSectionList.SetYOffset(ScrollPos);
    if vsBGFixed in FViewerState then
      PaintPanel.Invalidate
    else
    begin {scroll background}
      TheChange := VScrollBar.Position - ScrollPos;
      ScrollWindow(PaintPanel.Handle, 0, TheChange, nil, nil);
      PaintPanel.Update;
    end;
  end;
  
  procedure THtmlViewer.Layout;
  