pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazStats: Refactor AxSAnovaUnit. Remove duplicate procedures of AnovaTestUnit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7860 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-11-11 16:10:17 +00:00
parent 12255066ac
commit f03e9a1eb1
2 changed files with 239 additions and 648 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
applications/lazstats/source/forms/analysis/comparisons/axsanovaunit.lfm
View File

@ -11,19 +11,22 @@ inherited AxSAnovaForm: TAxSAnovaForm
inherited ParamsPanel: TPanel inherited ParamsPanel: TPanel
Height = 397 Height = 397
ClientHeight = 397 ClientHeight = 397
TabOrder = 1
inherited CloseBtn: TButton inherited CloseBtn: TButton
Top = 372 Top = 372
TabOrder = 11
end end
inherited ComputeBtn: TButton inherited ComputeBtn: TButton
Top = 372 Top = 372
TabOrder = 10
end end
inherited ResetBtn: TButton inherited ResetBtn: TButton
Top = 372 Top = 372
TabOrder = 9
end end
inherited HelpBtn: TButton inherited HelpBtn: TButton
Tag = 106 Tag = 106
Top = 372 Top = 372
TabOrder = 8
end end
inherited ButtonBevel: TBevel inherited ButtonBevel: TBevel
Top = 356 Top = 356
@ -55,7 +58,7 @@ inherited AxSAnovaForm: TAxSAnovaForm
MultiSelect = True MultiSelect = True
OnDblClick = VarListDblClick OnDblClick = VarListDblClick
OnSelectionChange = VarListSelectionChange OnSelectionChange = VarListSelectionChange
TabOrder = 4 TabOrder = 0
end end
object DepInBtn: TBitBtn[7] object DepInBtn: TBitBtn[7]
AnchorSideLeft.Control = ParamsPanel AnchorSideLeft.Control = ParamsPanel
@ -69,7 +72,7 @@ inherited AxSAnovaForm: TAxSAnovaForm
ImageIndex = 1 ImageIndex = 1
OnClick = DepInBtnClick OnClick = DepInBtnClick
Spacing = 0 Spacing = 0
TabOrder = 5 TabOrder = 1
end end
object DepOutBtn: TBitBtn[8] object DepOutBtn: TBitBtn[8]
AnchorSideLeft.Control = ParamsPanel AnchorSideLeft.Control = ParamsPanel
@ -85,7 +88,7 @@ inherited AxSAnovaForm: TAxSAnovaForm
ImageIndex = 0 ImageIndex = 0
OnClick = DepOutBtnClick OnClick = DepOutBtnClick
Spacing = 0 Spacing = 0
TabOrder = 6 TabOrder = 3
end end
object RepInBtn: TBitBtn[9] object RepInBtn: TBitBtn[9]
AnchorSideLeft.Control = ParamsPanel AnchorSideLeft.Control = ParamsPanel
@ -101,7 +104,7 @@ inherited AxSAnovaForm: TAxSAnovaForm
ImageIndex = 1 ImageIndex = 1
OnClick = RepInBtnClick OnClick = RepInBtnClick
Spacing = 0 Spacing = 0
TabOrder = 7 TabOrder = 4
end end
object RepOutBtn: TBitBtn[10] object RepOutBtn: TBitBtn[10]
AnchorSideLeft.Control = ParamsPanel AnchorSideLeft.Control = ParamsPanel
@ -117,7 +120,7 @@ inherited AxSAnovaForm: TAxSAnovaForm
ImageIndex = 0 ImageIndex = 0
OnClick = RepOutBtnClick OnClick = RepOutBtnClick
Spacing = 0 Spacing = 0
TabOrder = 8 TabOrder = 5
end end
object GroupBox1: TGroupBox[11] object GroupBox1: TGroupBox[11]
AnchorSideLeft.Control = ParamsPanel AnchorSideLeft.Control = ParamsPanel
@ -138,27 +141,27 @@ inherited AxSAnovaForm: TAxSAnovaForm
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 31 ClientHeight = 31
ClientWidth = 278 ClientWidth = 278
TabOrder = 9 TabOrder = 7
object PlotChk: TCheckBox
Left = 12
Height = 19
Top = 6
Width = 102
Caption = 'Plot Cell Means'
TabOrder = 0
end
object PosthocChk: TCheckBox object PosthocChk: TCheckBox
Left = 130 Left = 12
Height = 19 Height = 19
Top = 6 Top = 6
Width = 136 Width = 136
BorderSpacing.Left = 8 BorderSpacing.Left = 8
Caption = 'Posthoc Comparisons' Caption = 'Posthoc Comparisons'
TabOrder = 0
end
object PlotChk: TCheckBox
Left = 164
Height = 19
Top = 6
Width = 102
Caption = 'Plot Cell Means'
TabOrder = 1 TabOrder = 1
end end
end end
object Label2: TLabel[12] object Label2: TLabel[12]
AnchorSideLeft.Control = GrpVar AnchorSideLeft.Control = GrpVarEdit
AnchorSideTop.Control = DepInBtn AnchorSideTop.Control = DepInBtn
Left = 164 Left = 164
Height = 15 Height = 15
@ -177,7 +180,7 @@ inherited AxSAnovaForm: TAxSAnovaForm
Caption = 'Repeated Measures' Caption = 'Repeated Measures'
ParentColor = False ParentColor = False
end end
object GrpVar: TEdit[14] object GrpVarEdit: TEdit[14]
AnchorSideLeft.Control = DepInBtn AnchorSideLeft.Control = DepInBtn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label2 AnchorSideTop.Control = Label2
@ -190,10 +193,10 @@ inherited AxSAnovaForm: TAxSAnovaForm
Width = 127 Width = 127
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
OnChange = GrpVarChange OnChange = GrpVarEditChange
ReadOnly = True ReadOnly = True
TabOrder = 10 TabOrder = 2
Text = 'GrpVar' Text = 'GrpVarEdit'
end end
object RepList: TListBox[15] object RepList: TListBox[15]
AnchorSideLeft.Control = RepInBtn AnchorSideLeft.Control = RepInBtn
@ -214,7 +217,7 @@ inherited AxSAnovaForm: TAxSAnovaForm
MultiSelect = True MultiSelect = True
OnDblClick = RepListDblClick OnDblClick = RepListDblClick
OnSelectionChange = VarListSelectionChange OnSelectionChange = VarListSelectionChange
TabOrder = 11 TabOrder = 6
end end
end end
inherited ParamsSplitter: TSplitter inherited ParamsSplitter: TSplitter
@ -223,8 +226,8 @@ inherited AxSAnovaForm: TAxSAnovaForm
inherited PageControl: TPageControl inherited PageControl: TPageControl
Height = 397 Height = 397
Width = 457 Width = 457
ActivePage = PosthocPage ActivePage = ReportPage
TabOrder = 0 TabIndex = 0
inherited ReportPage: TTabSheet inherited ReportPage: TTabSheet
Caption = 'ANOVA Results' Caption = 'ANOVA Results'
end end

836
applications/lazstats/source/forms/analysis/comparisons/axsanovaunit.pas
View File

File diff suppressed because it is too large Load Diff