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

LazStats: Use TAChart in OneCaseAnovaUnit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7848 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-11-08 00:16:13 +00:00
parent 64e8d40df9
commit 7b078ddc1b
3 changed files with 711 additions and 286 deletions
Download Patch File Download Diff File Expand all files Collapse all files

180
applications/lazstats/source/forms/analysis/comparisons/onecaseanovaunit.lfm
View File

@ -10,35 +10,35 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ClientWidth = 940 ClientWidth = 940
inherited ParamsPanel: TPanel inherited ParamsPanel: TPanel
Height = 529 Height = 529
Width = 401 Width = 313
ClientHeight = 529 ClientHeight = 529
ClientWidth = 401 ClientWidth = 313
inherited CloseBtn: TButton inherited CloseBtn: TButton
Left = 346 Left = 258
Top = 504 Top = 504
end end
inherited ComputeBtn: TButton inherited ComputeBtn: TButton
Left = 262 Left = 174
Top = 504 Top = 504
end end
inherited ResetBtn: TButton inherited ResetBtn: TButton
Left = 200 Left = 112
Top = 504 Top = 504
end end
inherited HelpBtn: TButton inherited HelpBtn: TButton
Tag = 107 Tag = 107
Left = 141 Left = 53
Top = 504 Top = 504
end end
inherited ButtonBevel: TBevel inherited ButtonBevel: TBevel
Top = 488 Top = 488
Width = 401 Width = 313
end end
object Label3: TLabel[5] object Label3: TLabel[5]
AnchorSideTop.Control = OverAllAlphaEdit AnchorSideTop.Control = OverAllAlphaEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = OverAllAlphaEdit AnchorSideRight.Control = OverAllAlphaEdit
Left = 263 Left = 175
Height = 30 Height = 30
Top = 297 Top = 297
Width = 79 Width = 79
@ -56,7 +56,7 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
AnchorSideRight.Control = Factor3Edit AnchorSideRight.Control = Factor3Edit
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonBevel AnchorSideBottom.Control = ButtonBevel
Left = 350 Left = 262
Height = 23 Height = 23
Top = 301 Top = 301
Width = 51 Width = 51
@ -71,7 +71,7 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
AnchorSideTop.Control = PostAlphaEdit AnchorSideTop.Control = PostAlphaEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = PostAlphaEdit AnchorSideRight.Control = PostAlphaEdit
Left = 58 Left = 74
Height = 15 Height = 15
Top = 469 Top = 469
Width = 163 Width = 163
@ -87,7 +87,7 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
AnchorSideRight.Control = PostHocGroup AnchorSideRight.Control = PostHocGroup
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonBevel AnchorSideBottom.Control = ButtonBevel
Left = 229 Left = 245
Height = 23 Height = 23
Top = 465 Top = 465
Width = 51 Width = 51
@ -99,11 +99,11 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
end end
object PostHocGroup: TGroupBox[9] object PostHocGroup: TGroupBox[9]
AnchorSideLeft.Control = ParamsPanel AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PlotOptionsGroup
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = PostAlphaEdit AnchorSideBottom.Control = PostAlphaEdit
Left = 0 Left = 16
Height = 93 Height = 93
Top = 364 Top = 364
Width = 280 Width = 280
@ -170,7 +170,7 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = OverAllAlphaEdit AnchorSideRight.Control = OverAllAlphaEdit
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 298 Left = 210
Height = 19 Height = 19
Top = 332 Top = 332
Width = 103 Width = 103
@ -182,41 +182,7 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
Caption = 'Get Interactions' Caption = 'Get Interactions'
TabOrder = 7 TabOrder = 7
end end
object PlotOptionsGroup: TRadioGroup[11] object Label1: TLabel[11]
AnchorSideLeft.Control = PostHocGroup
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = PostHocGroup
AnchorSideRight.Side = asrBottom
Left = 296
Height = 114
Top = 364
Width = 145
AutoFill = True
AutoSize = True
BorderSpacing.Left = 16
BorderSpacing.Right = 8
Caption = 'Plot Options'
ChildSizing.LeftRightSpacing = 12
ChildSizing.TopBottomSpacing = 6
ChildSizing.VerticalSpacing = 2
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 94
ClientWidth = 141
ItemIndex = 0
Items.Strings = (
'no plot'
'Vertical 3D Bars'
'Vertical 2D Bars'
'Horizontal 2D Bars'
)
TabOrder = 8
end
object Label1: TLabel[12]
AnchorSideLeft.Control = ParamsPanel AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Control = ParamsPanel AnchorSideTop.Control = ParamsPanel
Left = 0 Left = 0
@ -226,7 +192,7 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
Caption = 'Variables:' Caption = 'Variables:'
ParentColor = False ParentColor = False
end end
object VarList: TListBox[13] object VarList: TListBox[12]
AnchorSideLeft.Control = ParamsPanel AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Control = Label1 AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -235,20 +201,20 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
Left = 0 Left = 0
Height = 331 Height = 331
Top = 17 Top = 17
Width = 181 Width = 137
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 2 BorderSpacing.Top = 2
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 0 ItemHeight = 0
OnDblClick = VarListDblClick OnDblClick = VarListDblClick
OnSelectionChange = VarListSelectionChange OnSelectionChange = VarListSelectionChange
TabOrder = 9 TabOrder = 8
end end
object DepIn: TBitBtn[14] object DepIn: TBitBtn[13]
AnchorSideLeft.Control = ParamsPanel AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = VarList AnchorSideTop.Control = VarList
Left = 187 Left = 143
Height = 26 Height = 26
Top = 17 Top = 17
Width = 26 Width = 26
@ -256,13 +222,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 1 ImageIndex = 1
OnClick = DepInClick OnClick = DepInClick
Spacing = 0 Spacing = 0
TabOrder = 10 TabOrder = 9
end end
object DepOut: TBitBtn[15] object DepOut: TBitBtn[14]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = DepIn
AnchorSideTop.Control = DepIn AnchorSideTop.Control = DepIn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 187 Left = 143
Height = 26 Height = 26
Top = 47 Top = 47
Width = 26 Width = 26
@ -271,13 +237,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 0 ImageIndex = 0
OnClick = DepOutClick OnClick = DepOutClick
Spacing = 0 Spacing = 0
TabOrder = 11 TabOrder = 10
end end
object Fact1In: TBitBtn[16] object Fact1In: TBitBtn[15]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = DepIn
AnchorSideTop.Control = DepOut AnchorSideTop.Control = DepOut
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 187 Left = 143
Height = 26 Height = 26
Top = 89 Top = 89
Width = 26 Width = 26
@ -286,13 +252,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 1 ImageIndex = 1
OnClick = Fact1InClick OnClick = Fact1InClick
Spacing = 0 Spacing = 0
TabOrder = 12 TabOrder = 11
end end
object Fact1Out: TBitBtn[17] object Fact1Out: TBitBtn[16]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = DepIn
AnchorSideTop.Control = Fact1In AnchorSideTop.Control = Fact1In
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 187 Left = 143
Height = 26 Height = 26
Top = 119 Top = 119
Width = 26 Width = 26
@ -301,13 +267,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 0 ImageIndex = 0
OnClick = Fact1OutClick OnClick = Fact1OutClick
Spacing = 0 Spacing = 0
TabOrder = 13 TabOrder = 12
end end
object Fact2In: TBitBtn[18] object Fact2In: TBitBtn[17]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = DepIn
AnchorSideTop.Control = Fact1Out AnchorSideTop.Control = Fact1Out
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 187 Left = 143
Height = 26 Height = 26
Top = 161 Top = 161
Width = 26 Width = 26
@ -316,13 +282,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 1 ImageIndex = 1
OnClick = Fact2InClick OnClick = Fact2InClick
Spacing = 0 Spacing = 0
TabOrder = 14 TabOrder = 13
end end
object Fact2Out: TBitBtn[19] object Fact2Out: TBitBtn[18]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = DepIn
AnchorSideTop.Control = Fact2In AnchorSideTop.Control = Fact2In
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 187 Left = 143
Height = 26 Height = 26
Top = 191 Top = 191
Width = 26 Width = 26
@ -331,13 +297,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 0 ImageIndex = 0
OnClick = Fact2OutClick OnClick = Fact2OutClick
Spacing = 0 Spacing = 0
TabOrder = 15 TabOrder = 14
end end
object Fact3In: TBitBtn[20] object Fact3In: TBitBtn[19]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = DepIn
AnchorSideTop.Control = Fact2Out AnchorSideTop.Control = Fact2Out
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 187 Left = 143
Height = 26 Height = 26
Top = 233 Top = 233
Width = 26 Width = 26
@ -346,13 +312,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 1 ImageIndex = 1
OnClick = Fact3InClick OnClick = Fact3InClick
Spacing = 0 Spacing = 0
TabOrder = 16 TabOrder = 15
end end
object Fact3Out: TBitBtn[21] object Fact3Out: TBitBtn[20]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = DepIn
AnchorSideTop.Control = Fact3In AnchorSideTop.Control = Fact3In
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 187 Left = 143
Height = 26 Height = 26
Top = 263 Top = 263
Width = 26 Width = 26
@ -361,13 +327,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 0 ImageIndex = 0
OnClick = Fact3OutClick OnClick = Fact3OutClick
Spacing = 0 Spacing = 0
TabOrder = 17 TabOrder = 16
end end
object StaticText1: TStaticText[22] object StaticText1: TStaticText[21]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = DepVarEdit AnchorSideBottom.Control = DepVarEdit
Left = 221 Left = 177
Height = 16 Height = 16
Top = 20 Top = 20
Width = 103 Width = 103
@ -376,31 +342,31 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Bottom = 2 BorderSpacing.Bottom = 2
Caption = 'Dependent Variable' Caption = 'Dependent Variable'
TabOrder = 18 TabOrder = 17
end end
object DepVarEdit: TEdit[23] object DepVarEdit: TEdit[22]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = ParamsPanel AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = DepOut AnchorSideBottom.Control = DepOut
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 221 Left = 177
Height = 23 Height = 23
Top = 38 Top = 38
Width = 180 Width = 136
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Bottom = 12 BorderSpacing.Bottom = 12
ReadOnly = True ReadOnly = True
TabOrder = 19 TabOrder = 18
Text = 'DepVarEdit' Text = 'DepVarEdit'
end end
object StaticText2: TStaticText[24] object StaticText2: TStaticText[23]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = Factor1Edit AnchorSideBottom.Control = Factor1Edit
Left = 221 Left = 177
Height = 16 Height = 16
Top = 92 Top = 92
Width = 87 Width = 87
@ -409,31 +375,31 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Bottom = 2 BorderSpacing.Bottom = 2
Caption = 'Factor 1 Variable' Caption = 'Factor 1 Variable'
TabOrder = 20 TabOrder = 19
end end
object Factor1Edit: TEdit[25] object Factor1Edit: TEdit[24]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = ParamsPanel AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Fact1Out AnchorSideBottom.Control = Fact1Out
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 221 Left = 177
Height = 23 Height = 23
Top = 110 Top = 110
Width = 180 Width = 136
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Bottom = 12 BorderSpacing.Bottom = 12
ReadOnly = True ReadOnly = True
TabOrder = 21 TabOrder = 20
Text = 'Factor1Edit' Text = 'Factor1Edit'
end end
object StaticText3: TStaticText[26] object StaticText3: TStaticText[25]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = Factor2Edit AnchorSideBottom.Control = Factor2Edit
Left = 221 Left = 177
Height = 16 Height = 16
Top = 164 Top = 164
Width = 87 Width = 87
@ -442,31 +408,31 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Bottom = 2 BorderSpacing.Bottom = 2
Caption = 'Factor 2 Variable' Caption = 'Factor 2 Variable'
TabOrder = 22 TabOrder = 21
end end
object Factor2Edit: TEdit[27] object Factor2Edit: TEdit[26]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = ParamsPanel AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Fact2Out AnchorSideBottom.Control = Fact2Out
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 221 Left = 177
Height = 23 Height = 23
Top = 182 Top = 182
Width = 180 Width = 136
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Bottom = 12 BorderSpacing.Bottom = 12
ReadOnly = True ReadOnly = True
TabOrder = 23 TabOrder = 22
Text = 'Factor2Edit' Text = 'Factor2Edit'
end end
object StaticText4: TStaticText[28] object StaticText4: TStaticText[27]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = Factor3Edit AnchorSideBottom.Control = Factor3Edit
Left = 221 Left = 177
Height = 16 Height = 16
Top = 236 Top = 236
Width = 72 Width = 72
@ -475,34 +441,34 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Bottom = 2 BorderSpacing.Bottom = 2
Caption = 'Factor 3 Clark' Caption = 'Factor 3 Clark'
TabOrder = 24 TabOrder = 23
end end
object Factor3Edit: TEdit[29] object Factor3Edit: TEdit[28]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = ParamsPanel AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Fact3Out AnchorSideBottom.Control = Fact3Out
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 221 Left = 177
Height = 23 Height = 23
Top = 254 Top = 254
Width = 180 Width = 136
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Bottom = 12 BorderSpacing.Bottom = 12
ReadOnly = True ReadOnly = True
TabOrder = 25 TabOrder = 24
Text = 'Factor3Edit' Text = 'Factor3Edit'
end end
end end
inherited ParamsSplitter: TSplitter inherited ParamsSplitter: TSplitter
Left = 413 Left = 325
Height = 545 Height = 545
end end
inherited PageControl: TPageControl inherited PageControl: TPageControl
Left = 422 Left = 334
Height = 529 Height = 529
Width = 510 Width = 598
end end
end end

