From ef0e33711d39de75927176260bf6ef09a0f2b72a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 25 Sep 2009 07:58:51 +0000
Subject: [PATCH] =?UTF-8?q?LCL:=20TBarChart:=20fix=20div=20by=20zero,=20fr?=
 =?UTF-8?q?om=20Johannes=20M=C3=BCller,=20bug=20#14190?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: trunk@21853 -
---
 lcl/chart.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/chart.pp b/lcl/chart.pp
index 1acbc731bd..29a2b8d1db 100644
--- a/lcl/chart.pp
+++ b/lcl/chart.pp
@@ -305,7 +305,10 @@ begin
      PixelPerUnit:=double(w-j-6) / VMax;
      NScaleLines:=(w-j-6) div (2*j);
      end;
-  ScaleUnits:=(Vmax div NScaleLines) +1;
+  if NScaleLines=0 then
+    ScaleUnits:=Vmax +1
+  else
+    ScaleUnits:=(Vmax div NScaleLines) +1;
   ScaleUnits:=NormalizeScaleUnits(ScaleUnits);
   if ScaleUnits=0 then
     NScaleLines:=1