anchor.diff:      procedure WMUrlAction(var Message: TMessage); message WM_UrlAction;
       function GetHistoryIndex: Integer;
       procedure InsertImages;
  +    function GetDocumentCodePage: Integer;
       property HTMLTimer: TTimer read FHTMLTimer;
       property BorderPanel: TPanel read FBorderPanel;
       property PaintPanel: TPaintPanel read FPaintPanel;
  
positive.code:     property BaseTarget: ThtString read FBaseTarget;
      property CaretPos: Integer read FCaretPos write SetCaretPos;
      property CurrentFile: ThtString read FCurrentFile;
      property DocumentSource: ThtString read GetDocumentSource;
      property DocumentTitle: ThtString read FTitle;
      property FormControlList: TFormControlObjList read GetFormControlList;
  
negative.code:   Result := inherited Cursor;
  end;
  
  //-- BG ---------------------------------------------------------- 26.04.2014 --
  function THtmlViewer.GetDocumentCodePage: Integer;
  begin
    if FDocument <> nil then
      Result := FDocument.CodePage
    else
      Result := CodePage;
  end;
  
  //-- BG ---------------------------------------------------------- 27.12.2010 --
  function THtmlViewer.GetDocumentSource: ThtString;
  var
  