anchor.diff:      property BaseTarget: ThtString read FBaseTarget;
       property CaretPos: Integer read FCaretPos write SetCaretPos;
       property CurrentFile: ThtString read FCurrentFile;
  +    property DocumentCodePage: Integer read GetDocumentCodePage;
       property DocumentSource: ThtString read GetDocumentSource;
       property DocumentTitle: ThtString read FTitle;
       property FormControlList: TFormControlObjList read GetFormControlList;
  
positive.code:     procedure WMUrlAction(var Message: TMessage); message WM_UrlAction;
      function GetHistoryIndex: Integer;
      procedure InsertImages;
      property HTMLTimer: TTimer read FHTMLTimer;
      property BorderPanel: TPanel read FBorderPanel;
      property PaintPanel: TPaintPanel read FPaintPanel;
  
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
  