pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazStats: Inherit LogLinScreenUnit from TBasicStatsReportFormUnit (still crashing).

Browse Source 
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
2020-12-03 23:51:15 +00:00
parent d63dc9c1fb
commit 6ca98774db
2 changed files with 1082 additions and 1154 deletions
Download Patch File Download Diff File Expand all files Collapse all files

347
applications/lazstats/source/forms/analysis/cross-classification/loglinscreenunit.lfm
View File

@ -1,83 +1,105 @@
object LogLinScreenForm: TLogLinScreenForm inherited LogLinScreenForm: TLogLinScreenForm
Left = 417 Left = 417
Height = 379 Height = 294
Top = 130 Top = 130
Width = 662 Width = 833
HelpType = htKeyword HelpType = htKeyword
HelpKeyword = 'LogLinearScreen.htm' HelpKeyword = 'LogLinearScreen.htm'
AutoSize = True
Caption = 'Cross-Classification Log Linear Screen' Caption = 'Cross-Classification Log Linear Screen'
ClientHeight = 379 ClientHeight = 294
ClientWidth = 662 ClientWidth = 833
OnActivate = FormActivate inherited ParamsPanel: TPanel
OnCreate = FormCreate Height = 278
OnShow = FormShow Width = 464
LCLVersion = '2.1.0.0' ClientHeight = 278
object Label2: TLabel ClientWidth = 464
AnchorSideLeft.Control = Owner inherited CloseBtn: TButton
AnchorSideTop.Control = Owner Left = 409
Left = 8 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 Height = 15
Top = 8 Top = 0
Width = 97 Width = 97
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Available Variables' Caption = 'Available Variables'
ParentColor = False ParentColor = False
end end
object Label3: TLabel object Label3: TLabel[6]
AnchorSideLeft.Control = SelectList AnchorSideLeft.Control = SelectList
AnchorSideTop.Control = Label2 AnchorSideTop.Control = Label2
Left = 255 Left = 168
Height = 15 Height = 15
Top = 8 Top = 0
Width = 44 Width = 44
Caption = 'Selected' Caption = 'Selected'
ParentColor = False ParentColor = False
end end
object CountVarChk: TCheckBox object CountVarChk: TCheckBox[7]
AnchorSideLeft.Control = SelectList AnchorSideLeft.Control = SelectList
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = GroupBox1 AnchorSideBottom.Control = OptionsGroup
Left = 255 Left = 168
Height = 19 Height = 19
Top = 252 Top = 159
Width = 247 Width = 247
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
BorderSpacing.Top = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Caption = 'Last Variable Selected is a Frequency Count' Caption = 'Last Variable Selected is a Frequency Count'
OnChange = CountVarChkChange OnChange = CountVarChkChange
TabOrder = 4 TabOrder = 6
end end
object VarList: TListBox object VarList: TListBox[8]
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Control = Label2 AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = AllBtn AnchorSideRight.Control = AllBtn
AnchorSideBottom.Control = CountVarChk AnchorSideBottom.Control = CountVarChk
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 8 Left = 0
Height = 246 Height = 161
Top = 25 Top = 17
Width = 185 Width = 116
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Top = 2 BorderSpacing.Top = 2
BorderSpacing.Right = 8 BorderSpacing.Right = 6
ItemHeight = 0 ItemHeight = 0
MultiSelect = True MultiSelect = True
OnDblClick = VarListDblClick
OnSelectionChange = VarListSelectionChange OnSelectionChange = VarListSelectionChange
TabOrder = 0 TabOrder = 0
end end
object InBtn: TBitBtn object InBtn: TBitBtn[9]
AnchorSideLeft.Control = Bevel2 AnchorSideLeft.Control = Bevel2
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = VarList AnchorSideTop.Control = VarList
Left = 210 Left = 128
Height = 28 Height = 28
Top = 25 Top = 17
Width = 28 Width = 28
Images = MainDataModule.ImageList Images = MainDataModule.ImageList
ImageIndex = 1 ImageIndex = 1
@ -85,14 +107,14 @@ object LogLinScreenForm: TLogLinScreenForm
Spacing = 0 Spacing = 0
TabOrder = 1 TabOrder = 1
end end
object OutBtn: TBitBtn object OutBtn: TBitBtn[10]
AnchorSideLeft.Control = Bevel2 AnchorSideLeft.Control = Bevel2
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = InBtn AnchorSideTop.Control = InBtn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 210 Left = 128
Height = 28 Height = 28
Top = 57 Top = 49
Width = 28 Width = 28
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Images = MainDataModule.ImageList Images = MainDataModule.ImageList
@ -101,52 +123,112 @@ object LogLinScreenForm: TLogLinScreenForm
Spacing = 0 Spacing = 0
TabOrder = 2 TabOrder = 2
end end
object AllBtn: TBitBtn object AllBtn: TBitBtn[11]
AnchorSideLeft.Control = Bevel2 AnchorSideLeft.Control = Bevel2
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = OutBtn AnchorSideTop.Control = OutBtn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 201 Left = 122
Height = 25 Height = 25
Top = 89 Top = 81
Width = 46 Width = 40
AutoSize = True AutoSize = True
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Bottom = 24 BorderSpacing.Bottom = 24
Caption = 'ALL' Caption = 'All'
OnClick = AllBtnClick OnClick = AllBtnClick
Spacing = 0 Spacing = 0
TabOrder = 3 TabOrder = 3
end end
object SelectList: TListBox object SelectList: TListBox[12]
AnchorSideLeft.Control = AllBtn AnchorSideLeft.Control = AllBtn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = VarList AnchorSideTop.Control = VarList
AnchorSideRight.Control = MinMaxGrid AnchorSideRight.Control = MinMaxGrid
AnchorSideBottom.Control = CountVarChk AnchorSideBottom.Control = CountVarChk
Left = 255 Left = 168
Height = 219 Height = 134
Top = 25 Top = 17
Width = 185 Width = 117
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 8 BorderSpacing.Left = 6
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = SelectListSelectionChange OnSelectionChange = SelectListSelectionChange
TabOrder = 7 TabOrder = 4
end end
object GroupBox1: TGroupBox object MinMaxGrid: TStringGrid[13]
AnchorSideLeft.Control = Owner AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SelectList
AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Bevel1 AnchorSideBottom.Control = SelectList
Left = 8 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 Height = 51
Top = 279 Top = 186
Width = 390 Width = 390
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Options' Caption = 'Options'
ChildSizing.LeftRightSpacing = 12 ChildSizing.LeftRightSpacing = 12
@ -157,7 +239,7 @@ object LogLinScreenForm: TLogLinScreenForm
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 31 ClientHeight = 31
ClientWidth = 386 ClientWidth = 386
TabOrder = 6 TabOrder = 11
object MarginsChk: TCheckBox object MarginsChk: TCheckBox
Left = 12 Left = 12
Height = 19 Height = 19
@ -175,150 +257,9 @@ object LogLinScreenForm: TLogLinScreenForm
TabOrder = 1 TabOrder = 1
end 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 end
object ComputeBtn: TButton inherited ParamsSplitter: TSplitter
AnchorSideRight.Control = CloseBtn Left = 476
AnchorSideBottom.Control = Owner Height = 294
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
end end
end end

1289
applications/lazstats/source/forms/analysis/cross-classification/loglinscreenunit.pas
View File

File diff suppressed because it is too large Load Diff