You've already forked lazarus-ccr
f000670847
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7822 8e941d3f-bd1b-0410-a28a-d453659cc2b4
466 lines
13 KiB
Plaintext
466 lines
13 KiB
Plaintext
inherited FisherForm: TFisherForm
|
|
Left = 535
|
|
Height = 524
|
|
Top = 234
|
|
Width = 691
|
|
HelpType = htKeyword
|
|
HelpKeyword = 'html/FishersExactTest.htm'
|
|
Caption = 'Fisher''s Exact Test for a 2 by 2 Table'
|
|
ClientHeight = 524
|
|
ClientWidth = 691
|
|
inherited ParamsPanel: TPanel
|
|
Height = 508
|
|
Width = 428
|
|
ClientHeight = 508
|
|
ClientWidth = 428
|
|
inherited CloseBtn: TButton
|
|
Left = 373
|
|
Top = 483
|
|
TabOrder = 5
|
|
end
|
|
inherited ComputeBtn: TButton
|
|
Left = 289
|
|
Top = 483
|
|
TabOrder = 4
|
|
end
|
|
inherited ResetBtn: TButton
|
|
Left = 227
|
|
Top = 483
|
|
TabOrder = 3
|
|
end
|
|
inherited HelpBtn: TButton
|
|
Left = 168
|
|
Top = 483
|
|
TabOrder = 2
|
|
end
|
|
inherited ButtonBevel: TBevel
|
|
Top = 467
|
|
Width = 428
|
|
end
|
|
object InputGrp: TRadioGroup[5]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideTop.Control = ParamsPanel
|
|
Left = 0
|
|
Height = 114
|
|
Top = 0
|
|
Width = 425
|
|
AutoFill = True
|
|
AutoSize = True
|
|
Caption = 'Input 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 = 421
|
|
Items.Strings = (
|
|
'Count cases 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.'
|
|
'Enter frequencies on this form.'
|
|
)
|
|
OnClick = InputGrpClick
|
|
TabOrder = 0
|
|
end
|
|
object Notebook: TNotebook[6]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideTop.Control = InputGrp
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = ParamsPanel
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = AlphaEdit
|
|
Left = 0
|
|
Height = 322
|
|
Top = 114
|
|
Width = 428
|
|
PageIndex = 0
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Bottom = 8
|
|
TabOrder = 1
|
|
object GridDataPage: TPage
|
|
object Label1: TLabel
|
|
AnchorSideLeft.Control = GridDataPage
|
|
AnchorSideTop.Control = GridDataPage
|
|
Left = 0
|
|
Height = 15
|
|
Top = 12
|
|
Width = 97
|
|
BorderSpacing.Top = 12
|
|
Caption = 'Available Variables'
|
|
ParentColor = False
|
|
end
|
|
object RowLabel: TLabel
|
|
AnchorSideLeft.Control = RowEdit
|
|
AnchorSideBottom.Control = RowEdit
|
|
Left = 233
|
|
Height = 15
|
|
Top = 33
|
|
Width = 67
|
|
Anchors = [akLeft, akBottom]
|
|
BorderSpacing.Bottom = 2
|
|
Caption = 'Row Variable'
|
|
ParentColor = False
|
|
end
|
|
object ColLabel: TLabel
|
|
AnchorSideLeft.Control = ColEdit
|
|
AnchorSideBottom.Control = ColEdit
|
|
Left = 233
|
|
Height = 15
|
|
Top = 113
|
|
Width = 87
|
|
Anchors = [akLeft, akBottom]
|
|
BorderSpacing.Bottom = 2
|
|
Caption = 'Column Variable'
|
|
ParentColor = False
|
|
end
|
|
object DepLabel: TLabel
|
|
AnchorSideLeft.Control = DepEdit
|
|
AnchorSideBottom.Control = DepEdit
|
|
Left = 233
|
|
Height = 15
|
|
Top = 193
|
|
Width = 99
|
|
Anchors = [akLeft, akBottom]
|
|
BorderSpacing.Bottom = 2
|
|
Caption = 'Variable to Analyze'
|
|
ParentColor = False
|
|
end
|
|
object NCasesLabel: TLabel
|
|
AnchorSideTop.Control = NCasesEdit
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = NCasesEdit
|
|
Left = 263
|
|
Height = 15
|
|
Top = 257
|
|
Width = 97
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Total No. of Cases:'
|
|
ParentColor = False
|
|
end
|
|
object VarList: TListBox
|
|
AnchorSideLeft.Control = GridDataPage
|
|
AnchorSideTop.Control = Label1
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = RowIn
|
|
AnchorSideBottom.Control = GridDataPage
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 0
|
|
Height = 293
|
|
Top = 29
|
|
Width = 195
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Top = 2
|
|
BorderSpacing.Right = 6
|
|
ItemHeight = 0
|
|
OnDblClick = VarListDblClick
|
|
OnSelectionChange = VarListSelectionChange
|
|
TabOrder = 0
|
|
end
|
|
object RowIn: TBitBtn
|
|
AnchorSideLeft.Control = GridDataPage
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = VarList
|
|
Left = 201
|
|
Height = 26
|
|
Top = 29
|
|
Width = 26
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 1
|
|
OnClick = RowInClick
|
|
Spacing = 0
|
|
TabOrder = 1
|
|
end
|
|
object RowEdit: TEdit
|
|
AnchorSideLeft.Control = RowIn
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Control = GridDataPage
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = RowOut
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 233
|
|
Height = 23
|
|
Top = 50
|
|
Width = 195
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Bottom = 12
|
|
ReadOnly = True
|
|
TabOrder = 2
|
|
Text = 'RowEdit'
|
|
end
|
|
object ColEdit: TEdit
|
|
AnchorSideLeft.Control = ColIn
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Control = GridDataPage
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = ColOut
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 233
|
|
Height = 23
|
|
Top = 130
|
|
Width = 195
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Bottom = 12
|
|
ReadOnly = True
|
|
TabOrder = 3
|
|
Text = 'ColEdit'
|
|
end
|
|
object DepEdit: TEdit
|
|
AnchorSideLeft.Control = DepIn
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Control = GridDataPage
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = DepOut
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 233
|
|
Height = 23
|
|
Top = 210
|
|
Width = 195
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Bottom = 12
|
|
ReadOnly = True
|
|
TabOrder = 4
|
|
Text = 'DepEdit'
|
|
end
|
|
object NCasesEdit: TEdit
|
|
AnchorSideTop.Control = DepOut
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = GridDataPage
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 368
|
|
Height = 23
|
|
Top = 253
|
|
Width = 60
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Top = 8
|
|
TabOrder = 5
|
|
Text = 'NCasesEdit'
|
|
end
|
|
object RowOut: TBitBtn
|
|
AnchorSideLeft.Control = GridDataPage
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = RowIn
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 201
|
|
Height = 26
|
|
Top = 59
|
|
Width = 26
|
|
BorderSpacing.Top = 4
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 0
|
|
OnClick = RowOutClick
|
|
Spacing = 0
|
|
TabOrder = 6
|
|
end
|
|
object ColIn: TBitBtn
|
|
AnchorSideLeft.Control = GridDataPage
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = RowOut
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 201
|
|
Height = 26
|
|
Top = 109
|
|
Width = 26
|
|
BorderSpacing.Top = 24
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 1
|
|
OnClick = ColInClick
|
|
Spacing = 0
|
|
TabOrder = 7
|
|
end
|
|
object ColOut: TBitBtn
|
|
AnchorSideLeft.Control = GridDataPage
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = ColIn
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 201
|
|
Height = 26
|
|
Top = 139
|
|
Width = 26
|
|
BorderSpacing.Top = 4
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 0
|
|
OnClick = ColOutClick
|
|
Spacing = 0
|
|
TabOrder = 8
|
|
end
|
|
object DepIn: TBitBtn
|
|
AnchorSideLeft.Control = GridDataPage
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = ColOut
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 201
|
|
Height = 26
|
|
Top = 189
|
|
Width = 26
|
|
BorderSpacing.Top = 24
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 1
|
|
OnClick = DepInClick
|
|
Spacing = 0
|
|
TabOrder = 9
|
|
end
|
|
object DepOut: TBitBtn
|
|
AnchorSideLeft.Control = GridDataPage
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = DepIn
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 201
|
|
Height = 26
|
|
Top = 219
|
|
Width = 26
|
|
BorderSpacing.Top = 4
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 0
|
|
OnClick = DepOutClick
|
|
Spacing = 0
|
|
TabOrder = 10
|
|
end
|
|
end
|
|
object TableDataPage: TPage
|
|
object Panel2: TPanel
|
|
AnchorSideLeft.Control = TableDataPage
|
|
AnchorSideTop.Control = TableDataPage
|
|
Left = 16
|
|
Height = 77
|
|
Top = 24
|
|
Width = 206
|
|
Alignment = taRightJustify
|
|
AutoSize = True
|
|
BorderSpacing.Left = 16
|
|
BorderSpacing.Top = 24
|
|
BorderSpacing.Right = 8
|
|
BevelOuter = bvNone
|
|
ChildSizing.HorizontalSpacing = 8
|
|
ChildSizing.VerticalSpacing = 8
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 3
|
|
ClientHeight = 77
|
|
ClientWidth = 206
|
|
TabOrder = 0
|
|
object Label5: TLabel
|
|
Left = 0
|
|
Height = 15
|
|
Top = 0
|
|
Width = 30
|
|
Caption = ' '
|
|
ParentColor = False
|
|
end
|
|
object Label6: TLabel
|
|
Left = 38
|
|
Height = 15
|
|
Top = 0
|
|
Width = 80
|
|
Alignment = taCenter
|
|
Caption = 'Row 1'
|
|
ParentColor = False
|
|
end
|
|
object Label7: TLabel
|
|
Left = 126
|
|
Height = 15
|
|
Top = 0
|
|
Width = 80
|
|
Alignment = taCenter
|
|
Caption = 'Row 2'
|
|
ParentColor = False
|
|
end
|
|
object Label8: TLabel
|
|
Left = 0
|
|
Height = 23
|
|
Top = 23
|
|
Width = 30
|
|
Caption = 'Col. 1'
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object RC11Edit: TEdit
|
|
Left = 38
|
|
Height = 23
|
|
Top = 23
|
|
Width = 80
|
|
Alignment = taRightJustify
|
|
TabOrder = 0
|
|
Text = 'RC11Edit'
|
|
end
|
|
object RC12Edit: TEdit
|
|
Left = 126
|
|
Height = 23
|
|
Top = 23
|
|
Width = 80
|
|
Alignment = taRightJustify
|
|
TabOrder = 1
|
|
Text = 'RC12Edit'
|
|
end
|
|
object Label9: TLabel
|
|
Left = 0
|
|
Height = 23
|
|
Top = 54
|
|
Width = 30
|
|
Caption = 'Col. 2'
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object RC21Edit: TEdit
|
|
Left = 38
|
|
Height = 23
|
|
Top = 54
|
|
Width = 80
|
|
Alignment = taRightJustify
|
|
TabOrder = 2
|
|
Text = 'RC21Edit'
|
|
end
|
|
object RC22Edit: TEdit
|
|
Left = 126
|
|
Height = 23
|
|
Top = 54
|
|
Width = 80
|
|
Alignment = taRightJustify
|
|
TabOrder = 3
|
|
Text = 'RC22Edit'
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object AlphaEdit: TEdit[7]
|
|
AnchorSideRight.Control = ParamsPanel
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = ButtonBevel
|
|
Left = 368
|
|
Height = 23
|
|
Top = 444
|
|
Width = 60
|
|
Alignment = taRightJustify
|
|
Anchors = [akRight, akBottom]
|
|
TabOrder = 6
|
|
Text = 'AlphaEdit'
|
|
end
|
|
object Label2: TLabel[8]
|
|
AnchorSideTop.Control = AlphaEdit
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = AlphaEdit
|
|
Left = 210
|
|
Height = 15
|
|
Top = 448
|
|
Width = 150
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Alpha level (Type I Error rate)'
|
|
ParentColor = False
|
|
end
|
|
end
|
|
inherited ParamsSplitter: TSplitter
|
|
Left = 440
|
|
Height = 524
|
|
end
|
|
end
|