paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 04:29:28 +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

4
components/tachart/tafuncseries.pas
View File

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