anchor.diff:            NoScroll := CompareText(Name, 'NO') = 0; {auto and yes work the same}
   
         end;
  +
     CreateFrame;
     UpdateFrame;
     SetWidth := FViewer.Width;
  
positive.code:   LPropStack: THtmlPropStack;
    LNoBreak: boolean; {set when in <NoBr>}
  begin
    LCurrentForm := Document.CurrentForm;
    LCurrentStyle := Document.CurrentStyle;
    LNoBreak := Document.NoBreak;
    LPropStack := Document.PropStack;
    Document.PropStack := THtmlPropStack.Create;
    try
      FViewer.Load(FUrl);
    finally
      Document.PropStack.Free;
      Document.PropStack := LPropStack;
      Document.CurrentForm := LCurrentForm;
      Document.CurrentStyle := LCurrentStyle;
      Document.NoBreak := LNoBreak;
    end;
  end;
  
  
negative.code:   HtmlViewer := PaintPanel.ParentViewer;
    FViewer := HtmlViewer.CreateIFrameControl;
    FViewer.Parent := PaintPanel;
    if FSource <> '' then
    begin
      if Assigned(HtmlViewer.OnExpandName) then
        HtmlViewer.OnExpandName(HtmlViewer, FSource, FUrl)
      else
        FUrl := HtmlViewer.HtmlExpandFilename(FSource);
    end;
  end;
  
  //-- BG ---------------------------------------------------------- 12.11.2011 --
  