anchor.diff:      FLinkText: WideString;
       FLinkStart: TPoint;
       FWidthRatio: double;
  -//BG, 01.12.2006: beg of modification
       FPrintedSize: TPoint;
       FOnPrinted: THTMLViewPrinted;
       FOnPrinting: THTMLViewPrinting;
  -//BG, 01.12.2006: end of modification
  -
       FOnObjectTag: TObjectTagEvent;
  +    FOnFilenameExpanded: TFilenameExpanded; //BG, 19.09.2010: Issue 7: Slow UNC Lookups for Images
   
       function CreateHeaderFooter: ThtmlViewer;
       procedure WMSize(var Message: TWMSize); message WM_SIZE;
  
positive.code:     X, Y: Integer) of object;
    TMetaRefreshType = procedure(Sender: TObject; Delay: integer; const URL: string) of object;
    TParseEvent = procedure(Sender: TObject; var Source: string) of object;
  
    THtmlViewerOption = (
      htOverLinksActive, htNoLinkUnderline, htPrintTableBackground,
  
negative.code:       else
          Result := ExpandFilename(ExtractFilePath(FCurrentFile) + Result);
    end;
  
    //BG, 19.09.2010: Issue 7: Slow UNC Lookups for Images
    //  An event allows to modify the resulting filename:
    if assigned(FOnFilenameExpanded) then
      FOnFilenameExpanded(self, Result);
  end;
  
  {----------------ThtmlViewer.BumpHistory}
  