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

* Patch from Colin Western to read B/W bitmaps with padding bits (19237)

Browse Source 
git-svn-id: trunk@17390 -
This commit is contained in:
michael 2011-05-02 19:05:53 +00:00
parent 8847efb758
commit 90af29cda9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-image/src/fpreadpnm.pp
View File

@ -229,13 +229,13 @@ Var
L:=P^;
for j:=0 to 7 do
begin
if odd(L)
then
if x < FWidth then
if odd(L) then
Img.Colors[x,Row]:=colBlack
else
Img.Colors[x,Row]:=colWhite;
L:=L shr 1;
dec(x);
L:=L shr 1;
dec(x);
end;
Inc(P);
Inc(x,16);