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

* Fix AV

Browse Source 
git-svn-id: trunk@41591 -
This commit is contained in:
michael 2019-03-05 11:23:56 +00:00
parent 9ff072e9aa
commit ae5e97962f
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2857,13 +2857,11 @@ begin
if Length(FStreamed)=0 then
begin
if Collection.Owner is TPDFDocument then
begin
Opts:=TPDFDocument(Collection.Owner).ImageStreamOptions;
end
Opts:=TPDFDocument(Collection.Owner).ImageStreamOptions
else
Opts:=[isoCompressed,isoTransparent];
CreateStreamedData(Opts);
end;
CreateStreamedData(Opts);
Result:=FStreamed;
end;