anchor.diff:          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
  
positive.code:   if Value = OldThickIBeamCursor then {no longer used}
      Value := crIBeam;
  {$ifdef LCL}
    inherited setCursor(Value);
  {$else}
    inherited Cursor := Value;
  {$endif}
  
negative.code: 
    procedure CopyToClipboardAsHtml(HTML: ThtString; StSrc, EnSrc: Integer);
  
      procedure CopyToClipBoard(Utf8: AnsiString; Len: Integer);
      // Put SOURCE on the clipboard, using FORMAT as the clipboard format
    {$ifdef LCL}
      var
        CF_HTML: UINT;
      begin
        CF_HTML := RegisterClipboardFormat('HTML Format'); {not sure this is necessary}
        Clipboard.AddFormat(CF_HTML, Utf8, Len);
      end;
    {$else}
  