LazStats: Inherit LogLinScreenUnit from TBasicStatsReportFormUnit (still crashing).
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7920 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
parent
d63dc9c1fb
commit
6ca98774db
@ -1,324 +1,265 @@
|
||||
object LogLinScreenForm: TLogLinScreenForm
|
||||
inherited LogLinScreenForm: TLogLinScreenForm
|
||||
Left = 417
|
||||
Height = 379
|
||||
Height = 294
|
||||
Top = 130
|
||||
Width = 662
|
||||
Width = 833
|
||||
HelpType = htKeyword
|
||||
HelpKeyword = 'LogLinearScreen.htm'
|
||||
AutoSize = True
|
||||
Caption = 'Cross-Classification Log Linear Screen'
|
||||
ClientHeight = 379
|
||||
ClientWidth = 662
|
||||
OnActivate = FormActivate
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
LCLVersion = '2.1.0.0'
|
||||
object Label2: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 97
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 8
|
||||
Caption = 'Available Variables'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
AnchorSideLeft.Control = SelectList
|
||||
AnchorSideTop.Control = Label2
|
||||
Left = 255
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 44
|
||||
Caption = 'Selected'
|
||||
ParentColor = False
|
||||
end
|
||||
object CountVarChk: TCheckBox
|
||||
AnchorSideLeft.Control = SelectList
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = GroupBox1
|
||||
Left = 255
|
||||
Height = 19
|
||||
Top = 252
|
||||
Width = 247
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
BorderSpacing.Bottom = 8
|
||||
Caption = 'Last Variable Selected is a Frequency Count'
|
||||
OnChange = CountVarChkChange
|
||||
TabOrder = 4
|
||||
end
|
||||
object VarList: TListBox
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Label2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = AllBtn
|
||||
AnchorSideBottom.Control = CountVarChk
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 246
|
||||
Top = 25
|
||||
Width = 185
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 2
|
||||
BorderSpacing.Right = 8
|
||||
ItemHeight = 0
|
||||
MultiSelect = True
|
||||
OnSelectionChange = VarListSelectionChange
|
||||
TabOrder = 0
|
||||
end
|
||||
object InBtn: TBitBtn
|
||||
AnchorSideLeft.Control = Bevel2
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = VarList
|
||||
Left = 210
|
||||
Height = 28
|
||||
Top = 25
|
||||
Width = 28
|
||||
Images = MainDataModule.ImageList
|
||||
ImageIndex = 1
|
||||
OnClick = InBtnClick
|
||||
Spacing = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
object OutBtn: TBitBtn
|
||||
AnchorSideLeft.Control = Bevel2
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = InBtn
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 210
|
||||
Height = 28
|
||||
Top = 57
|
||||
Width = 28
|
||||
BorderSpacing.Top = 4
|
||||
Images = MainDataModule.ImageList
|
||||
ImageIndex = 0
|
||||
OnClick = OutBtnClick
|
||||
Spacing = 0
|
||||
TabOrder = 2
|
||||
end
|
||||
object AllBtn: TBitBtn
|
||||
AnchorSideLeft.Control = Bevel2
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = OutBtn
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 201
|
||||
Height = 25
|
||||
Top = 89
|
||||
Width = 46
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Bottom = 24
|
||||
Caption = 'ALL'
|
||||
OnClick = AllBtnClick
|
||||
Spacing = 0
|
||||
TabOrder = 3
|
||||
end
|
||||
object SelectList: TListBox
|
||||
AnchorSideLeft.Control = AllBtn
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = VarList
|
||||
AnchorSideRight.Control = MinMaxGrid
|
||||
AnchorSideBottom.Control = CountVarChk
|
||||
Left = 255
|
||||
Height = 219
|
||||
Top = 25
|
||||
Width = 185
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Right = 8
|
||||
ItemHeight = 0
|
||||
OnSelectionChange = SelectListSelectionChange
|
||||
TabOrder = 7
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = Bevel1
|
||||
Left = 8
|
||||
Height = 51
|
||||
Top = 279
|
||||
Width = 390
|
||||
Anchors = [akLeft, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'Options'
|
||||
ChildSizing.LeftRightSpacing = 12
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.HorizontalSpacing = 20
|
||||
ChildSizing.VerticalSpacing = 2
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 2
|
||||
ClientHeight = 31
|
||||
ClientWidth = 386
|
||||
TabOrder = 6
|
||||
object MarginsChk: TCheckBox
|
||||
Left = 12
|
||||
ClientHeight = 294
|
||||
ClientWidth = 833
|
||||
inherited ParamsPanel: TPanel
|
||||
Height = 278
|
||||
Width = 464
|
||||
ClientHeight = 278
|
||||
ClientWidth = 464
|
||||
inherited CloseBtn: TButton
|
||||
Left = 409
|
||||
Top = 253
|
||||
TabOrder = 10
|
||||
end
|
||||
inherited ComputeBtn: TButton
|
||||
Left = 325
|
||||
Top = 253
|
||||
TabOrder = 9
|
||||
end
|
||||
inherited ResetBtn: TButton
|
||||
Left = 263
|
||||
Top = 253
|
||||
TabOrder = 8
|
||||
end
|
||||
inherited HelpBtn: TButton
|
||||
Tag = 131
|
||||
Left = 204
|
||||
Top = 253
|
||||
TabOrder = 7
|
||||
end
|
||||
inherited ButtonBevel: TBevel
|
||||
Top = 237
|
||||
Width = 464
|
||||
end
|
||||
object Label2: TLabel[5]
|
||||
AnchorSideLeft.Control = ParamsPanel
|
||||
AnchorSideTop.Control = ParamsPanel
|
||||
Left = 0
|
||||
Height = 15
|
||||
Top = 0
|
||||
Width = 97
|
||||
Caption = 'Available Variables'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel[6]
|
||||
AnchorSideLeft.Control = SelectList
|
||||
AnchorSideTop.Control = Label2
|
||||
Left = 168
|
||||
Height = 15
|
||||
Top = 0
|
||||
Width = 44
|
||||
Caption = 'Selected'
|
||||
ParentColor = False
|
||||
end
|
||||
object CountVarChk: TCheckBox[7]
|
||||
AnchorSideLeft.Control = SelectList
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = OptionsGroup
|
||||
Left = 168
|
||||
Height = 19
|
||||
Top = 6
|
||||
Width = 129
|
||||
Caption = 'Print Marginal Totals'
|
||||
Top = 159
|
||||
Width = 247
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Right = 8
|
||||
BorderSpacing.Bottom = 8
|
||||
Caption = 'Last Variable Selected is a Frequency Count'
|
||||
OnChange = CountVarChkChange
|
||||
TabOrder = 6
|
||||
end
|
||||
object VarList: TListBox[8]
|
||||
AnchorSideLeft.Control = ParamsPanel
|
||||
AnchorSideTop.Control = Label2
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = AllBtn
|
||||
AnchorSideBottom.Control = CountVarChk
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 161
|
||||
Top = 17
|
||||
Width = 116
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Top = 2
|
||||
BorderSpacing.Right = 6
|
||||
ItemHeight = 0
|
||||
MultiSelect = True
|
||||
OnDblClick = VarListDblClick
|
||||
OnSelectionChange = VarListSelectionChange
|
||||
TabOrder = 0
|
||||
end
|
||||
object GenlModelChk: TCheckBox
|
||||
Left = 161
|
||||
Height = 19
|
||||
Top = 6
|
||||
Width = 213
|
||||
Caption = 'Print General Linear Modle Estimates'
|
||||
object InBtn: TBitBtn[9]
|
||||
AnchorSideLeft.Control = Bevel2
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = VarList
|
||||
Left = 128
|
||||
Height = 28
|
||||
Top = 17
|
||||
Width = 28
|
||||
Images = MainDataModule.ImageList
|
||||
ImageIndex = 1
|
||||
OnClick = InBtnClick
|
||||
Spacing = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
object OutBtn: TBitBtn[10]
|
||||
AnchorSideLeft.Control = Bevel2
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = InBtn
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 128
|
||||
Height = 28
|
||||
Top = 49
|
||||
Width = 28
|
||||
BorderSpacing.Top = 4
|
||||
Images = MainDataModule.ImageList
|
||||
ImageIndex = 0
|
||||
OnClick = OutBtnClick
|
||||
Spacing = 0
|
||||
TabOrder = 2
|
||||
end
|
||||
object AllBtn: TBitBtn[11]
|
||||
AnchorSideLeft.Control = Bevel2
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = OutBtn
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 122
|
||||
Height = 25
|
||||
Top = 81
|
||||
Width = 40
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Bottom = 24
|
||||
Caption = 'All'
|
||||
OnClick = AllBtnClick
|
||||
Spacing = 0
|
||||
TabOrder = 3
|
||||
end
|
||||
object SelectList: TListBox[12]
|
||||
AnchorSideLeft.Control = AllBtn
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = VarList
|
||||
AnchorSideRight.Control = MinMaxGrid
|
||||
AnchorSideBottom.Control = CountVarChk
|
||||
Left = 168
|
||||
Height = 134
|
||||
Top = 17
|
||||
Width = 117
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Right = 8
|
||||
BorderSpacing.Bottom = 8
|
||||
ItemHeight = 0
|
||||
OnSelectionChange = SelectListSelectionChange
|
||||
TabOrder = 4
|
||||
end
|
||||
object MinMaxGrid: TStringGrid[13]
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = SelectList
|
||||
AnchorSideRight.Control = ParamsPanel
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = SelectList
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 293
|
||||
Height = 134
|
||||
Top = 17
|
||||
Width = 171
|
||||
Anchors = [akTop, akRight, akBottom]
|
||||
AutoFillColumns = True
|
||||
BorderSpacing.Left = 8
|
||||
ColCount = 3
|
||||
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goSmoothScroll]
|
||||
RowCount = 1
|
||||
TabOrder = 5
|
||||
ColWidths = (
|
||||
64
|
||||
51
|
||||
52
|
||||
)
|
||||
Cells = (
|
||||
3
|
||||
0
|
||||
0
|
||||
'Variable'
|
||||
1
|
||||
0
|
||||
'Min'
|
||||
2
|
||||
0
|
||||
'Max'
|
||||
)
|
||||
end
|
||||
object Label1: TLabel[14]
|
||||
AnchorSideLeft.Control = MinMaxGrid
|
||||
AnchorSideTop.Control = Label2
|
||||
AnchorSideBottom.Control = MinMaxGrid
|
||||
Left = 293
|
||||
Height = 15
|
||||
Top = 0
|
||||
Width = 142
|
||||
Caption = 'Min/Max for each variable:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Bevel2: TBevel[15]
|
||||
AnchorSideLeft.Control = VarList
|
||||
AnchorSideTop.Control = ParamsPanel
|
||||
AnchorSideRight.Control = SelectList
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 4
|
||||
Top = 0
|
||||
Width = 285
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Shape = bsSpacer
|
||||
end
|
||||
object OptionsGroup: TGroupBox[16]
|
||||
AnchorSideLeft.Control = ParamsPanel
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = ButtonBevel
|
||||
Left = 37
|
||||
Height = 51
|
||||
Top = 186
|
||||
Width = 390
|
||||
Anchors = [akLeft, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'Options'
|
||||
ChildSizing.LeftRightSpacing = 12
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.HorizontalSpacing = 20
|
||||
ChildSizing.VerticalSpacing = 2
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 2
|
||||
ClientHeight = 31
|
||||
ClientWidth = 386
|
||||
TabOrder = 11
|
||||
object MarginsChk: TCheckBox
|
||||
Left = 12
|
||||
Height = 19
|
||||
Top = 6
|
||||
Width = 129
|
||||
Caption = 'Print Marginal Totals'
|
||||
TabOrder = 0
|
||||
end
|
||||
object GenlModelChk: TCheckBox
|
||||
Left = 161
|
||||
Height = 19
|
||||
Top = 6
|
||||
Width = 213
|
||||
Caption = 'Print General Linear Modle Estimates'
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
end
|
||||
object ResetBtn: TButton
|
||||
AnchorSideRight.Control = ComputeBtn
|
||||
AnchorSideBottom.Control = Owner
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 453
|
||||
Height = 25
|
||||
Top = 346
|
||||
Width = 54
|
||||
Anchors = [akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
BorderSpacing.Bottom = 8
|
||||
Caption = 'Reset'
|
||||
OnClick = ResetBtnClick
|
||||
TabOrder = 9
|
||||
end
|
||||
object ComputeBtn: TButton
|
||||
AnchorSideRight.Control = CloseBtn
|
||||
AnchorSideBottom.Control = Owner
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 515
|
||||
Height = 25
|
||||
Top = 346
|
||||
Width = 76
|
||||
Anchors = [akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
BorderSpacing.Bottom = 8
|
||||
Caption = 'Compute'
|
||||
OnClick = ComputeBtnClick
|
||||
TabOrder = 10
|
||||
end
|
||||
object CloseBtn: TButton
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = Owner
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 599
|
||||
Height = 25
|
||||
Top = 346
|
||||
Width = 55
|
||||
Anchors = [akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
BorderSpacing.Bottom = 8
|
||||
Caption = 'Close'
|
||||
ModalResult = 11
|
||||
TabOrder = 11
|
||||
end
|
||||
object HelpBtn: TButton
|
||||
Tag = 131
|
||||
AnchorSideRight.Control = ResetBtn
|
||||
AnchorSideBottom.Control = Owner
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 394
|
||||
Height = 25
|
||||
Top = 346
|
||||
Width = 51
|
||||
Anchors = [akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
BorderSpacing.Bottom = 8
|
||||
Caption = 'Help'
|
||||
OnClick = HelpBtnClick
|
||||
TabOrder = 8
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = CloseBtn
|
||||
Left = 0
|
||||
Height = 8
|
||||
Top = 330
|
||||
Width = 662
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
Shape = bsBottomLine
|
||||
end
|
||||
object MinMaxGrid: TStringGrid
|
||||
AnchorSideLeft.Control = SelectList
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = SelectList
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = SelectList
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 448
|
||||
Height = 219
|
||||
Top = 25
|
||||
Width = 206
|
||||
Anchors = [akTop, akRight, akBottom]
|
||||
AutoFillColumns = True
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Right = 8
|
||||
ColCount = 3
|
||||
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goSmoothScroll]
|
||||
RowCount = 1
|
||||
TabOrder = 5
|
||||
ColWidths = (
|
||||
64
|
||||
69
|
||||
69
|
||||
)
|
||||
Cells = (
|
||||
3
|
||||
0
|
||||
0
|
||||
'Variable'
|
||||
1
|
||||
0
|
||||
'Minimum'
|
||||
2
|
||||
0
|
||||
'Maximum'
|
||||
)
|
||||
end
|
||||
object Label1: TLabel
|
||||
AnchorSideLeft.Control = MinMaxGrid
|
||||
AnchorSideTop.Control = Label2
|
||||
AnchorSideBottom.Control = MinMaxGrid
|
||||
Left = 448
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 142
|
||||
Caption = 'Min/Max for each variable:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Bevel2: TBevel
|
||||
AnchorSideLeft.Control = VarList
|
||||
AnchorSideRight.Control = SelectList
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 4
|
||||
Top = 2
|
||||
Width = 432
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Shape = bsSpacer
|
||||
inherited ParamsSplitter: TSplitter
|
||||
Left = 476
|
||||
Height = 294
|
||||
end
|
||||
end
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user