You've already forked lazarus-ccr
358 lines
9.7 KiB
Plaintext
358 lines
9.7 KiB
Plaintext
![]() |
object SimpleChiSqrForm: TSimpleChiSqrForm
|
||
|
Left = 827
|
||
|
Height = 436
|
||
|
Top = 221
|
||
|
Width = 408
|
||
|
Caption = 'Simple ChiSquare for Categories'
|
||
|
ClientHeight = 436
|
||
|
ClientWidth = 408
|
||
|
OnActivate = FormActivate
|
||
|
OnCreate = FormCreate
|
||
|
OnResize = FormResize
|
||
|
OnShow = ResetBtnClick
|
||
|
Position = poMainFormCenter
|
||
|
LCLVersion = '2.1.0.0'
|
||
|
object Label1: TLabel
|
||
|
AnchorSideTop.Control = NcatsEdit
|
||
|
AnchorSideTop.Side = asrCenter
|
||
|
AnchorSideRight.Control = NcatsEdit
|
||
|
Left = 168
|
||
|
Height = 30
|
||
|
Top = 65
|
||
|
Width = 166
|
||
|
Anchors = [akTop, akRight]
|
||
|
BorderSpacing.Left = 8
|
||
|
BorderSpacing.Right = 8
|
||
|
Caption = 'Enter the number of categories:'#13#10'Click the mouse after entering.'
|
||
|
ParentColor = False
|
||
|
end
|
||
|
object NcatsEdit: TEdit
|
||
|
AnchorSideLeft.Side = asrBottom
|
||
|
AnchorSideTop.Control = Memo1
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = Owner
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
Left = 342
|
||
|
Height = 23
|
||
|
Top = 69
|
||
|
Width = 58
|
||
|
Alignment = taRightJustify
|
||
|
Anchors = [akTop, akRight]
|
||
|
BorderSpacing.Left = 8
|
||
|
BorderSpacing.Top = 16
|
||
|
BorderSpacing.Right = 8
|
||
|
BorderSpacing.Bottom = 16
|
||
|
OnClick = NcatsEditExit
|
||
|
OnExit = NcatsEditExit
|
||
|
TabOrder = 0
|
||
|
Text = '1'
|
||
|
end
|
||
|
object ComputeBtn: TButton
|
||
|
AnchorSideRight.Control = ReturnBtn
|
||
|
AnchorSideBottom.Control = Owner
|
||
|
AnchorSideBottom.Side = asrBottom
|
||
|
Left = 251
|
||
|
Height = 25
|
||
|
Top = 403
|
||
|
Width = 76
|
||
|
Anchors = [akRight, akBottom]
|
||
|
AutoSize = True
|
||
|
BorderSpacing.Right = 12
|
||
|
BorderSpacing.Bottom = 8
|
||
|
Caption = 'Compute'
|
||
|
OnClick = ComputeBtnClick
|
||
|
TabOrder = 5
|
||
|
end
|
||
|
object ResetBtn: TButton
|
||
|
AnchorSideRight.Control = ComputeBtn
|
||
|
AnchorSideBottom.Control = Owner
|
||
|
AnchorSideBottom.Side = asrBottom
|
||
|
Left = 185
|
||
|
Height = 25
|
||
|
Top = 403
|
||
|
Width = 54
|
||
|
Anchors = [akRight, akBottom]
|
||
|
AutoSize = True
|
||
|
BorderSpacing.Left = 8
|
||
|
BorderSpacing.Right = 12
|
||
|
BorderSpacing.Bottom = 8
|
||
|
Caption = 'Reset'
|
||
|
OnClick = ResetBtnClick
|
||
|
TabOrder = 4
|
||
|
end
|
||
|
object ReturnBtn: TButton
|
||
|
AnchorSideRight.Control = Owner
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
AnchorSideBottom.Control = Owner
|
||
|
AnchorSideBottom.Side = asrBottom
|
||
|
Left = 339
|
||
|
Height = 25
|
||
|
Top = 403
|
||
|
Width = 61
|
||
|
Anchors = [akRight, akBottom]
|
||
|
AutoSize = True
|
||
|
BorderSpacing.Top = 8
|
||
|
BorderSpacing.Right = 8
|
||
|
BorderSpacing.Bottom = 8
|
||
|
Caption = 'Return'
|
||
|
ModalResult = 1
|
||
|
TabOrder = 6
|
||
|
end
|
||
|
object Label5: TLabel
|
||
|
AnchorSideTop.Control = TotChiSqrEdit
|
||
|
AnchorSideTop.Side = asrCenter
|
||
|
AnchorSideRight.Control = TotChiSqrEdit
|
||
|
Left = 152
|
||
|
Height = 15
|
||
|
Top = 341
|
||
|
Width = 96
|
||
|
Anchors = [akTop, akRight]
|
||
|
BorderSpacing.Right = 8
|
||
|
Caption = 'Total ChiSquare = '
|
||
|
ParentColor = False
|
||
|
end
|
||
|
object TotChiSqrEdit: TEdit
|
||
|
AnchorSideRight.Control = Panel1
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
AnchorSideBottom.Control = ProbEdit
|
||
|
Left = 256
|
||
|
Height = 23
|
||
|
Top = 337
|
||
|
Width = 144
|
||
|
Alignment = taRightJustify
|
||
|
Anchors = [akRight, akBottom]
|
||
|
BorderSpacing.Top = 12
|
||
|
BorderSpacing.Bottom = 4
|
||
|
ReadOnly = True
|
||
|
TabOrder = 2
|
||
|
end
|
||
|
object Label6: TLabel
|
||
|
AnchorSideTop.Control = ProbEdit
|
||
|
AnchorSideTop.Side = asrCenter
|
||
|
AnchorSideRight.Control = ProbEdit
|
||
|
Left = 172
|
||
|
Height = 15
|
||
|
Top = 368
|
||
|
Width = 76
|
||
|
Anchors = [akTop, akRight]
|
||
|
BorderSpacing.Right = 8
|
||
|
Caption = 'Probability >='
|
||
|
ParentColor = False
|
||
|
end
|
||
|
object ProbEdit: TEdit
|
||
|
AnchorSideTop.Control = Bevel1
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = Panel1
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
AnchorSideBottom.Control = Bevel1
|
||
|
Left = 256
|
||
|
Height = 23
|
||
|
Top = 364
|
||
|
Width = 144
|
||
|
Alignment = taRightJustify
|
||
|
Anchors = [akRight, akBottom]
|
||
|
BorderSpacing.Top = 3
|
||
|
ReadOnly = True
|
||
|
TabOrder = 3
|
||
|
end
|
||
|
object Bevel1: TBevel
|
||
|
AnchorSideLeft.Control = Owner
|
||
|
AnchorSideRight.Control = Owner
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
AnchorSideBottom.Control = ReturnBtn
|
||
|
Left = 0
|
||
|
Height = 8
|
||
|
Top = 387
|
||
|
Width = 408
|
||
|
Anchors = [akLeft, akRight, akBottom]
|
||
|
Shape = bsBottomLine
|
||
|
end
|
||
|
object Memo1: TLabel
|
||
|
AnchorSideLeft.Control = Owner
|
||
|
AnchorSideTop.Control = Owner
|
||
|
AnchorSideRight.Control = Owner
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
Left = 8
|
||
|
Height = 45
|
||
|
Top = 8
|
||
|
Width = 392
|
||
|
Anchors = [akTop, akLeft, akRight]
|
||
|
BorderSpacing.Around = 8
|
||
|
Caption = 'This procedure lets you enter the number of observed values and the number of expected values for one or more categories. Enter the values as indicated and when finished, press the compute button.'
|
||
|
ParentColor = False
|
||
|
WordWrap = True
|
||
|
end
|
||
|
object Panel1: TPanel
|
||
|
AnchorSideLeft.Control = Owner
|
||
|
AnchorSideTop.Control = NcatsEdit
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = Owner
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
AnchorSideBottom.Control = TotChiSqrEdit
|
||
|
Left = 8
|
||
|
Height = 217
|
||
|
Top = 108
|
||
|
Width = 392
|
||
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||
|
BorderSpacing.Left = 8
|
||
|
BorderSpacing.Top = 8
|
||
|
BorderSpacing.Right = 8
|
||
|
BorderSpacing.Bottom = 8
|
||
|
BevelOuter = bvNone
|
||
|
ChildSizing.HorizontalSpacing = 24
|
||
|
ChildSizing.EnlargeHorizontal = crsScaleChilds
|
||
|
ChildSizing.EnlargeVertical = crsScaleChilds
|
||
|
ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
|
||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||
|
ChildSizing.ControlsPerLine = 3
|
||
|
ClientHeight = 217
|
||
|
ClientWidth = 392
|
||
|
TabOrder = 1
|
||
|
object Panel2: TPanel
|
||
|
Left = 0
|
||
|
Height = 217
|
||
|
Top = 0
|
||
|
Width = 115
|
||
|
BevelOuter = bvNone
|
||
|
ClientHeight = 217
|
||
|
ClientWidth = 115
|
||
|
TabOrder = 0
|
||
|
object Label2: TLabel
|
||
|
AnchorSideLeft.Control = Panel2
|
||
|
AnchorSideLeft.Side = asrCenter
|
||
|
AnchorSideTop.Control = Panel2
|
||
|
Left = 18
|
||
|
Height = 15
|
||
|
Top = 0
|
||
|
Width = 79
|
||
|
BorderSpacing.Left = 8
|
||
|
Caption = 'Freq. Observed'
|
||
|
Constraints.MinHeight = 15
|
||
|
ParentColor = False
|
||
|
end
|
||
|
object ObservedGrid: TStringGrid
|
||
|
AnchorSideLeft.Control = Panel2
|
||
|
AnchorSideTop.Control = Label2
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = Panel2
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
AnchorSideBottom.Control = Panel2
|
||
|
AnchorSideBottom.Side = asrBottom
|
||
|
Left = 0
|
||
|
Height = 200
|
||
|
Top = 17
|
||
|
Width = 115
|
||
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||
|
AutoFillColumns = True
|
||
|
BorderSpacing.Top = 2
|
||
|
ColCount = 1
|
||
|
Constraints.MinHeight = 200
|
||
|
FixedCols = 0
|
||
|
MouseWheelOption = mwGrid
|
||
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor, goThumbTracking, goSmoothScroll]
|
||
|
RowCount = 2
|
||
|
TabOrder = 0
|
||
|
ColWidths = (
|
||
|
111
|
||
|
)
|
||
|
end
|
||
|
end
|
||
|
object Panel3: TPanel
|
||
|
Left = 139
|
||
|
Height = 217
|
||
|
Top = 0
|
||
|
Width = 115
|
||
|
BevelOuter = bvNone
|
||
|
ClientHeight = 217
|
||
|
ClientWidth = 115
|
||
|
TabOrder = 1
|
||
|
object Label3: TLabel
|
||
|
AnchorSideLeft.Control = Panel3
|
||
|
AnchorSideLeft.Side = asrCenter
|
||
|
AnchorSideTop.Control = Panel3
|
||
|
Left = 17
|
||
|
Height = 15
|
||
|
Top = 0
|
||
|
Width = 80
|
||
|
Caption = 'Freq. Expected:'
|
||
|
Constraints.MaxHeight = 15
|
||
|
ParentColor = False
|
||
|
end
|
||
|
object ExpectedGrid: TStringGrid
|
||
|
AnchorSideLeft.Control = Panel3
|
||
|
AnchorSideTop.Control = Label3
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = Panel3
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
AnchorSideBottom.Control = Panel3
|
||
|
AnchorSideBottom.Side = asrBottom
|
||
|
Left = 0
|
||
|
Height = 200
|
||
|
Top = 17
|
||
|
Width = 115
|
||
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||
|
AutoFillColumns = True
|
||
|
BorderSpacing.Top = 2
|
||
|
ColCount = 1
|
||
|
FixedCols = 0
|
||
|
MouseWheelOption = mwGrid
|
||
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor, goThumbTracking, goSmoothScroll]
|
||
|
RowCount = 2
|
||
|
TabOrder = 0
|
||
|
ColWidths = (
|
||
|
111
|
||
|
)
|
||
|
end
|
||
|
end
|
||
|
object Panel4: TPanel
|
||
|
AnchorSideBottom.Side = asrBottom
|
||
|
Left = 278
|
||
|
Height = 217
|
||
|
Top = 0
|
||
|
Width = 114
|
||
|
BevelOuter = bvNone
|
||
|
ClientHeight = 217
|
||
|
ClientWidth = 114
|
||
|
TabOrder = 2
|
||
|
object Label4: TLabel
|
||
|
AnchorSideLeft.Control = Panel4
|
||
|
AnchorSideLeft.Side = asrCenter
|
||
|
AnchorSideTop.Control = Panel4
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
Left = 11
|
||
|
Height = 15
|
||
|
Top = 0
|
||
|
Width = 93
|
||
|
BorderSpacing.Right = 8
|
||
|
Caption = 'Computed Values'
|
||
|
ParentColor = False
|
||
|
end
|
||
|
object ChiSqrGrid: TStringGrid
|
||
|
AnchorSideLeft.Control = Panel4
|
||
|
AnchorSideTop.Control = Label4
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = Panel4
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
AnchorSideBottom.Control = Panel4
|
||
|
AnchorSideBottom.Side = asrBottom
|
||
|
Left = 0
|
||
|
Height = 200
|
||
|
Top = 17
|
||
|
Width = 114
|
||
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||
|
AutoFillColumns = True
|
||
|
BorderSpacing.Top = 2
|
||
|
ColCount = 1
|
||
|
FixedCols = 0
|
||
|
MouseWheelOption = mwGrid
|
||
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor, goThumbTracking, goSmoothScroll]
|
||
|
RowCount = 2
|
||
|
TabOrder = 0
|
||
|
ColWidths = (
|
||
|
110
|
||
|
)
|
||
|
end
|
||
|
end
|
||
|
end
|
||
|
end
|