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

* Patch from Anton Kavalenka to fix gif reading (bug ID 35134)

Browse Source 
git-svn-id: trunk@41409 -
This commit is contained in:
michael 2019-02-22 08:03:39 +00:00
parent 3a43ffd57b
commit fe505c12a9
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/fpreadgif.pas
View File

@ -303,8 +303,8 @@ begin
end;
until (B = 0) or (Stream.Position>=Stream.Size);
if Stream.Position>=Stream.Size then
Exit(False);
{ if Stream.Position>=Stream.Size then
Exit(False); }
Progress(psRunning, trunc(100.0 * (Stream.position / Stream.size)),
False, Rect(0,0,0,0), '', ContProgress);
@ -323,8 +323,8 @@ begin
end;
until (B = 0) or (Stream.Position>=Stream.Size);
if Stream.Position>=Stream.Size then
Exit(False);
{ if Stream.Position>=Stream.Size then
Exit(False); }
Progress(psRunning, trunc(100.0 * (Stream.position / Stream.size)),