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:     end;
  
      VScrollBar.Visible := VBar;
      if VBar then
      begin
        VScrollBar.SetBounds(PaintPanel.Left + PaintPanel.Width, PaintPanel.Top, sbWidth, PaintPanel.Height);
        VScrollBar.LargeChange := Max(16, VHeight - VScrollBar.SmallChange);
  
negative.code:     procedure SetOnExpandName(Handler: TExpandNameEvent);
      procedure SetOnFileBrowse(Handler: TFileBrowseEvent);
      procedure SetOnFormSubmit(Handler: TFormSubmitEvent);
      procedure SetOnImageRequested(Handler: TGottenImageEvent);
      procedure SetOnObjectBlur(Handler: ThtObjectEvent);
      procedure SetOnObjectChange(Handler: ThtObjectEvent);
  