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

TAChart: Fix TCustomChartSource.FindBounds for the case of extremely large bounds

Browse Source 
git-svn-id: trunk@38813 -
This commit is contained in:
ask 2012-09-24 14:58:22 +00:00
parent ea61e7b307
commit 4b17b59c53
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/tachart/tacustomsource.pas
View File

@ -693,11 +693,17 @@ begin
end
else begin
ALB := 0;
while (ALB < Count) and (NumberOr(Item[ALB]^.X, AXMin - 1) < AXMin) do
Inc(ALB);
while ALB < Count do begin
with Item[ALB]^ do
if not IsNan(X) and (X >= AXMin) then break;
ALB += 1;
end;
AUB := Count - 1;
while (AUB >= 0) and (NumberOr(Item[AUB]^.X, AXMax + 1) > AXMax) do
Dec(AUB);
while AUB >= 0 do begin
with Item[AUB]^ do
if not IsNan(X) and (X <= AXMax) then break;
AUB -= 1;
end;
end;
end;