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

LCL: TBarChart: fix div by zero, from Johannes Müller, bug #14190

Browse Source 
git-svn-id: trunk@21853 -
This commit is contained in:
mattias 2009-09-25 07:58:51 +00:00
parent dedd0e04fd
commit ef0e33711d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/chart.pp
View File

@ -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