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

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

Browse Source 
git-svn-id: trunk@54698 -
This commit is contained in:
wp 2017-04-23 21:38:29 +00:00
parent 3081a50b7d
commit a7e4e76dcc
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;