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: 
      img := doc.Images.AddFromFile(aSourceImageFile);
  
      page := doc.Pages.AddPage;
      page.PaperType:= ptA4;
      page.UnitOfMeasure:= uomPixels;
      page.Orientation:= ppoPortrait;
      sec.AddPage(page);
  
      pageWidth := round(page.Paper.Printable.R - page.Paper.Printable.L);
  
negative.code:   Result := true;
  end;
  
  
  function ConvertImageToPdf(const aSourceImageFile, aDestinationPdfFile : String; const aEnlargeToPage : boolean): boolean; overload;
  var
    tmpOrientation : TConvertedPdfOrientation;
  begin
    Result := ConvertImageToPdf(aSourceImageFile, aDestinationPdfFile, aEnlargeToPage, cpoPortrait, tmpOrientation);
  end;
  end.
  