anchor.diff:    if Value = OldThickIBeamCursor then {no longer used}
       Value := crIBeam;
   {$ifdef LCL}
  -  inherited setCursor(Value);
  +  inherited SetCursor(Value);
   {$else}
     inherited Cursor := Value;
   {$endif}
  
positive.code: 
    procedure CopyToClipboardAsHtml(HTML: ThtString; StSrc, EnSrc: Integer);
  
      procedure CopyToClipBoard(const 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}
  
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
  