anchor.diff:  
     procedure CopyToClipboardAsHtml(HTML: ThtString; StSrc, EnSrc: Integer);
   
  -    procedure CopyToClipBoard(const Utf8: AnsiString; Len: Integer);
  +    procedure CopyToClipBoard(Utf8: AnsiString; Len: Integer);
       // Put SOURCE on the clipboard, using FORMAT as the clipboard format
     {$ifdef LCL}
       var
  -//      Len: Integer;
  -//      Utf8: UTF8String;
         CF_HTML: UINT;
       begin
         CF_HTML := RegisterClipboardFormat('HTML Format'); {not sure this is necessary}
  -//      Len := Length(Utf8);
  -//      Utf8 := UTF8Encode(Source);
         Clipboard.AddFormat(CF_HTML, Utf8, Len);
       end;
     {$else}
  
positive.code:   if Value = OldThickIBeamCursor then {no longer used}
      Value := crIBeam;
  {$ifdef LCL}
    inherited setCursor(Value);
  {$else}
    inherited Cursor := Value;
  {$endif}
  
negative.code:         HTop := 0;
          OldTop := 0;
          Curs := 0;
          ScrollWidth := 0;
          VPixels := PrintList.DoLogic(Prn.Canvas, 0, W, H, 0, ScrollWidth, Curs);
          if Mode in [ppNoOutput, ppPreview] then
          begin
  