paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 20:21:04 +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; i, itemHeight: Integer;
r: TRect; r: TRect;
begin begin
try // Draw the background and the border.
// Draw the background and the border. ADrawer.Font := Font;
ADrawer.Font := Font; ADrawer.Brush := BackgroundBrush;
ADrawer.Brush := BackgroundBrush; ADrawer.Pen := Frame;
ADrawer.Pen := Frame; ADrawer.Rectangle(ABounds);
ADrawer.Rectangle(ABounds); if AItems.Count = 0 then exit;
try
r := ABounds; r := ABounds;
r.Right -= 1; r.Right -= 1;
ADrawer.ClippingStart(r); ADrawer.ClippingStart(r);