You've already forked lazarus-ccr
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8017 8e941d3f-bd1b-0410-a28a-d453659cc2b4
433 lines
11 KiB
Plaintext
433 lines
11 KiB
Plaintext
inherited LifeTableForm: TLifeTableForm
|
|
Left = 496
|
|
Height = 528
|
|
Top = 122
|
|
Width = 784
|
|
HelpType = htKeyword
|
|
HelpKeyword = 'html/LifeTable.htm'
|
|
Caption = 'Life Table'
|
|
ClientHeight = 528
|
|
ClientWidth = 784
|
|
OnCreate = FormCreate
|
|
inherited ParamsPanel: TPanel
|
|
Height = 512
|
|
Width = 260
|
|
AutoSize = True
|
|
ClientHeight = 512
|
|
ClientWidth = 260
|
|
TabOrder = 1
|
|
inherited CloseBtn: TButton
|
|
Left = 205
|
|
Top = 487
|
|
end
|
|
inherited ComputeBtn: TButton
|
|
Left = 121
|
|
Top = 487
|
|
end
|
|
inherited ResetBtn: TButton
|
|
Left = 59
|
|
Top = 487
|
|
end
|
|
inherited HelpBtn: TButton
|
|
Left = 0
|
|
Top = 487
|
|
Visible = False
|
|
end
|
|
inherited ButtonBevel: TBevel
|
|
Top = 471
|
|
Width = 260
|
|
end
|
|
object Label1: TLabel[5]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideTop.Control = ParamsPanel
|
|
Left = 0
|
|
Height = 15
|
|
Top = 0
|
|
Width = 49
|
|
Caption = 'Variables:'
|
|
ParentColor = False
|
|
end
|
|
object VarList: TListBox[6]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideTop.Control = Label1
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = ObsStartInBtn
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 0
|
|
Height = 454
|
|
Top = 17
|
|
Width = 110
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Top = 2
|
|
BorderSpacing.Right = 6
|
|
ItemHeight = 0
|
|
OnDblClick = VarListDblClick
|
|
OnSelectionChange = VarListSelectionChange
|
|
TabOrder = 4
|
|
end
|
|
object ObsStartInBtn: TBitBtn[7]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = VarList
|
|
Left = 116
|
|
Height = 28
|
|
Top = 19
|
|
Width = 28
|
|
BorderSpacing.Top = 2
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 1
|
|
OnClick = ObsStartInBtnClick
|
|
Spacing = 0
|
|
TabOrder = 5
|
|
end
|
|
object ObsStartOutBtn: TBitBtn[8]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = ObsStartInBtn
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 116
|
|
Height = 28
|
|
Top = 51
|
|
Width = 28
|
|
BorderSpacing.Top = 4
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 0
|
|
OnClick = ObsStartOutBtnClick
|
|
Spacing = 0
|
|
TabOrder = 6
|
|
end
|
|
object Label2: TLabel[9]
|
|
AnchorSideLeft.Control = ObsStartEdit
|
|
AnchorSideBottom.Control = ObsStartEdit
|
|
Left = 150
|
|
Height = 15
|
|
Top = 27
|
|
Width = 91
|
|
Anchors = [akLeft, akBottom]
|
|
BorderSpacing.Bottom = 2
|
|
Caption = 'Observation Start'
|
|
ParentColor = False
|
|
end
|
|
object ObsStartEdit: TEdit[10]
|
|
AnchorSideLeft.Control = ObsStartInBtn
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Label2
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = ParamsPanel
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = ObsStartOutBtn
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 150
|
|
Height = 23
|
|
Top = 44
|
|
Width = 110
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Bottom = 12
|
|
ReadOnly = True
|
|
TabOrder = 7
|
|
Text = 'ObsStartEdit'
|
|
end
|
|
object Label3: TLabel[11]
|
|
AnchorSideLeft.Control = ObsEndEdit
|
|
AnchorSideBottom.Control = ObsEndEdit
|
|
Left = 152
|
|
Height = 15
|
|
Top = 111
|
|
Width = 90
|
|
Anchors = [akLeft, akBottom]
|
|
BorderSpacing.Bottom = 2
|
|
Caption = 'Observation End:'
|
|
ParentColor = False
|
|
end
|
|
object ObsEndEdit: TEdit[12]
|
|
AnchorSideLeft.Control = ObsEndInBtn
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Control = ParamsPanel
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = ObsEndOutBtn
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 152
|
|
Height = 23
|
|
Top = 128
|
|
Width = 108
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Bottom = 12
|
|
ReadOnly = True
|
|
TabOrder = 8
|
|
Text = 'ObsEndEdit'
|
|
end
|
|
object ObsEndInBtn: TBitBtn[13]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = ObsStartOutBtn
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 116
|
|
Height = 28
|
|
Top = 103
|
|
Width = 28
|
|
BorderSpacing.Top = 24
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 1
|
|
OnClick = ObsEndInBtnClick
|
|
Spacing = 0
|
|
TabOrder = 9
|
|
end
|
|
object ObsEndOutBtn: TBitBtn[14]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = ObsEndInBtn
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 116
|
|
Height = 28
|
|
Top = 135
|
|
Width = 28
|
|
BorderSpacing.Top = 4
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 0
|
|
OnClick = ObsEndOutBtnClick
|
|
Spacing = 0
|
|
TabOrder = 10
|
|
end
|
|
object Label4: TLabel[15]
|
|
AnchorSideLeft.Control = NoAliveEdit
|
|
AnchorSideBottom.Control = NoAliveEdit
|
|
Left = 152
|
|
Height = 15
|
|
Top = 195
|
|
Width = 76
|
|
Anchors = [akLeft, akBottom]
|
|
BorderSpacing.Bottom = 2
|
|
Caption = 'Number Alive:'
|
|
ParentColor = False
|
|
end
|
|
object NoAliveEdit: TEdit[16]
|
|
AnchorSideLeft.Control = ObsEndInBtn
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Control = ParamsPanel
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = AliveOutBtn
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 152
|
|
Height = 23
|
|
Top = 212
|
|
Width = 108
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Bottom = 12
|
|
ReadOnly = True
|
|
TabOrder = 11
|
|
Text = 'NoAliveEdit'
|
|
end
|
|
object AliveInBtn: TBitBtn[17]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = ObsEndOutBtn
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 116
|
|
Height = 28
|
|
Top = 187
|
|
Width = 28
|
|
BorderSpacing.Top = 24
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 1
|
|
OnClick = AliveInBtnClick
|
|
Spacing = 0
|
|
TabOrder = 12
|
|
end
|
|
object AliveOutBtn: TBitBtn[18]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = AliveInBtn
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 116
|
|
Height = 28
|
|
Top = 219
|
|
Width = 28
|
|
BorderSpacing.Top = 4
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 0
|
|
OnClick = AliveOutBtnClick
|
|
Spacing = 0
|
|
TabOrder = 13
|
|
end
|
|
object Label5: TLabel[19]
|
|
AnchorSideLeft.Control = NoDiedEdit
|
|
AnchorSideBottom.Control = NoDiedEdit
|
|
Left = 152
|
|
Height = 15
|
|
Top = 279
|
|
Width = 74
|
|
Anchors = [akLeft, akBottom]
|
|
BorderSpacing.Bottom = 2
|
|
Caption = 'Number Died:'
|
|
ParentColor = False
|
|
end
|
|
object NoDiedEdit: TEdit[20]
|
|
AnchorSideLeft.Control = ObsEndInBtn
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Control = ParamsPanel
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = NoDiedOutBtn
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 152
|
|
Height = 23
|
|
Top = 296
|
|
Width = 108
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Bottom = 12
|
|
ReadOnly = True
|
|
TabOrder = 14
|
|
Text = 'NoDiedEdit'
|
|
end
|
|
object NoDiedInBtn: TBitBtn[21]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = AliveOutBtn
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 116
|
|
Height = 28
|
|
Top = 271
|
|
Width = 28
|
|
BorderSpacing.Top = 24
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 1
|
|
OnClick = NoDiedInBtnClick
|
|
Spacing = 0
|
|
TabOrder = 15
|
|
end
|
|
object NoDiedOutBtn: TBitBtn[22]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = NoDiedInBtn
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 116
|
|
Height = 28
|
|
Top = 303
|
|
Width = 28
|
|
BorderSpacing.Top = 4
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 0
|
|
OnClick = NoDiedOutBtnClick
|
|
Spacing = 0
|
|
TabOrder = 16
|
|
end
|
|
object Label6: TLabel[23]
|
|
AnchorSideLeft.Control = NoCensoredEdit
|
|
AnchorSideBottom.Control = NoCensoredEdit
|
|
Left = 152
|
|
Height = 15
|
|
Top = 363
|
|
Width = 100
|
|
Anchors = [akLeft, akBottom]
|
|
BorderSpacing.Bottom = 2
|
|
Caption = 'Number Censored:'
|
|
ParentColor = False
|
|
end
|
|
object NoCensoredEdit: TEdit[24]
|
|
AnchorSideLeft.Control = ObsEndInBtn
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Control = ParamsPanel
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = NoCensoredOutBtn
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 152
|
|
Height = 23
|
|
Top = 380
|
|
Width = 108
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Bottom = 12
|
|
ReadOnly = True
|
|
TabOrder = 17
|
|
Text = 'NoCensoredEdit'
|
|
end
|
|
object NoCensoredInBtn: TBitBtn[25]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = NoDiedOutBtn
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 116
|
|
Height = 28
|
|
Top = 355
|
|
Width = 28
|
|
BorderSpacing.Top = 24
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 1
|
|
OnClick = NoCensoredInBtnClick
|
|
Spacing = 0
|
|
TabOrder = 18
|
|
end
|
|
object NoCensoredOutBtn: TBitBtn[26]
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = NoCensoredInBtn
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 116
|
|
Height = 28
|
|
Hint = '0'
|
|
Top = 387
|
|
Width = 28
|
|
BorderSpacing.Top = 4
|
|
Images = MainDataModule.ImageList
|
|
ImageIndex = 0
|
|
OnClick = NoCensoredOutBtnClick
|
|
Spacing = 0
|
|
TabOrder = 19
|
|
end
|
|
object Label7: TLabel[27]
|
|
AnchorSideTop.Control = CIEdit
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = CIEdit
|
|
Left = 115
|
|
Height = 30
|
|
Top = 435
|
|
Width = 94
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Confidence Level'#13#10'for Number Alive:'
|
|
ParentColor = False
|
|
end
|
|
object CIEdit: TEdit[28]
|
|
AnchorSideTop.Control = NoCensoredOutBtn
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = ParamsPanel
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 217
|
|
Height = 23
|
|
Top = 439
|
|
Width = 43
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Top = 24
|
|
BorderSpacing.Bottom = 8
|
|
TabOrder = 20
|
|
Text = '0.95'
|
|
end
|
|
end
|
|
inherited ParamsSplitter: TSplitter
|
|
Left = 272
|
|
Height = 528
|
|
end
|
|
object Grid: TStringGrid[2]
|
|
Left = 281
|
|
Height = 512
|
|
Top = 8
|
|
Width = 495
|
|
Align = alClient
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 8
|
|
BorderSpacing.Right = 8
|
|
BorderSpacing.Bottom = 8
|
|
ColCount = 13
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goThumbTracking, goSmoothScroll]
|
|
RowCount = 2
|
|
TabOrder = 0
|
|
OnPrepareCanvas = GridPrepareCanvas
|
|
end
|
|
end
|