2020-03-30 18:01:44 +00:00
object BartlettTestForm: TBartlettTestForm
Left = 474
2020-04-11 21:08:48 +00:00
Height = 394
2020-03-30 18:01:44 +00:00
Top = 304
Width = 411
2020-05-26 14:51:03 +00:00
HelpType = htKeyword
HelpKeyword = 'BartlettTestofSphericity.htm'
2020-03-30 18:01:44 +00:00
AutoSize = True
Caption = 'Bartlett Test of Sphericity'
2020-04-11 21:08:48 +00:00
ClientHeight = 394
2020-03-30 18:01:44 +00:00
ClientWidth = 411
OnActivate = FormActivate
OnCreate = FormCreate
OnShow = ResetBtnClick
Position = poMainFormCenter
LCLVersion = '2.1.0.0'
object ResetBtn: TButton
2020-04-11 21:08:48 +00:00
AnchorSideRight.Control = ComputeBtn
2020-03-30 18:01:44 +00:00
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
2020-04-11 21:08:48 +00:00
Left = 202
2020-03-30 18:01:44 +00:00
Height = 25
2020-04-11 21:08:48 +00:00
Top = 361
2020-03-30 18:01:44 +00:00
Width = 54
Anchors = [akRight, akBottom]
AutoSize = True
2020-04-11 21:08:48 +00:00
BorderSpacing.Left = 8
2020-03-30 18:01:44 +00:00
BorderSpacing.Top = 8
2020-04-11 21:08:48 +00:00
BorderSpacing.Right = 8
2020-03-30 18:01:44 +00:00
BorderSpacing.Bottom = 8
Caption = 'Reset'
OnClick = ResetBtnClick
2020-04-11 21:08:48 +00:00
TabOrder = 2
2020-03-30 18:01:44 +00:00
end
object ComputeBtn: TButton
2020-04-11 21:08:48 +00:00
AnchorSideRight.Control = CloseBtn
2020-03-30 18:01:44 +00:00
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
2020-04-11 21:08:48 +00:00
Left = 264
2020-03-30 18:01:44 +00:00
Height = 25
2020-04-11 21:08:48 +00:00
Top = 361
2020-03-30 18:01:44 +00:00
Width = 76
Anchors = [akRight, akBottom]
AutoSize = True
2020-04-11 21:08:48 +00:00
BorderSpacing.Left = 8
2020-03-30 18:01:44 +00:00
BorderSpacing.Top = 8
2020-04-11 21:08:48 +00:00
BorderSpacing.Right = 8
2020-03-30 18:01:44 +00:00
BorderSpacing.Bottom = 8
Caption = 'Compute'
OnClick = ComputeBtnClick
2020-04-11 21:08:48 +00:00
TabOrder = 3
2020-03-30 18:01:44 +00:00
end
object HelpBtn: TButton
Tag = 119
AnchorSideRight.Control = ResetBtn
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
2020-04-11 21:08:48 +00:00
Left = 143
2020-03-30 18:01:44 +00:00
Height = 25
2020-04-11 21:08:48 +00:00
Top = 361
2020-03-30 18:01:44 +00:00
Width = 51
Anchors = [akRight, akBottom]
AutoSize = True
2020-04-11 21:08:48 +00:00
BorderSpacing.Left = 8
2020-03-30 18:01:44 +00:00
BorderSpacing.Top = 8
2020-04-11 21:08:48 +00:00
BorderSpacing.Right = 8
2020-03-30 18:01:44 +00:00
BorderSpacing.Bottom = 8
Caption = 'Help'
OnClick = HelpBtnClick
2020-04-11 21:08:48 +00:00
TabOrder = 1
2020-03-30 18:01:44 +00:00
end
2020-04-11 21:08:48 +00:00
object CloseBtn: TButton
2020-03-30 18:01:44 +00:00
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
2020-04-11 21:08:48 +00:00
Left = 348
2020-03-30 18:01:44 +00:00
Height = 25
2020-04-11 21:08:48 +00:00
Top = 361
Width = 55
2020-03-30 18:01:44 +00:00
Anchors = [akRight, akBottom]
AutoSize = True
2020-04-11 21:08:48 +00:00
BorderSpacing.Left = 8
2020-03-30 18:01:44 +00:00
BorderSpacing.Top = 8
2020-04-11 21:08:48 +00:00
BorderSpacing.Right = 8
2020-03-30 18:01:44 +00:00
BorderSpacing.Bottom = 8
2020-04-11 21:08:48 +00:00
Caption = 'Close'
ModalResult = 11
TabOrder = 4
2020-03-30 18:01:44 +00:00
end
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Height = 45
Top = 8
Width = 395
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Caption = 'This is the Bartlett test of sphericity for three or more variables. Enter three or more of the variables listed in the left box and press the compute button to obtain the results.'
ParentColor = False
WordWrap = True
end
object Bevel1: TBevel
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
2020-04-11 21:08:48 +00:00
AnchorSideBottom.Control = CloseBtn
2020-03-30 18:01:44 +00:00
Left = 0
Height = 8
2020-04-11 21:08:48 +00:00
Top = 345
2020-03-30 18:01:44 +00:00
Width = 411
Anchors = [akLeft, akRight, akBottom]
Shape = bsBottomLine
end
object Panel1: TPanel
AnchorSideLeft.Control = Owner
2020-04-11 21:08:48 +00:00
AnchorSideTop.Control = Memo1
2020-03-30 18:01:44 +00:00
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Bevel1
Left = 0
2020-04-11 21:08:48 +00:00
Height = 292
Top = 53
2020-03-30 18:01:44 +00:00
Width = 411
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True
BevelOuter = bvNone
2020-04-11 21:08:48 +00:00
ClientHeight = 292
2020-03-30 18:01:44 +00:00
ClientWidth = 411
Constraints.MinHeight = 240
2020-04-11 21:08:48 +00:00
TabOrder = 0
2020-03-30 18:01:44 +00:00
object Label2: TLabel
AnchorSideTop.Control = Panel1
Left = 8
Height = 15
Top = 8
Width = 46
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Variables'
ParentColor = False
end
object VarList: TListBox
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = AllBtn
AnchorSideBottom.Control = ChiSqrEdit
Left = 8
2020-04-11 21:08:48 +00:00
Height = 198
2020-03-30 18:01:44 +00:00
Top = 25
Width = 166
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Top = 2
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ItemHeight = 0
MultiSelect = True
2020-04-11 21:08:48 +00:00
OnSelectionChange = VarListSelectionChange
2020-03-30 18:01:44 +00:00
TabOrder = 0
end
object Label3: TLabel
AnchorSideLeft.Control = SelList
AnchorSideTop.Control = Label2
Left = 236
Height = 15
Top = 8
Width = 44
Caption = 'Selected'
ParentColor = False
end
object SelList: TListBox
AnchorSideLeft.Control = AllBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
2020-04-11 21:08:48 +00:00
AnchorSideBottom.Control = VarList
AnchorSideBottom.Side = asrBottom
2020-03-30 18:01:44 +00:00
Left = 236
2020-04-11 21:08:48 +00:00
Height = 198
2020-03-30 18:01:44 +00:00
Top = 25
Width = 167
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Top = 2
BorderSpacing.Right = 8
ItemHeight = 0
2020-04-11 21:08:48 +00:00
MultiSelect = True
OnSelectionChange = VarListSelectionChange
2020-03-30 18:01:44 +00:00
TabOrder = 4
end
object InBtn: TBitBtn
AnchorSideLeft.Control = Panel1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = VarList
Left = 191
Height = 26
Top = 25
Width = 28
Images = MainDataModule.ImageList
ImageIndex = 1
OnClick = InBtnClick
Spacing = 0
TabOrder = 1
end
object OutBtn: TBitBtn
AnchorSideLeft.Control = Panel1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = InBtn
AnchorSideTop.Side = asrBottom
Left = 191
Height = 26
Top = 55
Width = 28
BorderSpacing.Top = 4
Images = MainDataModule.ImageList
ImageIndex = 0
OnClick = OutBtnClick
Spacing = 0
TabOrder = 2
end
object AllBtn: TBitBtn
AnchorSideLeft.Control = Panel1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = OutBtn
AnchorSideTop.Side = asrBottom
Left = 182
Height = 25
Top = 85
Width = 46
AutoSize = True
BorderSpacing.Top = 4
Caption = 'ALL'
OnClick = AllBtnClick
Spacing = 0
TabOrder = 3
end
object Label1: TLabel
AnchorSideTop.Control = ChiSqrEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ChiSqrEdit
2020-04-11 21:08:48 +00:00
Left = 33
2020-03-30 18:01:44 +00:00
Height = 15
2020-04-11 21:08:48 +00:00
Top = 235
Width = 60
2020-03-30 18:01:44 +00:00
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
2020-04-11 21:08:48 +00:00
Caption = 'Chi Square:'
2020-03-30 18:01:44 +00:00
ParentColor = False
end
object ChiSqrEdit: TEdit
2020-04-11 21:08:48 +00:00
AnchorSideLeft.Control = DFEdit
2020-03-30 18:01:44 +00:00
AnchorSideRight.Control = VarList
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Panel1
AnchorSideBottom.Side = asrBottom
2020-04-11 21:08:48 +00:00
Left = 101
2020-03-30 18:01:44 +00:00
Height = 23
2020-04-11 21:08:48 +00:00
Top = 231
Width = 73
2020-03-30 18:01:44 +00:00
Alignment = taRightJustify
2020-04-11 21:08:48 +00:00
Anchors = [akLeft, akRight]
ReadOnly = True
2020-03-30 18:01:44 +00:00
TabOrder = 5
Text = 'ChiSqrEdit'
end
object Label4: TLabel
AnchorSideTop.Control = ProbEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ProbEdit
2020-04-11 21:08:48 +00:00
Left = 255
2020-03-30 18:01:44 +00:00
Height = 15
2020-04-11 21:08:48 +00:00
Top = 235
Width = 60
2020-03-30 18:01:44 +00:00
Anchors = [akTop, akRight]
2020-04-11 21:08:48 +00:00
BorderSpacing.Right = 8
Caption = 'Probability:'
2020-03-30 18:01:44 +00:00
ParentColor = False
end
object ProbEdit: TEdit
2020-04-11 21:08:48 +00:00
AnchorSideTop.Control = ChiSqrEdit
2020-03-30 18:01:44 +00:00
AnchorSideRight.Control = SelList
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 323
Height = 23
2020-04-11 21:08:48 +00:00
Top = 231
2020-03-30 18:01:44 +00:00
Width = 80
Alignment = taRightJustify
2020-04-11 21:08:48 +00:00
Anchors = [akTop, akRight]
ReadOnly = True
2020-03-30 18:01:44 +00:00
TabOrder = 6
Text = 'ProbEdit'
end
2020-04-11 21:08:48 +00:00
object Label5: TLabel
AnchorSideLeft.Control = VarList
AnchorSideTop.Control = DFEdit
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = DFEdit
Left = 16
Height = 15
Top = 266
Width = 77
Alignment = taRightJustify
BorderSpacing.Left = 8
Caption = 'Deg. Freedom:'
ParentColor = False
end
object DFEdit: TEdit
AnchorSideLeft.Control = Label5
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ChiSqrEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ChiSqrEdit
AnchorSideRight.Side = asrBottom
Left = 101
Height = 23
Top = 262
Width = 73
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
ReadOnly = True
TabOrder = 7
Text = 'DFEdit'
end
2020-03-30 18:01:44 +00:00
end
end