anchor.diff:    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;
  
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: ThtString);
      procedure SetBorderStyle(Value: THTMLBorderStyle);
  
negative.code:   FBaseEx := '';
    FBaseTarget := '';
    FTitle := '';
    VScrollBar.Visible := False;
    HScrollBar.Visible := False;
    CaretPos := 0;
    Sel1 := -1;
  