paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-09 09:39:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix bounds search for rotated line series

Browse Source 
git-svn-id: trunk@25924 -
This commit is contained in:
ask 2010-06-05 16:11:30 +00:00
parent e8d4380072
commit 252e281d13
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/taseries.pas
View File

@ -467,7 +467,10 @@ begin
lb := 0;
ub := Count - 1;
if LineType <> ltFromOrigin then begin
Source.FindBounds(GraphToAxisX(ext.a.X), GraphToAxisX(ext.b.X), lb, ub);
if IsRotated then
Source.FindBounds(GraphToAxisY(ext.a.Y), GraphToAxisY(ext.b.Y), lb, ub)
else
Source.FindBounds(GraphToAxisX(ext.a.X), GraphToAxisX(ext.b.X), lb, ub);
lb := Max(lb - 1, 0);
ub := Min(ub + 1, Count - 1);
end;