From aec0265173e9bc70305b2e6169f729b97b57134c Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Fri, 27 Jan 2017 22:48:09 +0000
Subject: [PATCH] TAChart: Cleanup

git-svn-id: trunk@54016 -
---
 components/tachart/tamultiseries.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/components/tachart/tamultiseries.pas b/components/tachart/tamultiseries.pas
index 1b3bd98d4b..27a379194b 100644
--- a/components/tachart/tamultiseries.pas
+++ b/components/tachart/tamultiseries.pas
@@ -251,7 +251,7 @@ type
 implementation
 
 uses
-  FPCanvas, Math, SysUtils,
+  FPCanvas, Math, SysUtils, Types,
   TAChartStrConsts, TAGeometry, TAGraph, TAMath;
 
 type
@@ -486,6 +486,7 @@ var
   item: PChartDataItem;
   clipR: TRect;
   irect: TRect;
+  dummyR: TRect;
   ext: TDoubleRect;
 begin
   if Source.YCount < 2 then exit;
@@ -503,7 +504,8 @@ begin
     item := Source[i];
     if not GetBubbleRect(item, irect) then
       continue;
-    if not RectIntersectsRectAlt(clipR, irect) then
+//    if not RectIntersectsRectAlt(clipR, irect) then
+    if not IntersectRect(dummyR, clipR, irect) then
       continue;
     if bocPen in OverrideColor then
       ADrawer.SetPenParams(BubblePen.Style, ColorDef(item^.Color, BubblePen.Color));
@@ -671,6 +673,8 @@ var
   inp: TPoint;        // NewPos in image units
   rvec: TDoublePoint; // Rotated radius vector
 begin
+  Unused(AXIndex);
+
   ParentChart.DisableRedrawing;
   ListSource.BeginUpdate;
   try