809
applications/lazstats/source/forms/analysis/comparisons/onecaseanovaunit.pas
View File

File diff suppressed because it is too large Load Diff

8
applications/lazstats/source/forms/mainunit.lfm
View File

@ -1,12 +1,12 @@
object OS3MainFrm: TOS3MainFrm object OS3MainFrm: TOS3MainFrm
Left = 484 Left = 484
Height = 519 Height = 520
Top = 194 Top = 194
Width = 725 Width = 725
HelpType = htKeyword HelpType = htKeyword
HelpKeyword = 'html/TableofContents.htm' HelpKeyword = 'html/TableofContents.htm'
Caption = 'LazStats' Caption = 'LazStats'
ClientHeight = 499 ClientHeight = 500
ClientWidth = 725 ClientWidth = 725
Font.CharSet = ANSI_CHARSET Font.CharSet = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -120,7 +120,7 @@ object OS3MainFrm: TOS3MainFrm
object PanelBottom: TPanel object PanelBottom: TPanel
Left = 0 Left = 0
Height = 41 Height = 41
Top = 458 Top = 459
Width = 725 Width = 725
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
@ -212,7 +212,7 @@ object OS3MainFrm: TOS3MainFrm
end end
object DataGrid: TStringGrid object DataGrid: TStringGrid
Left = 8 Left = 8
Height = 423 Height = 424
Top = 35 Top = 35
Width = 709 Width = 709
Align = alClient Align = alClient