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

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

@ -227,20 +227,25 @@ begin
UseMax := true;
end;
end;
case rgFitParamCount.ItemIndex of
0: AText := Format('Mean value: %f', [chFitFitSeries1.Param[0]]);
1: AText := Format('Slope: %f', [chFitFitSeries1.Param[1]]);
2:
with chFitFitSeries1 do
if Param[2] = 0 then
AText := ''
else
AText := Format('Peak at x=%f y=%f', [
-Param[1] / (2 * Param[2]),
Param[0] - Sqr(Param[1])/(4 * Param[2])
]);
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]]);
2:
with chFitFitSeries1 do
if Param[2] = 0 then
AText := ''
else
AText := Format('Peak at x=%f y=%f', [
-Param[1] / (2 * Param[2]),
Param[0] - Sqr(Param[1])/(4 * Param[2])
]);
end;
lblFit.Visible := true;
lblFit.Caption := AText;