paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 11:00:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove debug statement

Browse Source 
git-svn-id: trunk@33497 -
This commit is contained in:
michael 2016-04-13 15:57:23 +00:00
parent 7de017daad
commit ab05389612
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2228,7 +2228,6 @@ begin
IP.Image:=I; IP.Image:=I;
if Not KeepImage then if Not KeepImage then
begin begin
Writeln('Compressing : ',poCompressImages in Owner.Options);
IP.CreateStreamedData(poCompressImages in Owner.Options); IP.CreateStreamedData(poCompressImages in Owner.Options);
IP.FImage:=Nil; // not through property, that would clear the image IP.FImage:=Nil; // not through property, that would clear the image
i.Free; i.Free;