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

TAChart: Do not draw line series if it lies totally outside of the current extent

Browse Source 
git-svn-id: trunk@25918 -
This commit is contained in:
ask 2010-06-05 14:16:57 +00:00
parent 95f7e807b0
commit 89e0f1b9ba
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/taseries.pas
View File

@ -453,7 +453,14 @@ var
var var
i: Integer; i: Integer;
ai: TPoint; ai: TPoint;
ext: TDoubleRect;
begin 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); SetLength(gp, Count);
if (AxisIndexX < 0) and (AxisIndexY < 0) then if (AxisIndexX < 0) and (AxisIndexY < 0) then
// Optimization: bypass transformations in the default case. // Optimization: bypass transformations in the default case.