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

Merged revision(s) 49513 #374bd932f9 from trunk:

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

git-svn-id: branches/fixes_1_4@49516 -
This commit is contained in:
maxim 2015-07-09 22:27:47 +00:00
parent 36080c86e4
commit 1a288fb26b
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

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

2
components/tachart/tagraph.pas
View File

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