paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: prevent division by 0 when updating progress during graphic loading/saving (#0012070)

Browse Source 
git-svn-id: trunk@16434 -
This commit is contained in:
paul 2008-09-05 13:03:41 +00:00
parent aef1a14089
commit f75f743776
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/intfgraphics.pas
View File

@ -3701,7 +3701,7 @@ var
DbgS(CurColor.Alpha));}
Img.Colors[x,y]:=CurColor;
end;
Progress(psRunning, trunc(100.0 * Y / (FHeight - 1)), False, Rect(0, 0, FWidth - 1, y), 'reading XPM pixels', FContinue);
Progress(psRunning, trunc(100.0 * (Y + 1) / FHeight), False, Rect(0, 0, FWidth - 1, y), 'reading XPM pixels', FContinue);
end;
end;
@ -4149,7 +4149,7 @@ var
i := Palette.IndexOf(GetColor(x,y));
WriteToSrc(PixelStrings[i]);
end;
Progress(psRunning, trunc(100.0 * (y / (Img.Height - 1))),
Progress(psRunning, trunc(100.0 * ((y + 1) / Img.Height)),
False, Rect(0,0,Img.Width-1,y), 'writing XPM pixels', FContinue);
if y<Img.Height-1 then
WriteToSrc('",'+LineEnd)
@ -4923,7 +4923,7 @@ const
procedure UpdateProgress(Row: Integer); inline;
begin
Progress(psRunning, trunc(100.0 * ((TheImage.Height - 1 - Row) / (TheImage.Height - 1))),
Progress(psRunning, trunc(100.0 * ((TheImage.Height - Row) / TheImage.Height)),
False, Rect(0, 0, TheImage.Width - 1, TheImage.Height - 1 - Row), 'reading BMP pixels', FContinue);
end;