paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 06:03:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Update "fit" demo

Browse Source 
git-svn-id: trunk@39338 -
This commit is contained in:
ask 2012-11-22 10:26:35 +00:00
parent 1a8decb856
commit 9f8e0a726b
2 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/tachart/demo/fit/Main.lfm
View File

@ -8,7 +8,7 @@ object frmMain: TfrmMain
ClientWidth = 800
OnCreate = FormCreate
ShowHint = True
LCLVersion = '0.9.31'
LCLVersion = '1.1'
object pnlParams: TPanel
Left = 8
Height = 487
@ -72,7 +72,6 @@ object frmMain: TfrmMain
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
NumGlyphs = 0
OnClick = btnSaveClick
end
object cbTestFunction: TComboBox
@ -88,25 +87,25 @@ object frmMain: TfrmMain
end
object lblTestFunction: TLabel
Left = 14
Height = 14
Height = 13
Top = 12
Width = 64
Width = 63
Caption = 'Test function'
ParentColor = False
end
object lblOfRange: TLabel
Left = 195
Height = 14
Height = 13
Top = 46
Width = 56
Width = 55
Caption = '% of range'
ParentColor = False
end
object lblNoiseY: TLabel
Left = 14
Height = 14
Height = 13
Top = 46
Width = 79
Width = 78
Caption = 'Noise amplitude '
ParentColor = False
end
@ -236,9 +235,9 @@ object frmMain: TfrmMain
end
object lblFitOrder: TLabel
Left = 14
Height = 14
Height = 13
Top = 50
Width = 102
Width = 101
Caption = 'Degree of polynomial'
ParentColor = False
end
@ -263,9 +262,9 @@ object frmMain: TfrmMain
end
object lblFitEquation: TLabel
Left = 14
Height = 14
Height = 13
Top = 19
Width = 58
Width = 57
Caption = 'Fit equation'
ParentColor = False
end

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

@ -71,7 +71,7 @@ implementation
{$R *.lfm}
uses
Math, TAChartAxis, TAChartUtils, TACustomSource;
Math, TAChartAxis, TAChartUtils, TACustomSource, TAFitUtils;
const
// Parameters used for data generation; should be reproduced by the fit.
@ -256,9 +256,9 @@ end;
procedure TfrmMain.FormCreate(Sender: TObject);
var
eq: TFitSeries.IEquationText;
eq: IFitEquationText;
begin
eq := TFitSeries.TEquationText.Create;
eq := TFitEquationText.Create;
with cbTestFunction do begin
Items.Add(eq.Equation(fePolynomial).Params(POLY_PARAMS));
Items.Add(eq.Equation(feLinear).Params(LIN_PARAMS));