anchor.diff:      Result := Filename
     else
     begin
  -    Result := HTMLServerToDos(Trim(Filename), FServerRoot);
  -
  +    Result := HTMLServerToDos(Filename, FServerRoot);
       if Pos('\', Result) = 1 then
         Result := ExpandFilename(Result)
       else if (Pos(':', Result) <> 2) and (Pos('\\', Result) <> 1) then
  
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:     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 OnParseBegin: TParseEvent read FOnParseBegin write FOnParseBegin;
      property OnParseEnd: TNotifyEvent read FOnParseEnd write FOnParseEnd;
      property OnPrinted: THTMLViewPrinted read FOnPrinted write FOnPrinted;
      property OnPrinting: THTMLViewPrinting read FOnPrinting write FOnPrinting;
      property OnObjectTag: TObjectTagEvent read FOnObjectTag write FOnObjectTag;
      property OnFilenameExpanded: TFilenameExpanded read FOnFilenameExpanded write FOnFilenameExpanded;
      property Cursor: TCursor read GetCursor write SetCursor default crIBeam;
    end;
  
  