2020-03-30 18:01:44 +00:00
|
|
|
object ChiSqrFrm: TChiSqrFrm
|
|
|
|
Left = 425
|
|
|
|
Height = 566
|
|
|
|
Top = 216
|
|
|
|
Width = 474
|
2020-05-10 10:37:19 +00:00
|
|
|
HelpType = htKeyword
|
|
|
|
HelpKeyword = 'ContingencyChi-Square.htm'
|
2020-03-30 18:01:44 +00:00
|
|
|
AutoSize = True
|
|
|
|
Caption = 'Contingency Chi Squared'
|
|
|
|
ClientHeight = 566
|
|
|
|
ClientWidth = 474
|
|
|
|
OnActivate = FormActivate
|
|
|
|
OnCreate = FormCreate
|
|
|
|
OnShow = FormShow
|
|
|
|
Position = poMainFormCenter
|
|
|
|
LCLVersion = '2.1.0.0'
|
|
|
|
object Label1: TLabel
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideTop.Control = InputGrp
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 8
|
|
|
|
Height = 15
|
|
|
|
Top = 109
|
|
|
|
Width = 97
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Top = 8
|
|
|
|
Caption = 'Available Variables'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label2: TLabel
|
|
|
|
AnchorSideLeft.Control = RowEdit
|
|
|
|
AnchorSideBottom.Control = RowEdit
|
|
|
|
Left = 265
|
|
|
|
Height = 15
|
|
|
|
Top = 134
|
|
|
|
Width = 67
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Bottom = 2
|
|
|
|
Caption = 'Row Variable'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label3: TLabel
|
|
|
|
AnchorSideLeft.Control = ColEdit
|
|
|
|
AnchorSideBottom.Control = ColEdit
|
|
|
|
Left = 265
|
|
|
|
Height = 15
|
|
|
|
Top = 214
|
|
|
|
Width = 87
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Bottom = 2
|
|
|
|
Caption = 'Column Variable'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object AnalyzeLabel: TLabel
|
|
|
|
AnchorSideLeft.Control = DepEdit
|
|
|
|
AnchorSideBottom.Control = DepEdit
|
|
|
|
Left = 265
|
|
|
|
Height = 15
|
|
|
|
Top = 294
|
|
|
|
Width = 99
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Bottom = 2
|
|
|
|
Caption = 'Variable to Analyze'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object NCasesLabel: TLabel
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideTop.Control = NCasesEdit
|
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
AnchorSideRight.Control = NCasesEdit
|
|
|
|
Left = 8
|
|
|
|
Height = 15
|
|
|
|
Top = 498
|
|
|
|
Width = 97
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
Caption = 'Total No. of Cases:'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object InputGrp: TRadioGroup
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideTop.Control = Owner
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
Left = 8
|
|
|
|
Height = 93
|
|
|
|
Top = 8
|
|
|
|
Width = 458
|
|
|
|
Anchors = [akTop, akLeft, akRight]
|
|
|
|
AutoFill = True
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Top = 8
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
Caption = 'Input Options'
|
|
|
|
ChildSizing.LeftRightSpacing = 6
|
|
|
|
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 = 73
|
|
|
|
ClientWidth = 454
|
|
|
|
Items.Strings = (
|
|
|
|
'Count vases classified by row and column vectors in the data grid'
|
|
|
|
'Use frequencies recorded in the data grid for row and column variables'
|
|
|
|
'Use proportions recorded in the data grid for row and column variables'
|
|
|
|
)
|
|
|
|
OnClick = InputGrpClick
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object VarList: TListBox
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideTop.Control = Label1
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = RowIn
|
|
|
|
AnchorSideBottom.Control = NCasesEdit
|
|
|
|
Left = 8
|
|
|
|
Height = 360
|
|
|
|
Top = 126
|
|
|
|
Width = 213
|
|
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
ItemHeight = 0
|
|
|
|
OnSelectionChange = VarListSelectionChange
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object RowIn: TBitBtn
|
|
|
|
AnchorSideLeft.Control = OptionsGroup
|
|
|
|
AnchorSideTop.Control = VarList
|
|
|
|
Left = 229
|
|
|
|
Height = 28
|
|
|
|
Top = 126
|
|
|
|
Width = 28
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 1
|
|
|
|
OnClick = RowInClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 2
|
|
|
|
end
|
|
|
|
object RowOut: TBitBtn
|
|
|
|
AnchorSideLeft.Control = OptionsGroup
|
|
|
|
AnchorSideTop.Control = RowIn
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 229
|
|
|
|
Height = 28
|
|
|
|
Top = 158
|
|
|
|
Width = 28
|
|
|
|
BorderSpacing.Top = 4
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 0
|
|
|
|
OnClick = RowOutClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 3
|
|
|
|
end
|
|
|
|
object ColIn: TBitBtn
|
|
|
|
AnchorSideLeft.Control = OptionsGroup
|
|
|
|
AnchorSideTop.Control = RowOut
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 229
|
|
|
|
Height = 28
|
|
|
|
Top = 206
|
|
|
|
Width = 28
|
|
|
|
BorderSpacing.Top = 20
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 1
|
|
|
|
OnClick = ColInClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 5
|
|
|
|
end
|
|
|
|
object ColOut: TBitBtn
|
|
|
|
AnchorSideLeft.Control = OptionsGroup
|
|
|
|
AnchorSideTop.Control = ColIn
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 229
|
|
|
|
Height = 28
|
|
|
|
Top = 238
|
|
|
|
Width = 28
|
|
|
|
BorderSpacing.Top = 4
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 0
|
|
|
|
OnClick = ColOutClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 6
|
|
|
|
end
|
|
|
|
object DepIn: TBitBtn
|
|
|
|
AnchorSideLeft.Control = OptionsGroup
|
|
|
|
AnchorSideTop.Control = ColOut
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 229
|
|
|
|
Height = 28
|
|
|
|
Top = 286
|
|
|
|
Width = 28
|
|
|
|
BorderSpacing.Top = 20
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 1
|
|
|
|
OnClick = DepInClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 8
|
|
|
|
end
|
|
|
|
object DepOut: TBitBtn
|
|
|
|
AnchorSideLeft.Control = OptionsGroup
|
|
|
|
AnchorSideTop.Control = DepIn
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 229
|
|
|
|
Height = 28
|
|
|
|
Top = 318
|
|
|
|
Width = 28
|
|
|
|
BorderSpacing.Top = 4
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 0
|
|
|
|
OnClick = DepOutClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 9
|
|
|
|
end
|
|
|
|
object RowEdit: TEdit
|
|
|
|
AnchorSideLeft.Control = RowOut
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = RowOut
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 265
|
|
|
|
Height = 23
|
|
|
|
Top = 151
|
|
|
|
Width = 201
|
|
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 12
|
|
|
|
ReadOnly = True
|
|
|
|
TabOrder = 4
|
|
|
|
Text = 'RowEdit'
|
|
|
|
end
|
|
|
|
object ColEdit: TEdit
|
|
|
|
AnchorSideLeft.Control = ColIn
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = ColOut
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 265
|
|
|
|
Height = 23
|
|
|
|
Top = 231
|
|
|
|
Width = 201
|
|
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 12
|
|
|
|
ReadOnly = True
|
|
|
|
TabOrder = 7
|
|
|
|
Text = 'ColEdit'
|
|
|
|
end
|
|
|
|
object DepEdit: TEdit
|
|
|
|
AnchorSideLeft.Control = DepIn
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = DepOut
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 265
|
|
|
|
Height = 23
|
|
|
|
Top = 311
|
|
|
|
Width = 201
|
|
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 12
|
|
|
|
ReadOnly = True
|
|
|
|
TabOrder = 10
|
|
|
|
Text = 'DepEdit'
|
|
|
|
end
|
|
|
|
object NCasesEdit: TEdit
|
|
|
|
AnchorSideLeft.Control = NCasesLabel
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = OptionsGroup
|
|
|
|
AnchorSideBottom.Control = Bevel1
|
|
|
|
Left = 113
|
|
|
|
Height = 23
|
|
|
|
Top = 494
|
|
|
|
Width = 69
|
|
|
|
Alignment = taRightJustify
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Top = 8
|
|
|
|
TabOrder = 11
|
|
|
|
Text = 'NCasesEdit'
|
|
|
|
end
|
|
|
|
object OptionsGroup: TGroupBox
|
|
|
|
AnchorSideTop.Control = DepOut
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
Left = 229
|
|
|
|
Height = 152
|
|
|
|
Top = 362
|
|
|
|
Width = 237
|
|
|
|
Anchors = [akTop, akRight]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Top = 16
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
Caption = 'Output Options:'
|
|
|
|
ChildSizing.LeftRightSpacing = 12
|
|
|
|
ChildSizing.TopBottomSpacing = 4
|
|
|
|
ChildSizing.VerticalSpacing = 2
|
|
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
|
|
ChildSizing.ControlsPerLine = 1
|
|
|
|
ClientHeight = 132
|
|
|
|
ClientWidth = 233
|
|
|
|
TabOrder = 12
|
|
|
|
object ObsChk: TCheckBox
|
|
|
|
Left = 12
|
|
|
|
Height = 19
|
|
|
|
Top = 4
|
|
|
|
Width = 209
|
|
|
|
Caption = 'Show Observed Frequencies'
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object ExpChk: TCheckBox
|
|
|
|
Left = 12
|
|
|
|
Height = 19
|
|
|
|
Top = 25
|
|
|
|
Width = 209
|
|
|
|
Caption = 'Show Expected Frequencies'
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object PropsChk: TCheckBox
|
|
|
|
Left = 12
|
|
|
|
Height = 19
|
|
|
|
Top = 46
|
|
|
|
Width = 209
|
|
|
|
Caption = 'Show Row and Column Proportions'
|
|
|
|
TabOrder = 2
|
|
|
|
end
|
|
|
|
object CellChiChk: TCheckBox
|
|
|
|
Left = 12
|
|
|
|
Height = 19
|
|
|
|
Top = 67
|
|
|
|
Width = 209
|
|
|
|
Caption = 'Show Cell Chi-Squared Values'
|
|
|
|
TabOrder = 3
|
|
|
|
end
|
|
|
|
object YatesChk: TCheckBox
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 12
|
|
|
|
Height = 19
|
|
|
|
Top = 88
|
|
|
|
Width = 209
|
|
|
|
Caption = 'Use Yates Correction'
|
|
|
|
TabOrder = 5
|
|
|
|
end
|
|
|
|
object SaveFChk: TCheckBox
|
|
|
|
Left = 12
|
|
|
|
Height = 19
|
|
|
|
Top = 109
|
|
|
|
Width = 209
|
|
|
|
Caption = 'Save a File of Frequency Data'
|
|
|
|
TabOrder = 4
|
|
|
|
end
|
|
|
|
end
|
|
|
|
object ResetBtn: TButton
|
|
|
|
AnchorSideRight.Control = ComputeBtn
|
|
|
|
AnchorSideBottom.Control = Owner
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 265
|
|
|
|
Height = 25
|
|
|
|
Top = 533
|
|
|
|
Width = 54
|
|
|
|
Anchors = [akRight, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
Caption = 'Reset'
|
|
|
|
OnClick = ResetBtnClick
|
|
|
|
TabOrder = 13
|
|
|
|
end
|
|
|
|
object ComputeBtn: TButton
|
|
|
|
AnchorSideRight.Control = CloseBtn
|
|
|
|
AnchorSideBottom.Control = Owner
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 327
|
|
|
|
Height = 25
|
|
|
|
Top = 533
|
|
|
|
Width = 76
|
|
|
|
Anchors = [akRight, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
Caption = 'Compute'
|
|
|
|
OnClick = ComputeBtnClick
|
|
|
|
TabOrder = 14
|
|
|
|
end
|
|
|
|
object CloseBtn: TButton
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = Owner
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 411
|
|
|
|
Height = 25
|
|
|
|
Top = 533
|
|
|
|
Width = 55
|
|
|
|
Anchors = [akRight, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Top = 8
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
Caption = 'Close'
|
|
|
|
ModalResult = 11
|
|
|
|
TabOrder = 15
|
|
|
|
end
|
|
|
|
object Bevel1: TBevel
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = CloseBtn
|
|
|
|
Left = 0
|
|
|
|
Height = 8
|
|
|
|
Top = 517
|
|
|
|
Width = 474
|
|
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
|
|
Shape = bsBottomLine
|
|
|
|
end
|
|
|
|
end
|