You've already forked lazarus-ccr
LazStats: Inherit KappaUnit from BasicStatsReportFormUnit.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8016 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -926,7 +926,7 @@
|
|||||||
<Unit102>
|
<Unit102>
|
||||||
<Filename Value="forms\analysis\nonparametric\kappaunit.pas"/>
|
<Filename Value="forms\analysis\nonparametric\kappaunit.pas"/>
|
||||||
<IsPartOfProject Value="True"/>
|
<IsPartOfProject Value="True"/>
|
||||||
<ComponentName Value="WeightedKappaFrm"/>
|
<ComponentName Value="WeightedKappaForm"/>
|
||||||
<HasResources Value="True"/>
|
<HasResources Value="True"/>
|
||||||
<ResourceBaseClass Value="Form"/>
|
<ResourceBaseClass Value="Form"/>
|
||||||
<UnitName Value="KappaUnit"/>
|
<UnitName Value="KappaUnit"/>
|
||||||
|
|||||||
@ -1,442 +1,384 @@
|
|||||||
object WeightedKappaFrm: TWeightedKappaFrm
|
inherited WeightedKappaForm: TWeightedKappaForm
|
||||||
Left = 448
|
Left = 448
|
||||||
Height = 560
|
Height = 559
|
||||||
Top = 184
|
Top = 184
|
||||||
Width = 539
|
Width = 1086
|
||||||
HelpType = htKeyword
|
HelpType = htKeyword
|
||||||
HelpKeyword = 'html/KappaandWeightedKappa.htm'
|
HelpKeyword = 'html/KappaandWeightedKappa.htm'
|
||||||
AutoSize = True
|
|
||||||
Caption = 'Kappa and Weighted Kappa'
|
Caption = 'Kappa and Weighted Kappa'
|
||||||
ClientHeight = 560
|
ClientHeight = 559
|
||||||
ClientWidth = 539
|
ClientWidth = 1086
|
||||||
OnActivate = FormActivate
|
|
||||||
OnCreate = FormCreate
|
OnCreate = FormCreate
|
||||||
OnShow = FormShow
|
inherited ParamsPanel: TPanel
|
||||||
Position = poMainFormCenter
|
Height = 543
|
||||||
LCLVersion = '2.1.0.0'
|
|
||||||
object InputGroup: TRadioGroup
|
|
||||||
AnchorSideLeft.Control = Owner
|
|
||||||
AnchorSideTop.Control = Owner
|
|
||||||
AnchorSideRight.Control = Owner
|
|
||||||
AnchorSideRight.Side = asrBottom
|
|
||||||
Left = 8
|
|
||||||
Height = 89
|
|
||||||
Top = 8
|
|
||||||
Width = 488
|
Width = 488
|
||||||
Align = alCustom
|
|
||||||
AutoFill = True
|
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
BorderSpacing.Left = 8
|
ClientHeight = 543
|
||||||
BorderSpacing.Top = 8
|
ClientWidth = 488
|
||||||
BorderSpacing.Right = 8
|
inherited CloseBtn: TButton
|
||||||
Caption = 'Input Options:'
|
Left = 433
|
||||||
ChildSizing.LeftRightSpacing = 6
|
Top = 518
|
||||||
ChildSizing.TopBottomSpacing = 6
|
|
||||||
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
||||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
||||||
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
||||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
||||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
||||||
ChildSizing.ControlsPerLine = 1
|
|
||||||
ClientHeight = 69
|
|
||||||
ClientWidth = 484
|
|
||||||
Items.Strings = (
|
|
||||||
'Count cases classified by row and column variables in the data grid'
|
|
||||||
'Use frequencies in a variable for a given row variable value and column variable value.'
|
|
||||||
'Use proportions in a variable for a given row variable value and column variable value.'
|
|
||||||
)
|
|
||||||
OnClick = InputGroupClick
|
|
||||||
TabOrder = 0
|
|
||||||
end
|
|
||||||
object Label1: TLabel
|
|
||||||
AnchorSideLeft.Control = Owner
|
|
||||||
AnchorSideTop.Control = InputGroup
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 8
|
|
||||||
Height = 15
|
|
||||||
Top = 105
|
|
||||||
Width = 46
|
|
||||||
BorderSpacing.Left = 8
|
|
||||||
BorderSpacing.Top = 8
|
|
||||||
Caption = 'Variables'
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object VarList: TListBox
|
|
||||||
AnchorSideLeft.Control = Owner
|
|
||||||
AnchorSideTop.Control = Label1
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
AnchorSideRight.Control = RowIn
|
|
||||||
AnchorSideBottom.Control = NCasesEdit
|
|
||||||
Left = 8
|
|
||||||
Height = 358
|
|
||||||
Top = 122
|
|
||||||
Width = 265
|
|
||||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
||||||
BorderSpacing.Left = 8
|
|
||||||
BorderSpacing.Top = 2
|
|
||||||
BorderSpacing.Right = 8
|
|
||||||
ItemHeight = 0
|
|
||||||
OnSelectionChange = VarListSelectionChange
|
|
||||||
TabOrder = 1
|
|
||||||
end
|
|
||||||
object NCasesLbl: TLabel
|
|
||||||
AnchorSideLeft.Control = VarList
|
|
||||||
AnchorSideTop.Control = NCasesEdit
|
|
||||||
AnchorSideTop.Side = asrCenter
|
|
||||||
AnchorSideRight.Control = NCasesEdit
|
|
||||||
Left = 8
|
|
||||||
Height = 15
|
|
||||||
Top = 492
|
|
||||||
Width = 122
|
|
||||||
BorderSpacing.Right = 8
|
|
||||||
Caption = 'Total Number of Cases:'
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object NCasesEdit: TEdit
|
|
||||||
AnchorSideLeft.Control = NCasesLbl
|
|
||||||
AnchorSideLeft.Side = asrBottom
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
AnchorSideRight.Side = asrBottom
|
|
||||||
AnchorSideBottom.Control = Bevel1
|
|
||||||
Left = 138
|
|
||||||
Height = 23
|
|
||||||
Top = 488
|
|
||||||
Width = 54
|
|
||||||
Alignment = taRightJustify
|
|
||||||
Anchors = [akLeft, akBottom]
|
|
||||||
BorderSpacing.Top = 8
|
|
||||||
BorderSpacing.Bottom = 8
|
|
||||||
TabOrder = 2
|
|
||||||
Text = 'NCasesEdit'
|
|
||||||
end
|
|
||||||
object RowIn: TBitBtn
|
|
||||||
AnchorSideLeft.Control = OptionsGroup
|
|
||||||
AnchorSideTop.Control = VarList
|
|
||||||
Left = 281
|
|
||||||
Height = 28
|
|
||||||
Top = 122
|
|
||||||
Width = 28
|
|
||||||
Images = MainDataModule.ImageList
|
|
||||||
ImageIndex = 1
|
|
||||||
OnClick = RowInClick
|
|
||||||
Spacing = 0
|
|
||||||
TabOrder = 3
|
|
||||||
end
|
|
||||||
object RowOut: TBitBtn
|
|
||||||
AnchorSideLeft.Control = OptionsGroup
|
|
||||||
AnchorSideTop.Control = RowIn
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 281
|
|
||||||
Height = 28
|
|
||||||
Top = 154
|
|
||||||
Width = 28
|
|
||||||
BorderSpacing.Top = 4
|
|
||||||
Images = MainDataModule.ImageList
|
|
||||||
ImageIndex = 0
|
|
||||||
OnClick = RowOutClick
|
|
||||||
Spacing = 0
|
|
||||||
TabOrder = 4
|
|
||||||
end
|
|
||||||
object ColIn: TBitBtn
|
|
||||||
AnchorSideLeft.Control = OptionsGroup
|
|
||||||
AnchorSideTop.Control = RowOut
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 281
|
|
||||||
Height = 28
|
|
||||||
Top = 202
|
|
||||||
Width = 28
|
|
||||||
BorderSpacing.Top = 20
|
|
||||||
Images = MainDataModule.ImageList
|
|
||||||
ImageIndex = 1
|
|
||||||
OnClick = ColInClick
|
|
||||||
Spacing = 0
|
|
||||||
TabOrder = 6
|
|
||||||
end
|
|
||||||
object ColOut: TBitBtn
|
|
||||||
AnchorSideLeft.Control = OptionsGroup
|
|
||||||
AnchorSideTop.Control = ColIn
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 281
|
|
||||||
Height = 28
|
|
||||||
Top = 234
|
|
||||||
Width = 28
|
|
||||||
BorderSpacing.Top = 4
|
|
||||||
Images = MainDataModule.ImageList
|
|
||||||
ImageIndex = 0
|
|
||||||
OnClick = ColOutClick
|
|
||||||
Spacing = 0
|
|
||||||
TabOrder = 7
|
|
||||||
end
|
|
||||||
object DepIn: TBitBtn
|
|
||||||
AnchorSideLeft.Control = OptionsGroup
|
|
||||||
AnchorSideTop.Control = ColOut
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 281
|
|
||||||
Height = 28
|
|
||||||
Top = 282
|
|
||||||
Width = 28
|
|
||||||
BorderSpacing.Top = 20
|
|
||||||
Images = MainDataModule.ImageList
|
|
||||||
ImageIndex = 1
|
|
||||||
OnClick = DepInClick
|
|
||||||
Spacing = 0
|
|
||||||
TabOrder = 9
|
|
||||||
end
|
|
||||||
object DepOut: TBitBtn
|
|
||||||
AnchorSideLeft.Control = OptionsGroup
|
|
||||||
AnchorSideTop.Control = DepIn
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 281
|
|
||||||
Height = 28
|
|
||||||
Top = 314
|
|
||||||
Width = 28
|
|
||||||
BorderSpacing.Top = 4
|
|
||||||
Images = MainDataModule.ImageList
|
|
||||||
ImageIndex = 0
|
|
||||||
OnClick = DepOutClick
|
|
||||||
Spacing = 0
|
|
||||||
TabOrder = 10
|
|
||||||
end
|
|
||||||
object Label2: TLabel
|
|
||||||
AnchorSideLeft.Control = RaterAEdit
|
|
||||||
AnchorSideBottom.Control = RaterAEdit
|
|
||||||
Left = 317
|
|
||||||
Height = 15
|
|
||||||
Top = 130
|
|
||||||
Width = 38
|
|
||||||
Anchors = [akLeft, akBottom]
|
|
||||||
BorderSpacing.Bottom = 2
|
|
||||||
Caption = 'Rater A'
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object Label3: TLabel
|
|
||||||
AnchorSideLeft.Control = RaterBEdit
|
|
||||||
AnchorSideBottom.Control = RaterBEdit
|
|
||||||
Left = 317
|
|
||||||
Height = 15
|
|
||||||
Top = 210
|
|
||||||
Width = 37
|
|
||||||
Anchors = [akLeft, akBottom]
|
|
||||||
BorderSpacing.Bottom = 2
|
|
||||||
Caption = 'Rater B'
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object DepLbl: TLabel
|
|
||||||
AnchorSideLeft.Control = DepEdit
|
|
||||||
AnchorSideBottom.Control = DepEdit
|
|
||||||
Left = 317
|
|
||||||
Height = 15
|
|
||||||
Top = 290
|
|
||||||
Width = 99
|
|
||||||
Anchors = [akLeft, akBottom]
|
|
||||||
BorderSpacing.Bottom = 2
|
|
||||||
Caption = 'Variable to Analyze'
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object RaterAEdit: TEdit
|
|
||||||
AnchorSideLeft.Control = RowIn
|
|
||||||
AnchorSideLeft.Side = asrBottom
|
|
||||||
AnchorSideRight.Control = OptionsGroup
|
|
||||||
AnchorSideRight.Side = asrBottom
|
|
||||||
AnchorSideBottom.Control = RowOut
|
|
||||||
AnchorSideBottom.Side = asrBottom
|
|
||||||
Left = 317
|
|
||||||
Height = 23
|
|
||||||
Top = 147
|
|
||||||
Width = 214
|
|
||||||
Anchors = [akLeft, akRight, akBottom]
|
|
||||||
BorderSpacing.Left = 8
|
|
||||||
BorderSpacing.Bottom = 12
|
|
||||||
ReadOnly = True
|
|
||||||
TabOrder = 5
|
|
||||||
Text = 'RaterAEdit'
|
|
||||||
end
|
|
||||||
object RaterBEdit: TEdit
|
|
||||||
AnchorSideLeft.Control = ColIn
|
|
||||||
AnchorSideLeft.Side = asrBottom
|
|
||||||
AnchorSideRight.Control = OptionsGroup
|
|
||||||
AnchorSideRight.Side = asrBottom
|
|
||||||
AnchorSideBottom.Control = ColOut
|
|
||||||
AnchorSideBottom.Side = asrBottom
|
|
||||||
Left = 317
|
|
||||||
Height = 23
|
|
||||||
Top = 227
|
|
||||||
Width = 214
|
|
||||||
Anchors = [akLeft, akRight, akBottom]
|
|
||||||
BorderSpacing.Left = 8
|
|
||||||
BorderSpacing.Bottom = 12
|
|
||||||
ReadOnly = True
|
|
||||||
TabOrder = 8
|
|
||||||
Text = 'RaterBEdit'
|
|
||||||
end
|
|
||||||
object DepEdit: TEdit
|
|
||||||
AnchorSideLeft.Control = DepOut
|
|
||||||
AnchorSideLeft.Side = asrBottom
|
|
||||||
AnchorSideRight.Control = OptionsGroup
|
|
||||||
AnchorSideRight.Side = asrBottom
|
|
||||||
AnchorSideBottom.Control = DepOut
|
|
||||||
AnchorSideBottom.Side = asrBottom
|
|
||||||
Left = 317
|
|
||||||
Height = 23
|
|
||||||
Top = 307
|
|
||||||
Width = 214
|
|
||||||
Anchors = [akLeft, akRight, akBottom]
|
|
||||||
BorderSpacing.Left = 8
|
|
||||||
BorderSpacing.Bottom = 12
|
|
||||||
ReadOnly = True
|
|
||||||
TabOrder = 11
|
|
||||||
Text = 'DepEdit'
|
|
||||||
end
|
|
||||||
object OptionsGroup: TGroupBox
|
|
||||||
AnchorSideLeft.Control = RowIn
|
|
||||||
AnchorSideTop.Control = DepOut
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
AnchorSideRight.Control = Owner
|
|
||||||
AnchorSideRight.Side = asrBottom
|
|
||||||
Left = 281
|
|
||||||
Height = 156
|
|
||||||
Top = 354
|
|
||||||
Width = 250
|
|
||||||
Anchors = [akTop, akRight]
|
|
||||||
AutoSize = True
|
|
||||||
BorderSpacing.Top = 12
|
|
||||||
BorderSpacing.Right = 8
|
|
||||||
Caption = 'Options:'
|
|
||||||
ChildSizing.LeftRightSpacing = 12
|
|
||||||
ChildSizing.TopBottomSpacing = 6
|
|
||||||
ChildSizing.VerticalSpacing = 2
|
|
||||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
||||||
ChildSizing.ControlsPerLine = 1
|
|
||||||
ClientHeight = 136
|
|
||||||
ClientWidth = 246
|
|
||||||
TabOrder = 12
|
|
||||||
object ObsChk: TCheckBox
|
|
||||||
Left = 12
|
|
||||||
Height = 19
|
|
||||||
Top = 6
|
|
||||||
Width = 222
|
|
||||||
Caption = 'Show Observed Frequencies'
|
|
||||||
TabOrder = 0
|
|
||||||
end
|
end
|
||||||
object ExpChk: TCheckBox
|
inherited ComputeBtn: TButton
|
||||||
Left = 12
|
Left = 349
|
||||||
Height = 19
|
Top = 518
|
||||||
Top = 27
|
|
||||||
Width = 222
|
|
||||||
Caption = 'Show Expected Frequencies'
|
|
||||||
TabOrder = 1
|
|
||||||
end
|
end
|
||||||
object PropChk: TCheckBox
|
inherited ResetBtn: TButton
|
||||||
Left = 12
|
Left = 287
|
||||||
Height = 19
|
Top = 518
|
||||||
Top = 48
|
|
||||||
Width = 222
|
|
||||||
Caption = 'Show Row and Column Proportions'
|
|
||||||
TabOrder = 2
|
|
||||||
end
|
end
|
||||||
object ChiChk: TCheckBox
|
inherited HelpBtn: TButton
|
||||||
Left = 12
|
Tag = 128
|
||||||
Height = 19
|
Left = 228
|
||||||
Top = 69
|
Top = 518
|
||||||
Width = 222
|
|
||||||
Caption = 'Show Cell Chi Square Values'
|
|
||||||
TabOrder = 3
|
|
||||||
end
|
end
|
||||||
object YatesChk: TCheckBox
|
inherited ButtonBevel: TBevel
|
||||||
Left = 12
|
Top = 502
|
||||||
Height = 19
|
Width = 488
|
||||||
Top = 90
|
end
|
||||||
Width = 222
|
object InputGroup: TRadioGroup[5]
|
||||||
Caption = 'Use Yates'' Correction for a 2 by 2 table'
|
AnchorSideLeft.Control = ParamsPanel
|
||||||
|
AnchorSideTop.Control = ParamsPanel
|
||||||
|
AnchorSideRight.Control = ParamsPanel
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 0
|
||||||
|
Height = 89
|
||||||
|
Top = 0
|
||||||
|
Width = 488
|
||||||
|
Align = alCustom
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
AutoFill = True
|
||||||
|
AutoSize = True
|
||||||
|
Caption = 'Input Options:'
|
||||||
|
ChildSizing.LeftRightSpacing = 6
|
||||||
|
ChildSizing.TopBottomSpacing = 6
|
||||||
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||||
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 1
|
||||||
|
ClientHeight = 69
|
||||||
|
ClientWidth = 484
|
||||||
|
Items.Strings = (
|
||||||
|
'Count cases classified by row and column variables in the data grid'
|
||||||
|
'Use frequencies in a variable for a given row variable value and column variable value.'
|
||||||
|
'Use proportions in a variable for a given row variable value and column variable value.'
|
||||||
|
)
|
||||||
|
OnClick = InputGroupClick
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
end
|
end
|
||||||
object SaveChk: TCheckBox
|
object Label1: TLabel[6]
|
||||||
Left = 12
|
AnchorSideLeft.Control = ParamsPanel
|
||||||
Height = 19
|
AnchorSideTop.Control = InputGroup
|
||||||
Top = 111
|
AnchorSideTop.Side = asrBottom
|
||||||
Width = 222
|
Left = 0
|
||||||
Caption = 'Save as a File of Frequency Data'
|
Height = 15
|
||||||
|
Top = 97
|
||||||
|
Width = 46
|
||||||
|
BorderSpacing.Top = 8
|
||||||
|
Caption = 'Variables'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object VarList: TListBox[7]
|
||||||
|
AnchorSideLeft.Control = ParamsPanel
|
||||||
|
AnchorSideTop.Control = Label1
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = RowIn
|
||||||
|
AnchorSideBottom.Control = NCasesEdit
|
||||||
|
Left = 0
|
||||||
|
Height = 357
|
||||||
|
Top = 114
|
||||||
|
Width = 230
|
||||||
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
BorderSpacing.Right = 8
|
||||||
|
ItemHeight = 0
|
||||||
|
OnDblClick = VarListDblClick
|
||||||
|
OnSelectionChange = VarListSelectionChange
|
||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
end
|
end
|
||||||
|
object RowIn: TBitBtn[8]
|
||||||
|
AnchorSideLeft.Control = OptionsGroup
|
||||||
|
AnchorSideTop.Control = VarList
|
||||||
|
Left = 238
|
||||||
|
Height = 28
|
||||||
|
Top = 114
|
||||||
|
Width = 28
|
||||||
|
Images = MainDataModule.ImageList
|
||||||
|
ImageIndex = 1
|
||||||
|
OnClick = RowInClick
|
||||||
|
Spacing = 0
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object RowOut: TBitBtn[9]
|
||||||
|
AnchorSideLeft.Control = OptionsGroup
|
||||||
|
AnchorSideTop.Control = RowIn
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 238
|
||||||
|
Height = 28
|
||||||
|
Top = 146
|
||||||
|
Width = 28
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
Images = MainDataModule.ImageList
|
||||||
|
ImageIndex = 0
|
||||||
|
OnClick = RowOutClick
|
||||||
|
Spacing = 0
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object ColIn: TBitBtn[10]
|
||||||
|
AnchorSideLeft.Control = OptionsGroup
|
||||||
|
AnchorSideTop.Control = RowOut
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 238
|
||||||
|
Height = 28
|
||||||
|
Top = 194
|
||||||
|
Width = 28
|
||||||
|
BorderSpacing.Top = 20
|
||||||
|
Images = MainDataModule.ImageList
|
||||||
|
ImageIndex = 1
|
||||||
|
OnClick = ColInClick
|
||||||
|
Spacing = 0
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object ColOut: TBitBtn[11]
|
||||||
|
AnchorSideLeft.Control = OptionsGroup
|
||||||
|
AnchorSideTop.Control = ColIn
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 238
|
||||||
|
Height = 28
|
||||||
|
Top = 226
|
||||||
|
Width = 28
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
Images = MainDataModule.ImageList
|
||||||
|
ImageIndex = 0
|
||||||
|
OnClick = ColOutClick
|
||||||
|
Spacing = 0
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object DepIn: TBitBtn[12]
|
||||||
|
AnchorSideLeft.Control = OptionsGroup
|
||||||
|
AnchorSideTop.Control = ColOut
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 238
|
||||||
|
Height = 28
|
||||||
|
Top = 274
|
||||||
|
Width = 28
|
||||||
|
BorderSpacing.Top = 20
|
||||||
|
Images = MainDataModule.ImageList
|
||||||
|
ImageIndex = 1
|
||||||
|
OnClick = DepInClick
|
||||||
|
Spacing = 0
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
object DepOut: TBitBtn[13]
|
||||||
|
AnchorSideLeft.Control = OptionsGroup
|
||||||
|
AnchorSideTop.Control = DepIn
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 238
|
||||||
|
Height = 28
|
||||||
|
Top = 306
|
||||||
|
Width = 28
|
||||||
|
BorderSpacing.Top = 4
|
||||||
|
Images = MainDataModule.ImageList
|
||||||
|
ImageIndex = 0
|
||||||
|
OnClick = DepOutClick
|
||||||
|
Spacing = 0
|
||||||
|
TabOrder = 11
|
||||||
|
end
|
||||||
|
object Label2: TLabel[14]
|
||||||
|
AnchorSideLeft.Control = RaterAEdit
|
||||||
|
AnchorSideBottom.Control = RaterAEdit
|
||||||
|
Left = 274
|
||||||
|
Height = 15
|
||||||
|
Top = 122
|
||||||
|
Width = 38
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
BorderSpacing.Bottom = 2
|
||||||
|
Caption = 'Rater A'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel[15]
|
||||||
|
AnchorSideLeft.Control = RaterBEdit
|
||||||
|
AnchorSideBottom.Control = RaterBEdit
|
||||||
|
Left = 274
|
||||||
|
Height = 15
|
||||||
|
Top = 202
|
||||||
|
Width = 37
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
BorderSpacing.Bottom = 2
|
||||||
|
Caption = 'Rater B'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object DepLbl: TLabel[16]
|
||||||
|
AnchorSideLeft.Control = DepEdit
|
||||||
|
AnchorSideBottom.Control = DepEdit
|
||||||
|
Left = 274
|
||||||
|
Height = 15
|
||||||
|
Top = 282
|
||||||
|
Width = 99
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
BorderSpacing.Bottom = 2
|
||||||
|
Caption = 'Variable to Analyze'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object RaterAEdit: TEdit[17]
|
||||||
|
AnchorSideLeft.Control = RowIn
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = ParamsPanel
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
AnchorSideBottom.Control = RowOut
|
||||||
|
AnchorSideBottom.Side = asrBottom
|
||||||
|
Left = 274
|
||||||
|
Height = 23
|
||||||
|
Top = 139
|
||||||
|
Width = 214
|
||||||
|
Anchors = [akLeft, akRight, akBottom]
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
BorderSpacing.Bottom = 12
|
||||||
|
ReadOnly = True
|
||||||
|
TabOrder = 12
|
||||||
|
Text = 'RaterAEdit'
|
||||||
|
end
|
||||||
|
object RaterBEdit: TEdit[18]
|
||||||
|
AnchorSideLeft.Control = ColIn
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = ParamsPanel
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
AnchorSideBottom.Control = ColOut
|
||||||
|
AnchorSideBottom.Side = asrBottom
|
||||||
|
Left = 274
|
||||||
|
Height = 23
|
||||||
|
Top = 219
|
||||||
|
Width = 214
|
||||||
|
Anchors = [akLeft, akRight, akBottom]
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
BorderSpacing.Bottom = 12
|
||||||
|
ReadOnly = True
|
||||||
|
TabOrder = 13
|
||||||
|
Text = 'RaterBEdit'
|
||||||
|
end
|
||||||
|
object DepEdit: TEdit[19]
|
||||||
|
AnchorSideLeft.Control = DepOut
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = ParamsPanel
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
AnchorSideBottom.Control = DepOut
|
||||||
|
AnchorSideBottom.Side = asrBottom
|
||||||
|
Left = 274
|
||||||
|
Height = 23
|
||||||
|
Top = 299
|
||||||
|
Width = 214
|
||||||
|
Anchors = [akLeft, akRight, akBottom]
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
BorderSpacing.Bottom = 12
|
||||||
|
ReadOnly = True
|
||||||
|
TabOrder = 14
|
||||||
|
Text = 'DepEdit'
|
||||||
|
end
|
||||||
|
object OptionsGroup: TGroupBox[20]
|
||||||
|
AnchorSideLeft.Control = RowIn
|
||||||
|
AnchorSideTop.Control = DepOut
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = ParamsPanel
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 238
|
||||||
|
Height = 156
|
||||||
|
Top = 346
|
||||||
|
Width = 250
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Top = 12
|
||||||
|
Caption = 'Options:'
|
||||||
|
ChildSizing.LeftRightSpacing = 12
|
||||||
|
ChildSizing.TopBottomSpacing = 6
|
||||||
|
ChildSizing.VerticalSpacing = 2
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 1
|
||||||
|
ClientHeight = 136
|
||||||
|
ClientWidth = 246
|
||||||
|
TabOrder = 15
|
||||||
|
object ObsChk: TCheckBox
|
||||||
|
Left = 12
|
||||||
|
Height = 19
|
||||||
|
Top = 6
|
||||||
|
Width = 222
|
||||||
|
Caption = 'Show Observed Frequencies'
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object ExpChk: TCheckBox
|
||||||
|
Left = 12
|
||||||
|
Height = 19
|
||||||
|
Top = 27
|
||||||
|
Width = 222
|
||||||
|
Caption = 'Show Expected Frequencies'
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object PropChk: TCheckBox
|
||||||
|
Left = 12
|
||||||
|
Height = 19
|
||||||
|
Top = 48
|
||||||
|
Width = 222
|
||||||
|
Caption = 'Show Row and Column Proportions'
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object ChiChk: TCheckBox
|
||||||
|
Left = 12
|
||||||
|
Height = 19
|
||||||
|
Top = 69
|
||||||
|
Width = 222
|
||||||
|
Caption = 'Show Cell Chi Square Values'
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object YatesChk: TCheckBox
|
||||||
|
Left = 12
|
||||||
|
Height = 19
|
||||||
|
Top = 90
|
||||||
|
Width = 222
|
||||||
|
Caption = 'Use Yates'' Correction for a 2 by 2 table'
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object SaveChk: TCheckBox
|
||||||
|
Left = 12
|
||||||
|
Height = 19
|
||||||
|
Top = 111
|
||||||
|
Width = 222
|
||||||
|
Caption = 'Save as a File of Frequency Data'
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object NCasesLbl: TLabel[21]
|
||||||
|
AnchorSideLeft.Control = VarList
|
||||||
|
AnchorSideTop.Control = NCasesEdit
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
AnchorSideRight.Control = NCasesEdit
|
||||||
|
Left = 0
|
||||||
|
Height = 15
|
||||||
|
Top = 483
|
||||||
|
Width = 122
|
||||||
|
BorderSpacing.Right = 8
|
||||||
|
Caption = 'Total Number of Cases:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object NCasesEdit: TEdit[22]
|
||||||
|
AnchorSideLeft.Control = NCasesLbl
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
AnchorSideBottom.Control = ButtonBevel
|
||||||
|
Left = 130
|
||||||
|
Height = 23
|
||||||
|
Top = 479
|
||||||
|
Width = 54
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
BorderSpacing.Top = 8
|
||||||
|
TabOrder = 16
|
||||||
|
Text = 'NCasesEdit'
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object ResetBtn: TButton
|
inherited ParamsSplitter: TSplitter
|
||||||
AnchorSideTop.Control = CloseBtn
|
Left = 500
|
||||||
AnchorSideRight.Control = ComputeBtn
|
Height = 559
|
||||||
AnchorSideBottom.Side = asrBottom
|
|
||||||
Left = 330
|
|
||||||
Height = 25
|
|
||||||
Top = 527
|
|
||||||
Width = 54
|
|
||||||
Anchors = [akTop, akRight]
|
|
||||||
AutoSize = True
|
|
||||||
BorderSpacing.Left = 8
|
|
||||||
BorderSpacing.Right = 8
|
|
||||||
BorderSpacing.Bottom = 8
|
|
||||||
Caption = 'Reset'
|
|
||||||
OnClick = ResetBtnClick
|
|
||||||
TabOrder = 13
|
|
||||||
end
|
|
||||||
object ComputeBtn: TButton
|
|
||||||
AnchorSideTop.Control = CloseBtn
|
|
||||||
AnchorSideRight.Control = CloseBtn
|
|
||||||
AnchorSideBottom.Side = asrBottom
|
|
||||||
Left = 392
|
|
||||||
Height = 25
|
|
||||||
Top = 527
|
|
||||||
Width = 76
|
|
||||||
Anchors = [akTop, akRight]
|
|
||||||
AutoSize = True
|
|
||||||
BorderSpacing.Left = 8
|
|
||||||
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 = 476
|
|
||||||
Height = 25
|
|
||||||
Top = 527
|
|
||||||
Width = 55
|
|
||||||
Anchors = [akRight, akBottom]
|
|
||||||
AutoSize = True
|
|
||||||
BorderSpacing.Left = 8
|
|
||||||
BorderSpacing.Right = 8
|
|
||||||
BorderSpacing.Bottom = 8
|
|
||||||
Caption = 'Close'
|
|
||||||
ModalResult = 11
|
|
||||||
TabOrder = 15
|
|
||||||
end
|
|
||||||
object HelpBtn: TButton
|
|
||||||
Tag = 128
|
|
||||||
AnchorSideTop.Control = CloseBtn
|
|
||||||
AnchorSideRight.Control = ResetBtn
|
|
||||||
AnchorSideBottom.Side = asrBottom
|
|
||||||
Left = 271
|
|
||||||
Height = 25
|
|
||||||
Top = 527
|
|
||||||
Width = 51
|
|
||||||
Anchors = [akTop, akRight]
|
|
||||||
AutoSize = True
|
|
||||||
BorderSpacing.Left = 8
|
|
||||||
BorderSpacing.Right = 8
|
|
||||||
BorderSpacing.Bottom = 8
|
|
||||||
Caption = 'Help'
|
|
||||||
OnClick = HelpBtnClick
|
|
||||||
TabOrder = 16
|
|
||||||
end
|
|
||||||
object Bevel1: TBevel
|
|
||||||
AnchorSideRight.Side = asrBottom
|
|
||||||
AnchorSideBottom.Control = CloseBtn
|
|
||||||
Left = 0
|
|
||||||
Height = 8
|
|
||||||
Top = 519
|
|
||||||
Width = 541
|
|
||||||
Anchors = [akLeft, akRight, akBottom]
|
|
||||||
Shape = bsTopLine
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -1777,9 +1777,9 @@ end;
|
|||||||
// Menu "Analysis" > "Nonparametric" > "Kappa and Weighted Kappa"
|
// Menu "Analysis" > "Nonparametric" > "Kappa and Weighted Kappa"
|
||||||
procedure TOS3MainFrm.mnuAnalysisNonPar_WeightedKappaClick(Sender: TObject);
|
procedure TOS3MainFrm.mnuAnalysisNonPar_WeightedKappaClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
if WeightedKappaFrm = nil then
|
if WeightedKappaForm = nil then
|
||||||
Application.CreateForm(TWeightedKappaFrm, WeightedKappaFrm);
|
Application.CreateForm(TWeightedKappaForm, WeightedKappaForm);
|
||||||
WeightedKappaFrm.ShowModal;
|
WeightedKappaForm.ShowModal;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
// Menu "Analysis" > "Nonparametric" > "Life table"
|
// Menu "Analysis" > "Nonparametric" > "Life table"
|
||||||
|
|||||||
Reference in New Issue
Block a user