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

* Patch from Martin Schreiber to fix grayscaled JPEG images

Browse Source 
git-svn-id: trunk@11556 -
This commit is contained in:
michael 2008-08-12 13:07:48 +00:00
parent 969238e08d
commit 8f23e55789
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
packages/fcl-image/src/fpreadjpeg.pas
View File

@ -223,6 +223,7 @@ var
LinesRead: Cardinal;
x: Integer;
y: Integer;
c: word;
begin
InitReadingPixels;
@ -253,11 +254,22 @@ var
Img.Colors[x,y]:=CorrectCMYK(Color);
end
else
for x:=0 to FInfo.output_width-1 do begin
Color.Red:=SampRow^[x*3+0] shl 8;
Color.Green:=SampRow^[x*3+1] shl 8;
Color.Blue:=SampRow^[x*3+2] shl 8;
Img.Colors[x,y]:=Color;
if fgrayscale then begin
for x:=0 to FInfo.output_width-1 do begin
c:= SampRow^[x] shl 8;
Color.Red:=c;
Color.Green:=c;
Color.Blue:=c;
Img.Colors[x,y]:=Color;
end;
end
else begin
for x:=0 to FInfo.output_width-1 do begin
Color.Red:=SampRow^[x*3+0] shl 8;
Color.Green:=SampRow^[x*3+1] shl 8;
Color.Blue:=SampRow^[x*3+2] shl 8;
Img.Colors[x,y]:=Color;
end;
end;
inc(y);
end;