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

TAChart: Fix distance demo not displaying fit results any more.

Browse Source 
git-svn-id: trunk@60985 -
This commit is contained in:
wp 2019-04-15 20:13:40 +00:00
parent 78857f4559
commit 93c0be69fd
1 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/demo/distance/Main.pas
View File

@ -227,6 +227,12 @@ begin
UseMax := true;
end;
end;
chFitFitSeries1.Active := true;
chFitFitSeries1.ExecFit;
if chFitFitSeries1.ErrorMsg <> '' then
AText := chFitFitSeries1.ErrorMsg
else
case rgFitParamCount.ItemIndex of
0: AText := Format('Mean value: %f', [chFitFitSeries1.Param[0]]);
1: AText := Format('Slope: %f', [chFitFitSeries1.Param[1]]);
@ -240,7 +246,6 @@ begin
Param[0] - Sqr(Param[1])/(4 * Param[2])
]);
end;
chFitFitSeries1.Active := true;
lblFit.Visible := true;
lblFit.Caption := AText;