paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-29 00:04:58 +01: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

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

@ -223,6 +223,7 @@ var
LinesRead: Cardinal; LinesRead: Cardinal;
x: Integer; x: Integer;
y: Integer; y: Integer;
c: word;
begin begin
InitReadingPixels; InitReadingPixels;
@ -253,12 +254,23 @@ var
Img.Colors[x,y]:=CorrectCMYK(Color); Img.Colors[x,y]:=CorrectCMYK(Color);
end end
else else
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 for x:=0 to FInfo.output_width-1 do begin
Color.Red:=SampRow^[x*3+0] shl 8; Color.Red:=SampRow^[x*3+0] shl 8;
Color.Green:=SampRow^[x*3+1] shl 8; Color.Green:=SampRow^[x*3+1] shl 8;
Color.Blue:=SampRow^[x*3+2] shl 8; Color.Blue:=SampRow^[x*3+2] shl 8;
Img.Colors[x,y]:=Color; Img.Colors[x,y]:=Color;
end; end;
end;
inc(y); inc(y);
end; end;
finally finally