paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-01 20:16:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix TFuncSeries hanging in case of inverted x axis

Browse Source 
git-svn-id: trunk@48531 -
This commit is contained in:
wp 2015-03-29 21:12:26 +00:00
parent 723c7b59ac
commit 3459fff08c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/tacustomfuncseries.pas
View File

@ -171,7 +171,7 @@ procedure TDrawFuncHelper.ForEachPoint(
AXg, AXMax: Double; AOnMoveTo, AOnLineTo: TOnPoint);
var
hint: Integer;
xa, xg1, xa1: Double;
xa, xg1, xa1, dx: Double;
begin
if FGraphStep = 0 then exit;
@ -183,8 +183,9 @@ begin
if AXg < AXMax then
AOnMoveTo(AXg, xa);
dx := abs(FGraphStep);
while AXg < AXMax do begin
xg1 := AXg + FGraphStep;
xg1 := AXg + dx;
xa1 := FGraphToAxisXr(xg1);
if FDomainExclusions.Intersect(xa, xa1, hint) then begin
AOnLineTo(FAxisToGraphXr(xa), xa);