paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 07:40:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Less hints and warnings in fit demo.

Browse Source 
git-svn-id: trunk@63606 -
This commit is contained in:
wp 2020-07-20 18:03:44 +00:00
parent 3c431cf740
commit d0123e2ed8
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/tachart/demo/fit/Main.pas
View File

@ -112,7 +112,7 @@ implementation
{$R *.lfm}
uses
Math, typ, spe, StrUtils,
Math, typ, spe,
TAChartAxis, TATypes, TAChartUtils, TACustomSource, TAFitLib;
const
@ -314,6 +314,7 @@ end;
procedure TfrmMain.FitSeriesFitEquationText(ASeries: TFitSeries;
AEquationText: IFitEquationText);
begin
Unused(ASeries);
AEquationText.NumFormat('%.5f');
if cbHTML.Checked then
AEquationText.TextFormat(tfHtml)
@ -369,8 +370,9 @@ end;
procedure TfrmMain.CreateData;
var
i, n: Integer;
x, y, xmin, xmax, ymin, ymax: Double;
xarr, yarr: array of Double;
x, y, xmin, xmax: Double;
xarr: array of Double = nil;
yarr: array of Double = nil;
begin
RandSeed := 875876; // Reproducible noise for testing.
n := edPointsCount.Value;
@ -405,8 +407,6 @@ begin
end;
// Add noise to the y values, and add data to line series.
ymin := MinValue(yarr);
ymax := MaxValue(yarr);
FitSeries.BeginUpdate;
try
FitSeries.Clear;
@ -478,7 +478,6 @@ const
PARAM_NAME: array[0..1] of String = ('a', 'b');
var
i: Integer;
L: Integer;
decsep: Char;
paramName: String;
confL, confH: Double;
@ -600,6 +599,7 @@ var
w: Integer;
lb: TListBox;
begin
Unused(State);
lb := Control as TListbox;
lb.Canvas.FillRect(ARect);
s := lb.Items[Index];
@ -650,10 +650,7 @@ var
L, LC: TStrings;
x, y, dy: Double;
i: Integer;
p: Integer;
res: Integer;
s: String;
delim: Char;
begin
if not FileExists(AFileName) then begin
ShowMessage('File not found.');