pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

PowerPDF: use DeviceGray for grayscale JPEG images

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2374 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2012-03-31 18:08:22 +00:00
parent 2ae6517c57
commit e20183d451
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/powerpdf/PdfJpegImage.pas
View File

@ -55,6 +55,9 @@ begin
begin begin
AddItem('Type', TPdfName.CreateName('XObject')); AddItem('Type', TPdfName.CreateName('XObject'));
AddItem('Subtype', TPdfName.CreateName('Image')); AddItem('Subtype', TPdfName.CreateName('Image'));
if TJPegImage(AImage).GrayScale then
AddItem('ColorSpace', TPdfName.CreateName('DeviceGray'))
else
AddItem('ColorSpace', TPdfName.CreateName('DeviceRGB')); AddItem('ColorSpace', TPdfName.CreateName('DeviceRGB'));
AddItem('Width', TPdfNumber.CreateNumber(AImage.Width)); AddItem('Width', TPdfNumber.CreateNumber(AImage.Width));
AddItem('Height', TPdfNumber.CreateNumber(AImage.Height)); AddItem('Height', TPdfNumber.CreateNumber(AImage.Height));