paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 15:32:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpPDF: add TPDFImageItem.DetachImage

Browse Source 
git-svn-id: trunk@43470 -
This commit is contained in:
ondrej 2019-11-15 11:44:38 +00:00
parent 7a812d6b76
commit 3bc729fb8f
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-pdf/src/fppdf.pp
View File

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