anchor.diff:  end;
   
   
  -function ConvertImageToPdf(const aSourceImageFile, aDestinationPdfFile : String; const aEnlargeToPage : boolean): boolean; overload;
  +function ConvertImageToPdf(const aSourceImageFile, aDestinationPdfFile : String; const aEnlargeToPage : boolean; const aIgnoreBorders : boolean): boolean; overload;
   var
     tmpOrientation : TConvertedPdfOrientation;
   begin
  -  Result := ConvertImageToPdf(aSourceImageFile, aDestinationPdfFile, aEnlargeToPage, cpoPortrait, tmpOrientation);
  +  Result := ConvertImageToPdf(aSourceImageFile, aDestinationPdfFile, aEnlargeToPage, aIgnoreBorders, cpoPortrait, tmpOrientation);
   end;
   
   procedure CreateSinglePageEmpyPdf(const aPdfFile: String; const aPortraitOrientation : boolean = true);
  
positive.code:   fppdf,
    fpparsettf;
  
  function ConvertImageToPdf(const aSourceImageFile, aDestinationPdfFile: String; const aEnlargeToPage : boolean; const aOrientation : TConvertedPdfOrientation; out aActualOrientation : TConvertedPdfOrientation): boolean;
  var
    doc : TPDFDocument;
    page : TPDFPage;
  
negative.code: 
      sec.AddPage(page);
  
      if aIgnoreBorders then
      begin
        pageWidth := page.Paper.W;
        pageHeight := page.Paper.H;
      end
      else
      begin
        pageWidth := round(page.Paper.Printable.R - page.Paper.Printable.L);
        pageHeight := round(page.Paper.Printable.B - page.Paper.Printable.T);
      end;
      imgWidth := doc.Images[0].Width;
      imgHeight :=  doc.Images[0].Height;
  
  