LazStats: More refactoring of BlkAnovaUnit; clean-up.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7855 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-11-10 16:46:13 +00:00
parent 43496a10e8
commit 5dba503a4b
2 changed files with 1562 additions and 1883 deletions

View File

@ -1,37 +1,37 @@
inherited BlksAnovaForm: TBlksAnovaForm
Left = 971
Height = 553
Top = 314
Left = 236
Height = 577
Top = 121
Width = 914
HelpType = htKeyword
HelpKeyword = 'html/OneTwoorThreeWayAnalysesofVarian.htm'
Caption = 'One, Two or Three Way Analysis of Variance'
ClientHeight = 553
ClientHeight = 577
ClientWidth = 914
inherited ParamsPanel: TPanel
Height = 537
Height = 561
Width = 400
ClientHeight = 537
ClientHeight = 561
ClientWidth = 400
inherited CloseBtn: TButton
Left = 345
Top = 512
Top = 536
end
inherited ComputeBtn: TButton
Left = 261
Top = 512
Top = 536
end
inherited ResetBtn: TButton
Left = 199
Top = 512
Top = 536
end
inherited HelpBtn: TButton
Tag = 107
Left = 140
Top = 512
Top = 536
end
inherited ButtonBevel: TBevel
Top = 496
Top = 520
Width = 400
end
object Label1: TLabel[5]
@ -51,7 +51,7 @@ inherited BlksAnovaForm: TBlksAnovaForm
AnchorSideRight.Control = DepIn
AnchorSideBottom.Control = PosthocGroup
Left = 0
Height = 302
Height = 310
Top = 17
Width = 181
Anchors = [akTop, akLeft, akRight, akBottom]
@ -198,10 +198,10 @@ inherited BlksAnovaForm: TBlksAnovaForm
Left = 221
Height = 16
Top = 89
Width = 87
Width = 121
AutoSize = True
BorderSpacing.Bottom = 2
Caption = 'Factor 1 Variable'
Caption = 'Factor 1 Variable (Row)'
TabOrder = 13
end
object Factor1Edit: TEdit[16]
@ -284,11 +284,11 @@ inherited BlksAnovaForm: TBlksAnovaForm
Left = 221
Height = 16
Top = 173
Width = 87
Width = 141
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Bottom = 2
Caption = 'Factor 2 Variable'
Caption = 'Factor 2 Variable (Column)'
TabOrder = 17
end
object Factor2Edit: TEdit[21]
@ -369,11 +369,11 @@ inherited BlksAnovaForm: TBlksAnovaForm
Left = 221
Height = 16
Top = 257
Width = 72
Width = 107
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Bottom = 2
Caption = 'Factor 3 Clark'
Caption = 'Factor 3 Clark (Slice)'
TabOrder = 21
end
object Factor3Edit: TEdit[26]
@ -431,15 +431,17 @@ inherited BlksAnovaForm: TBlksAnovaForm
TabOrder = 23
Text = 'Fixed'
end
object GroupBox3: TGroupBox[29]
object CorrectionsGroup: TGroupBox[29]
AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = PosthocGroup
AnchorSideBottom.Control = AlphaGroup
Left = 207
Height = 66
Top = 331
Top = 339
Width = 196
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Bottom = 8
Caption = 'Corrections for unequal variances'
ChildSizing.LeftRightSpacing = 12
ChildSizing.TopBottomSpacing = 2
@ -468,21 +470,23 @@ inherited BlksAnovaForm: TBlksAnovaForm
end
object PosthocGroup: TGroupBox[30]
AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Control = CorrectionsGroup
AnchorSideRight.Control = Bevel1
AnchorSideBottom.Control = ButtonBevel
Left = 0
Height = 165
Top = 331
Height = 181
Top = 339
Width = 186
Anchors = [akLeft, akRight, akBottom]
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 8
Caption = 'Post-Hoc Comparisons:'
ChildSizing.LeftRightSpacing = 12
ChildSizing.TopBottomSpacing = 6
ChildSizing.VerticalSpacing = 2
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 145
ClientHeight = 161
ClientWidth = 182
TabOrder = 25
object ScheffeChk: TCheckBox
@ -496,7 +500,7 @@ inherited BlksAnovaForm: TBlksAnovaForm
object TukeyHSDChk: TCheckBox
Left = 12
Height = 19
Top = 25
Top = 27
Width = 138
Caption = 'Tukey HSD (= n''s)'
TabOrder = 1
@ -504,7 +508,7 @@ inherited BlksAnovaForm: TBlksAnovaForm
object TukeyBChk: TCheckBox
Left = 12
Height = 19
Top = 44
Top = 48
Width = 138
Caption = 'Tukey B (= n''s)'
TabOrder = 2
@ -512,7 +516,7 @@ inherited BlksAnovaForm: TBlksAnovaForm
object TukeyKramerChk: TCheckBox
Left = 12
Height = 19
Top = 63
Top = 69
Width = 138
Caption = 'Tukey-Kramer'
TabOrder = 3
@ -520,7 +524,7 @@ inherited BlksAnovaForm: TBlksAnovaForm
object NewmanKeulsChk: TCheckBox
Left = 12
Height = 19
Top = 82
Top = 90
Width = 138
Caption = 'Newman-Keuls (= n''s)'
TabOrder = 4
@ -528,7 +532,7 @@ inherited BlksAnovaForm: TBlksAnovaForm
object BonferroniChk: TCheckBox
Left = 12
Height = 19
Top = 101
Top = 111
Width = 138
Caption = 'Bonferroni'
TabOrder = 5
@ -536,20 +540,22 @@ inherited BlksAnovaForm: TBlksAnovaForm
object OrthoContrastsChk: TCheckBox
Left = 12
Height = 19
Top = 120
Top = 132
Width = 138
Caption = 'Orthogonal Contrasts'
TabOrder = 6
end
end
object GroupBox1: TGroupBox[31]
AnchorSideLeft.Control = GroupBox3
AnchorSideRight.Control = GroupBox3
object AlphaGroup: TGroupBox[31]
AnchorSideLeft.Control = CorrectionsGroup
AnchorSideTop.Control = CorrectionsGroup
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CorrectionsGroup
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonBevel
AnchorSideBottom.Control = ShowPlotsChk
Left = 207
Height = 80
Top = 416
Top = 413
Width = 196
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
@ -574,8 +580,8 @@ inherited BlksAnovaForm: TBlksAnovaForm
end
object OverallAlphaEdit: TEdit
AnchorSideLeft.Control = PostAlphaEdit
AnchorSideTop.Control = GroupBox1
AnchorSideRight.Control = GroupBox1
AnchorSideTop.Control = AlphaGroup
AnchorSideRight.Control = AlphaGroup
AnchorSideRight.Side = asrBottom
Left = 113
Height = 23
@ -589,7 +595,7 @@ inherited BlksAnovaForm: TBlksAnovaForm
Text = 'OverallAlphaEdit'
end
object Label4: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideLeft.Control = AlphaGroup
AnchorSideTop.Control = PostAlphaEdit
AnchorSideTop.Side = asrCenter
Left = 24
@ -627,30 +633,59 @@ inherited BlksAnovaForm: TBlksAnovaForm
AnchorSideTop.Control = PosthocGroup
Left = 194
Height = 42
Top = 331
Top = 339
Width = 13
Shape = bsSpacer
end
object ShowPlotsChk: TCheckBox[33]
AnchorSideLeft.Control = AlphaGroup
AnchorSideTop.Control = AlphaGroup
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = ButtonBevel
Left = 207
Height = 19
Top = 501
Width = 79
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 8
Caption = 'Plot Means'
Checked = True
OnChange = ShowPlotsChkChange
State = cbChecked
TabOrder = 27
end
object Plot3dChk: TCheckBox[34]
AnchorSideLeft.Control = ShowPlotsChk
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ShowPlotsChk
Left = 302
Height = 19
Top = 501
Width = 34
BorderSpacing.Left = 16
Caption = '3D'
OnChange = Plot3dChkChange
TabOrder = 28
end
end
inherited ParamsSplitter: TSplitter
Left = 412
Height = 553
Height = 577
end
inherited PageControl: TPageControl
Left = 421
Height = 537
Height = 561
Width = 485
ActivePage = PosthocPage
TabIndex = 2
inherited ReportPage: TTabSheet
Caption = 'ANOVA Results'
end
inherited ChartPage: TTabSheet
Caption = 'Plots'
end
object PosthocPage: TTabSheet[2]
object PosthocPage: TTabSheet[1]
Caption = 'Post-Hoc'
TabVisible = False
end
inherited ChartPage: TTabSheet[2]
Caption = 'Plots'
end
end
end