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

Merged revision(s) 54698 #a7e4e76dcc from trunk:

Browse Source 
TAChart: Change default value of TFitSeries.Pointer.Visible to false for backward-compatibility
........

git-svn-id: branches/fixes_1_8@54706 -
This commit is contained in:
maxim 2017-04-23 22:50:22 +00:00
parent 5c87f54535
commit 3ac7c4408b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tafuncseries.pas
View File

@ -1388,7 +1388,10 @@ begin
ycalc := ycalc * TArbFloatArray(x)[i] + FFitParams[j];
SSres := SSres + sqr(TArbFloatArray(y)[i] - ycalc);
end;
Result := 1.0 - SSres / SStot;
if SStot = 0 then
Result := 0.0
else
Result := 1.0 - SSres / SStot;
{$POP}
end;
@ -1440,6 +1443,7 @@ begin
FFitRange := TFitSeriesRange.Create(Self);
FDrawFitRangeOnly := true;
FPointer := TSeriesPointer.Create(ParentChart);
FPointer.Visible := false;
FPen := TChartPen.Create;
FPen.OnChange := @StyleChanged;
FStep := DEF_FIT_STEP;