From 89e0f1b9ba2d8f7848bc1d0930e9fd65a084e6bd Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Sat, 5 Jun 2010 14:16:57 +0000
Subject: [PATCH] TAChart: Do not draw line series if it lies totally outside
 of the current extent

git-svn-id: trunk@25918 -
---
 components/tachart/taseries.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/components/tachart/taseries.pas b/components/tachart/taseries.pas
index 07b3eed1bb..bbe78e4c35 100644
--- a/components/tachart/taseries.pas
+++ b/components/tachart/taseries.pas
@@ -453,7 +453,14 @@ var
 var
   i: Integer;
   ai: TPoint;
+  ext: TDoubleRect;
 begin
+  ext.a := AxisToGraph(Source.Extent.a);
+  ext.b := AxisToGraph(Source.Extent.b);
+  if LineType = ltFromOrigin then
+    ExpandRect(ext, AxisToGraph(ZeroDoublePoint));
+  if not RectIntersectsRect(ext, ParentChart.CurrentExtent) then exit;
+
   SetLength(gp, Count);
   if (AxisIndexX < 0) and (AxisIndexY < 0) then
     // Optimization: bypass transformations in the default case.