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

* don't try to assign values by indexing properties that return an

Browse Source 
array

git-svn-id: trunk@20139 -
This commit is contained in:
Jonas Maebe 2012-01-21 19:05:46 +00:00
parent 6432c82c01
commit 28bf0c74ee
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/fpreadpng.pp
View File

@ -618,8 +618,8 @@ procedure TFPReaderPNG.DoDecompress;
begin
StartPass := 0;
EndPass := 0;
CountScanlines[0] := Height;
ScanLineLength[0] := Width;
FCountScanlines[0] := Height;
FScanLineLength[0] := Width;
end
else
begin
@ -630,11 +630,11 @@ procedure TFPReaderPNG.DoDecompress;
d := Height div delta[r,1];
if (height mod delta[r,1]) > startpoints[r,1] then
inc (d);
CountScanLines[r] := d;
FCountScanlines[r] := d;
d := width div delta[r,0];
if (width mod delta[r,0]) > startpoints[r,0] then
inc (d);
ScanLineLength[r] := d;
FScanLineLength[r] := d;
end;
end;
Fpltte := (ColorType = 3);