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

* avoid div by zero in TView.CalcBounds.GrowI, resolves #30922

Browse Source 
git-svn-id: trunk@48115 -
This commit is contained in:
florian 2021-01-08 16:33:05 +00:00
parent 7f775abb6d
commit 964dc6f6f1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fv/src/views.pas
View File

@ -1905,6 +1905,7 @@ VAR S, D: Sw_Integer; Min, Max: TPoint;
PROCEDURE GrowI (Var I: Sw_Integer); PROCEDURE GrowI (Var I: Sw_Integer);
BEGIN BEGIN
If (GrowMode AND gfGrowRel = 0) Then Inc(I, D) If (GrowMode AND gfGrowRel = 0) Then Inc(I, D)
Else If S = D then I := 1
Else I := (I * S + (S - D) SHR 1) DIV (S - D); { Calc grow value } Else I := (I * S + (S - D) SHR 1) DIV (S - D); { Calc grow value }
END; END;