anchor.diff:    fppdf,
     fpparsettf;
   
  -function ConvertImageToPdf(const aSourceImageFile, aDestinationPdfFile: String; const aEnlargeToPage : boolean): boolean;
  +function ConvertImageToPdf(const aSourceImageFile, aDestinationPdfFile: String; const aEnlargeToPage : boolean; const aOrientation : TConvertedPdfOrientation; out aActualOrientation : TConvertedPdfOrientation): boolean;
   var
     doc : TPDFDocument;
     page : TPDFPage;
  
positive.code: 
  interface
  
  function ConvertImageToPdf(const aSourceImageFile, aDestinationPdfFile : String; const aEnlargeToPage : boolean): boolean;
  
  implementation
  
  
negative.code: 
      img := doc.Images.AddFromFile(aSourceImageFile);
  
      imgWidth := doc.Images[0].Width;
      imgHeight :=  doc.Images[0].Height;
  
      page := doc.Pages.AddPage;
      page.PaperType:= ptA4;
      page.UnitOfMeasure:= uomPixels;
      if aOrientation = cpoPortrait then
        page.Orientation:= ppoPortrait
      else if aOrientation = cpoLandscape then
        page.Orientation:= ppoLandscape
      else
      begin
        if imgWidth > imgHeight then
          page.Orientation:= ppoLandscape
        else
          page.Orientation:= ppoPortrait;
      end;
  
      if page.Orientation = ppoPortrait then
        aActualOrientation:= cpoPortrait
      else
        aActualOrientation:= cpoLandscape;
  
      sec.AddPage(page);
  
      pageWidth := round(page.Paper.Printable.R - page.Paper.Printable.L);
  