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
inherited ParamsPanel: TPanel
Height = 529
Width = 401
Width = 313
ClientHeight = 529
ClientWidth = 401
ClientWidth = 313
inherited CloseBtn: TButton
Left = 346
Left = 258
Top = 504
end
inherited ComputeBtn: TButton
Left = 262
Left = 174
Top = 504
end
inherited ResetBtn: TButton
Left = 200
Left = 112
Top = 504
end
inherited HelpBtn: TButton
Tag = 107
Left = 141
Left = 53
Top = 504
end
inherited ButtonBevel: TBevel
Top = 488
Width = 401
Width = 313
end
object Label3: TLabel[5]
AnchorSideTop.Control = OverAllAlphaEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = OverAllAlphaEdit
Left = 263
Left = 175
Height = 30
Top = 297
Width = 79
@ -56,7 +56,7 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
AnchorSideRight.Control = Factor3Edit
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonBevel
Left = 350
Left = 262
Height = 23
Top = 301
Width = 51
@ -71,7 +71,7 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
AnchorSideTop.Control = PostAlphaEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = PostAlphaEdit
Left = 58
Left = 74
Height = 15
Top = 469
Width = 163
@ -87,7 +87,7 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
AnchorSideRight.Control = PostHocGroup
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonBevel
Left = 229
Left = 245
Height = 23
Top = 465
Width = 51
@ -99,11 +99,11 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
end
object PostHocGroup: TGroupBox[9]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PlotOptionsGroup
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = PostAlphaEdit
Left = 0
Left = 16
Height = 93
Top = 364
Width = 280
@ -170,7 +170,7 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = OverAllAlphaEdit
AnchorSideRight.Side = asrBottom
Left = 298
Left = 210
Height = 19
Top = 332
Width = 103
@ -182,41 +182,7 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
Caption = 'Get Interactions'
TabOrder = 7
end
object PlotOptionsGroup: TRadioGroup[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]
object Label1: TLabel[11]
AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Control = ParamsPanel
Left = 0
@ -226,7 +192,7 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
Caption = 'Variables:'
ParentColor = False
end
object VarList: TListBox[13]
object VarList: TListBox[12]
AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
@ -235,20 +201,20 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
Left = 0
Height = 331
Top = 17
Width = 181
Width = 137
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 2
BorderSpacing.Right = 6
ItemHeight = 0
OnDblClick = VarListDblClick
OnSelectionChange = VarListSelectionChange
TabOrder = 9
TabOrder = 8
end
object DepIn: TBitBtn[14]
object DepIn: TBitBtn[13]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = VarList
Left = 187
Left = 143
Height = 26
Top = 17
Width = 26
@ -256,13 +222,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 1
OnClick = DepInClick
Spacing = 0
TabOrder = 10
TabOrder = 9
end
object DepOut: TBitBtn[15]
object DepOut: TBitBtn[14]
AnchorSideLeft.Control = DepIn
AnchorSideTop.Control = DepIn
AnchorSideTop.Side = asrBottom
Left = 187
Left = 143
Height = 26
Top = 47
Width = 26
@ -271,13 +237,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 0
OnClick = DepOutClick
Spacing = 0
TabOrder = 11
TabOrder = 10
end
object Fact1In: TBitBtn[16]
object Fact1In: TBitBtn[15]
AnchorSideLeft.Control = DepIn
AnchorSideTop.Control = DepOut
AnchorSideTop.Side = asrBottom
Left = 187
Left = 143
Height = 26
Top = 89
Width = 26
@ -286,13 +252,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 1
OnClick = Fact1InClick
Spacing = 0
TabOrder = 12
TabOrder = 11
end
object Fact1Out: TBitBtn[17]
object Fact1Out: TBitBtn[16]
AnchorSideLeft.Control = DepIn
AnchorSideTop.Control = Fact1In
AnchorSideTop.Side = asrBottom
Left = 187
Left = 143
Height = 26
Top = 119
Width = 26
@ -301,13 +267,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 0
OnClick = Fact1OutClick
Spacing = 0
TabOrder = 13
TabOrder = 12
end
object Fact2In: TBitBtn[18]
object Fact2In: TBitBtn[17]
AnchorSideLeft.Control = DepIn
AnchorSideTop.Control = Fact1Out
AnchorSideTop.Side = asrBottom
Left = 187
Left = 143
Height = 26
Top = 161
Width = 26
@ -316,13 +282,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 1
OnClick = Fact2InClick
Spacing = 0
TabOrder = 14
TabOrder = 13
end
object Fact2Out: TBitBtn[19]
object Fact2Out: TBitBtn[18]
AnchorSideLeft.Control = DepIn
AnchorSideTop.Control = Fact2In
AnchorSideTop.Side = asrBottom
Left = 187
Left = 143
Height = 26
Top = 191
Width = 26
@ -331,13 +297,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 0
OnClick = Fact2OutClick
Spacing = 0
TabOrder = 15
TabOrder = 14
end
object Fact3In: TBitBtn[20]
object Fact3In: TBitBtn[19]
AnchorSideLeft.Control = DepIn
AnchorSideTop.Control = Fact2Out
AnchorSideTop.Side = asrBottom
Left = 187
Left = 143
Height = 26
Top = 233
Width = 26
@ -346,13 +312,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 1
OnClick = Fact3InClick
Spacing = 0
TabOrder = 16
TabOrder = 15
end
object Fact3Out: TBitBtn[21]
object Fact3Out: TBitBtn[20]
AnchorSideLeft.Control = DepIn
AnchorSideTop.Control = Fact3In
AnchorSideTop.Side = asrBottom
Left = 187
Left = 143
Height = 26
Top = 263
Width = 26
@ -361,13 +327,13 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
ImageIndex = 0
OnClick = Fact3OutClick
Spacing = 0
TabOrder = 17
TabOrder = 16
end
object StaticText1: TStaticText[22]
object StaticText1: TStaticText[21]
AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = DepVarEdit
Left = 221
Left = 177
Height = 16
Top = 20
Width = 103
@ -376,31 +342,31 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
BorderSpacing.Left = 8
BorderSpacing.Bottom = 2
Caption = 'Dependent Variable'
TabOrder = 18
TabOrder = 17
end
object DepVarEdit: TEdit[23]
object DepVarEdit: TEdit[22]
AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = DepOut
AnchorSideBottom.Side = asrBottom
Left = 221
Left = 177
Height = 23
Top = 38
Width = 180
Width = 136
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 19
TabOrder = 18
Text = 'DepVarEdit'
end
object StaticText2: TStaticText[24]
object StaticText2: TStaticText[23]
AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = Factor1Edit
Left = 221
Left = 177
Height = 16
Top = 92
Width = 87
@ -409,31 +375,31 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
BorderSpacing.Left = 8
BorderSpacing.Bottom = 2
Caption = 'Factor 1 Variable'
TabOrder = 20
TabOrder = 19
end
object Factor1Edit: TEdit[25]
object Factor1Edit: TEdit[24]
AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Fact1Out
AnchorSideBottom.Side = asrBottom
Left = 221
Left = 177
Height = 23
Top = 110
Width = 180
Width = 136
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 21
TabOrder = 20
Text = 'Factor1Edit'
end
object StaticText3: TStaticText[26]
object StaticText3: TStaticText[25]
AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = Factor2Edit
Left = 221
Left = 177
Height = 16
Top = 164
Width = 87
@ -442,31 +408,31 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
BorderSpacing.Left = 8
BorderSpacing.Bottom = 2
Caption = 'Factor 2 Variable'
TabOrder = 22
TabOrder = 21
end
object Factor2Edit: TEdit[27]
object Factor2Edit: TEdit[26]
AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Fact2Out
AnchorSideBottom.Side = asrBottom
Left = 221
Left = 177
Height = 23
Top = 182
Width = 180
Width = 136
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 23
TabOrder = 22
Text = 'Factor2Edit'
end
object StaticText4: TStaticText[28]
object StaticText4: TStaticText[27]
AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = Factor3Edit
Left = 221
Left = 177
Height = 16
Top = 236
Width = 72
@ -475,34 +441,34 @@ inherited OneCaseAnovaForm: TOneCaseAnovaForm
BorderSpacing.Left = 8
BorderSpacing.Bottom = 2
Caption = 'Factor 3 Clark'
TabOrder = 24
TabOrder = 23
end
object Factor3Edit: TEdit[29]
object Factor3Edit: TEdit[28]
AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Fact3Out
AnchorSideBottom.Side = asrBottom
Left = 221
Left = 177
Height = 23
Top = 254
Width = 180
Width = 136
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 25
TabOrder = 24
Text = 'Factor3Edit'
end
end
inherited ParamsSplitter: TSplitter
Left = 413
Left = 325
Height = 545
end
inherited PageControl: TPageControl
Left = 422
Left = 334
Height = 529
Width = 510
Width = 598
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
Left = 484
Height = 519
Height = 520
Top = 194
Width = 725
HelpType = htKeyword
HelpKeyword = 'html/TableofContents.htm'
Caption = 'LazStats'
ClientHeight = 499
ClientHeight = 500
ClientWidth = 725
Font.CharSet = ANSI_CHARSET
Font.Color = clBlack
@ -120,7 +120,7 @@ object OS3MainFrm: TOS3MainFrm
object PanelBottom: TPanel
Left = 0
Height = 41
Top = 458
Top = 459
Width = 725
Align = alBottom
BevelOuter = bvNone
@ -212,7 +212,7 @@ object OS3MainFrm: TOS3MainFrm
end
object DataGrid: TStringGrid
Left = 8
Height = 423
Height = 424
Top = 35
Width = 709
Align = alClient