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

TAChart: Fix incorrect usage of infinity values, patch by Vít Ondruch (issue #0028386)

Browse Source 
git-svn-id: trunk@49513 -
This commit is contained in:
wp 2015-07-09 16:13:01 +00:00
parent 3768a9fd84
commit 374bd932f9
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tachartaxis.pas
View File

@ -822,8 +822,8 @@ begin
FHelper.FZOffset.Y := Min(ZPosition, AMaxZPosition);
FHelper.FZOffset.X := -FHelper.FZOffset.Y;
FHelper.FAtDataOnly := AtDataOnly;
FHelper.FMaxForMarks := -infinity;
FHelper.FMinForMarks := infinity;
FHelper.FMaxForMarks := NegInfinity;
FHelper.FMinForMarks := SafeInfinity;
end;
procedure TChartAxis.SetAlignment(AValue: TChartAxisAlignment);

2
components/tachart/tagraph.pas
View File

@ -995,7 +995,7 @@ var
s: TBasicChartSeries;
mn, mx: Double;
begin
Result.FStart := Infinity;
Result.FStart := SafeInfinity;
Result.FEnd := NegInfinity;
for s in Series do
if s.Active and s.GetAxisBounds(AAxis, mn, mx) then begin