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

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

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

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

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