2020-10-22 10:24:24 +00:00
|
|
|
inherited CoxRegForm: TCoxRegForm
|
2020-03-30 18:01:44 +00:00
|
|
|
Left = 457
|
2020-10-22 10:24:24 +00:00
|
|
|
Height = 393
|
2020-03-30 18:01:44 +00:00
|
|
|
Top = 291
|
2020-10-22 10:24:24 +00:00
|
|
|
Width = 480
|
2020-05-26 14:51:03 +00:00
|
|
|
HelpType = htKeyword
|
2020-08-17 13:55:43 +00:00
|
|
|
HelpKeyword = 'html/CoxProportionalHazardsSurvivalRe.htm'
|
2020-03-30 18:01:44 +00:00
|
|
|
Caption = 'Cox Proportional Hazards Survival Regression'
|
2020-10-22 10:24:24 +00:00
|
|
|
ClientHeight = 393
|
|
|
|
ClientWidth = 480
|
|
|
|
inherited ParamsPanel: TPanel
|
|
|
|
Height = 377
|
|
|
|
ClientHeight = 377
|
|
|
|
inherited CloseBtn: TButton
|
|
|
|
Top = 352
|
|
|
|
end
|
|
|
|
inherited ComputeBtn: TButton
|
|
|
|
Top = 352
|
|
|
|
end
|
|
|
|
inherited ResetBtn: TButton
|
|
|
|
Top = 352
|
|
|
|
end
|
|
|
|
inherited HelpBtn: TButton
|
|
|
|
Top = 352
|
|
|
|
end
|
|
|
|
inherited ButtonBevel: TBevel
|
|
|
|
Top = 336
|
|
|
|
end
|
|
|
|
object Label1: TLabel[5]
|
|
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
|
|
AnchorSideTop.Control = ParamsPanel
|
|
|
|
Left = 0
|
|
|
|
Height = 15
|
|
|
|
Top = 0
|
|
|
|
Width = 94
|
|
|
|
Caption = 'Availabe Variables'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label2: TLabel[6]
|
|
|
|
AnchorSideLeft.Control = BlockList
|
|
|
|
AnchorSideTop.Control = ParamsPanel
|
|
|
|
Left = 164
|
|
|
|
Height = 15
|
|
|
|
Top = 8
|
|
|
|
Width = 116
|
|
|
|
BorderSpacing.Top = 8
|
|
|
|
Caption = 'Independent Variables'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label3: TLabel[7]
|
|
|
|
AnchorSideLeft.Control = DepVar
|
|
|
|
AnchorSideBottom.Control = DepVar
|
|
|
|
Left = 166
|
|
|
|
Height = 15
|
|
|
|
Top = 80
|
|
|
|
Width = 114
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Bottom = 2
|
|
|
|
Caption = 'Survival Time Variable'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label4: TLabel[8]
|
|
|
|
AnchorSideLeft.Control = StatusEdit
|
|
|
|
AnchorSideBottom.Control = StatusEdit
|
|
|
|
Left = 166
|
|
|
|
Height = 15
|
|
|
|
Top = 148
|
|
|
|
Width = 120
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Bottom = 2
|
|
|
|
Caption = 'Survival Status Variable'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label5: TLabel[9]
|
|
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
|
|
AnchorSideTop.Control = MaxItsEdit
|
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
Left = 0
|
|
|
|
Height = 15
|
|
|
|
Top = 212
|
|
|
|
Width = 117
|
|
|
|
Caption = 'Maximum Interations:'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object VarList: TListBox[10]
|
|
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
|
|
AnchorSideTop.Control = Label1
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = InBtn
|
|
|
|
AnchorSideBottom.Control = MaxItsEdit
|
|
|
|
Left = 0
|
|
|
|
Height = 183
|
|
|
|
Top = 17
|
|
|
|
Width = 126
|
|
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
BorderSpacing.Right = 6
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
ItemHeight = 0
|
|
|
|
MultiSelect = True
|
|
|
|
OnDblClick = VarListDblClick
|
|
|
|
OnSelectionChange = VarListSelectionChange
|
|
|
|
TabOrder = 4
|
|
|
|
end
|
|
|
|
object InBtn: TBitBtn[11]
|
|
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = VarList
|
|
|
|
Left = 132
|
|
|
|
Height = 26
|
|
|
|
Top = 17
|
|
|
|
Width = 26
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 1
|
|
|
|
OnClick = InBtnClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 5
|
|
|
|
end
|
|
|
|
object OutBtn: TBitBtn[12]
|
|
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = InBtn
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 132
|
|
|
|
Height = 26
|
|
|
|
Top = 47
|
|
|
|
Width = 26
|
|
|
|
BorderSpacing.Top = 4
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 0
|
|
|
|
OnClick = OutBtnClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 6
|
|
|
|
end
|
|
|
|
object DepInBtn: TBitBtn[13]
|
|
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = Label3
|
|
|
|
Left = 132
|
|
|
|
Height = 26
|
|
|
|
Top = 80
|
|
|
|
Width = 26
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 1
|
|
|
|
OnClick = DepInBtnClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 7
|
|
|
|
end
|
|
|
|
object DepOutBtn: TBitBtn[14]
|
|
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = DepInBtn
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 132
|
|
|
|
Height = 26
|
|
|
|
Top = 110
|
|
|
|
Width = 26
|
|
|
|
BorderSpacing.Top = 4
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 0
|
|
|
|
OnClick = DepOutBtnClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 8
|
|
|
|
end
|
|
|
|
object StatusInBtn: TBitBtn[15]
|
|
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideBottom.Control = StatusOutBtn
|
|
|
|
Left = 132
|
|
|
|
Height = 26
|
|
|
|
Top = 144
|
|
|
|
Width = 26
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Bottom = 4
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 1
|
|
|
|
OnClick = StatusInBtnClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 9
|
|
|
|
end
|
|
|
|
object StatusOutBtn: TBitBtn[16]
|
|
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = VarList
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 132
|
|
|
|
Height = 26
|
|
|
|
Top = 174
|
|
|
|
Width = 26
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 0
|
|
|
|
OnClick = StatusOutBtnClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 10
|
|
|
|
end
|
|
|
|
object BlockList: TListBox[17]
|
|
|
|
AnchorSideLeft.Control = InBtn
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = Label2
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = ParamsPanel
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = Label3
|
|
|
|
Left = 164
|
|
|
|
Height = 39
|
|
|
|
Top = 25
|
2020-03-30 18:01:44 +00:00
|
|
|
Width = 127
|
2020-10-22 10:24:24 +00:00
|
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Left = 6
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
BorderSpacing.Bottom = 16
|
|
|
|
ItemHeight = 0
|
|
|
|
OnDblClick = BlockListDblClick
|
|
|
|
OnSelectionChange = VarListSelectionChange
|
|
|
|
TabOrder = 11
|
2020-03-30 18:01:44 +00:00
|
|
|
end
|
2020-10-22 10:24:24 +00:00
|
|
|
object DepVar: TEdit[18]
|
|
|
|
AnchorSideLeft.Control = InBtn
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = VarList
|
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
AnchorSideRight.Control = ParamsPanel
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
Left = 166
|
|
|
|
Height = 23
|
|
|
|
Top = 97
|
|
|
|
Width = 125
|
|
|
|
Anchors = [akTop, akLeft, akRight]
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
ReadOnly = True
|
|
|
|
TabOrder = 12
|
|
|
|
Text = 'DepVar'
|
2020-03-30 18:01:44 +00:00
|
|
|
end
|
2020-10-22 10:24:24 +00:00
|
|
|
object StatusEdit: TEdit[19]
|
|
|
|
AnchorSideLeft.Control = DepInBtn
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = ParamsPanel
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = StatusOutBtn
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 166
|
|
|
|
Height = 23
|
|
|
|
Top = 165
|
|
|
|
Width = 125
|
|
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Bottom = 12
|
|
|
|
ReadOnly = True
|
|
|
|
TabOrder = 13
|
|
|
|
Text = 'StatusEdit'
|
|
|
|
end
|
|
|
|
object GroupBox1: TGroupBox[20]
|
|
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
|
|
AnchorSideBottom.Control = ButtonBevel
|
|
|
|
Left = 0
|
|
|
|
Height = 97
|
|
|
|
Top = 239
|
|
|
|
Width = 171
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
Caption = 'Options'
|
|
|
|
ChildSizing.LeftRightSpacing = 12
|
|
|
|
ChildSizing.TopBottomSpacing = 6
|
|
|
|
ChildSizing.VerticalSpacing = 2
|
|
|
|
ClientHeight = 77
|
|
|
|
ClientWidth = 167
|
|
|
|
TabOrder = 14
|
|
|
|
object DescChk: TCheckBox
|
|
|
|
Left = 12
|
|
|
|
Height = 19
|
|
|
|
Top = 6
|
|
|
|
Width = 127
|
|
|
|
Caption = 'Descriptive Statistics'
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object ProbsChk: TCheckBox
|
|
|
|
Left = 12
|
|
|
|
Height = 19
|
|
|
|
Top = 29
|
|
|
|
Width = 143
|
|
|
|
Caption = 'Base Survival Functions'
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object ItersChk: TCheckBox
|
|
|
|
Left = 12
|
|
|
|
Height = 19
|
|
|
|
Top = 52
|
|
|
|
Width = 101
|
|
|
|
Caption = 'Show Iterations'
|
|
|
|
TabOrder = 2
|
|
|
|
end
|
|
|
|
end
|
|
|
|
object MaxItsEdit: TEdit[21]
|
|
|
|
AnchorSideLeft.Control = Label5
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = GroupBox1
|
|
|
|
Left = 125
|
|
|
|
Height = 23
|
|
|
|
Top = 208
|
|
|
|
Width = 42
|
|
|
|
Alignment = taRightJustify
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
TabOrder = 15
|
|
|
|
Text = 'MaxItsEdit'
|
2020-03-30 18:01:44 +00:00
|
|
|
end
|
|
|
|
end
|
2020-10-22 10:24:24 +00:00
|
|
|
inherited ParamsSplitter: TSplitter
|
|
|
|
Height = 393
|
2020-03-30 18:01:44 +00:00
|
|
|
end
|
|
|
|
end
|