fpPDF: add TPDFImageItem.DetachImage

git-svn-id: trunk@43470 -

packages/fcl-pdf/src/fppdf.pp

@@ -907,6 +907,7 @@ type
     Destructor Destroy; override;
     Procedure CreateStreamedData(AUseCompression: Boolean); overload;
     Procedure CreateStreamedData(aOptions : TPDFImageStreamOptions); overload;
+    Procedure DetachImage;
     procedure SetStreamedMask(const AValue: TBytes; const ACompression: TPDFImageCompression);
     Function WriteImageStream(AStream: TStream): int64;
     Function WriteMaskStream(AStream: TStream): int64;
@@ -3031,6 +3032,11 @@ begin
   end;
 end;
 
+Procedure TPDFImageItem.DetachImage;
+begin
+  FImage := nil;
+end;
+
 function TPDFImageItem.WriteStream(const AStreamedData: TBytes;
   AStream: TStream): int64;
 var