paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 19:33:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix division by zero in legend drawing

Browse Source 
git-svn-id: trunk@29726 -
This commit is contained in:
ask 2011-03-04 11:04:43 +00:00
parent f72b27556b
commit b87ff3d4df
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/tachart/talegend.pas
View File

@ -348,13 +348,14 @@ var
i, itemHeight: Integer;
r: TRect;
begin
try
// Draw the background and the border.
ADrawer.Font := Font;
ADrawer.Brush := BackgroundBrush;
ADrawer.Pen := Frame;
ADrawer.Rectangle(ABounds);
// Draw the background and the border.
ADrawer.Font := Font;
ADrawer.Brush := BackgroundBrush;
ADrawer.Pen := Frame;
ADrawer.Rectangle(ABounds);
if AItems.Count = 0 then exit;
try
r := ABounds;
r.Right -= 1;
ADrawer.ClippingStart(r);