anchor.diff:      property OnPanelPrint: TPanelPrintEvent read FOnPanelPrint write SetOnPanelPrint;
       property OnDragDrop: TDragDropEvent read GetDragDrop write SetDragDrop;
       property OnDragOver: TDragOverEvent read GetDragOver write SetDragOver;
  -    property OnhtStreamRequest: TGetStreamEvent read FOnhtStreamRequest
  -      write FOnhtStreamRequest;
  +    property OnhtStreamRequest: TGetStreamEvent read FOnhtStreamRequest write FOnhtStreamRequest;
       property OnParseBegin: TParseEvent read FOnParseBegin write FOnParseBegin;
       property OnParseEnd: TNotifyEvent read FOnParseEnd write FOnParseEnd;
  -//BG, 01.12.2006: beg of modification
       property OnPrinted: THTMLViewPrinted read FOnPrinted write FOnPrinted;
       property OnPrinting: THTMLViewPrinting read FOnPrinting write FOnPrinting;
  -//BG, 01.12.2006: end of modification
       property OnObjectTag: TObjectTagEvent read FOnObjectTag write FOnObjectTag;
  +    property OnFilenameExpanded: TFilenameExpanded read FOnFilenameExpanded write FOnFilenameExpanded;
       property Cursor: TCursor read GetCursor write SetCursor default crIBeam;
     end;
   
  
positive.code:     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;
  
      function CreateHeaderFooter: ThtmlViewer;
      procedure WMSize(var Message: TWMSize); message WM_SIZE;
  
negative.code:     Result := Filename
    else
    begin
      Result := HTMLServerToDos(Filename, FServerRoot);
      if Pos('\', Result) = 1 then
        Result := ExpandFilename(Result)
      else if (Pos(':', Result) <> 2) and (Pos('\\', Result) <> 1) then
  