From 964dc6f6f16b05d99659d781ba0b2407f5aaf39e Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 8 Jan 2021 16:33:05 +0000
Subject: [PATCH]   * avoid div by zero in TView.CalcBounds.GrowI, resolves
 #30922

git-svn-id: trunk@48115 -
---
 packages/fv/src/views.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/fv/src/views.pas b/packages/fv/src/views.pas
index cd85455f0c..7a44ccec42 100644
--- a/packages/fv/src/views.pas
+++ b/packages/fv/src/views.pas
@@ -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