anchor.diff:    if ft in [HTMLType, TextType] then
       LoadDocument(TBuffer.Create(AStream, URL), URL, ft)
     else
  -  begin
  -    SaveOnImageRequest := OnImageRequest;
       try
         FImageStream := AStream;
  -      OnImageRequest := DoImage;
         LoadDocument(TBuffer.Create('<img src="' + URL + '">'), URL, HTMLType)
       finally
         FImageStream := nil;
  -      OnImageRequest := SaveOnImageRequest;
  -    end;
  -  end;
  +    end;
   end;
   
   //-- BG ---------------------------------------------------------- 20.02.2011 --
  
positive.code:     PaintPanel.Height := VHeight;
  
      HScrollBar.Visible := HBar;
      if HBar then
      begin
        HScrollBar.SetBounds(PaintPanel.Left, PaintPanel.Top + PaintPanel.Height, PaintPanel.Width, sbWidth);
        HScrollBar.LargeChange := Max(16, HWidth - HScrollBar.SmallChange);
  
negative.code: end;
  
  //-- BG ---------------------------------------------------------- 20.11.2010 --
  function THtmlViewer.GetOnImageRequested: TGottenImageEvent;
  begin
    Result := FSectionList.GottenImage;
  