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

LazStats: Refactor GLMUnit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7360 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-04-06 10:38:45 +00:00
parent 8cb1f22c1f
commit d58dee4816
3 changed files with 1661 additions and 1571 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
applications/lazstats/docs/HelpNDoc/LazStats.hnd
View File

Binary file not shown.

107
applications/lazstats/source/forms/analysis/comparisons/glmunit.lfm
View File

@ -11,92 +11,74 @@ object GLMFrm: TGLMFrm
OnShow = FormShow OnShow = FormShow
LCLVersion = '2.1.0.0' LCLVersion = '2.1.0.0'
object ResetBtn: TButton object ResetBtn: TButton
AnchorSideRight.Control = CancelBtn AnchorSideRight.Control = ComputeBtn
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 561 Left = 653
Height = 25 Height = 25
Top = 533 Top = 533
Width = 54 Width = 54
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 12 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Right = 12 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Caption = 'Reset' Caption = 'Reset'
OnClick = ResetBtnClick OnClick = ResetBtnClick
TabOrder = 3 TabOrder = 3
end end
object CancelBtn: TButton
AnchorSideRight.Control = ComputeBtn
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 627
Height = 25
Top = 533
Width = 62
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Top = 8
BorderSpacing.Right = 12
BorderSpacing.Bottom = 8
Caption = 'Cancel'
ModalResult = 2
TabOrder = 4
end
object ComputeBtn: TButton object ComputeBtn: TButton
AnchorSideRight.Control = ReturnBtn AnchorSideRight.Control = CloseBtn
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 701 Left = 715
Height = 25 Height = 25
Top = 533 Top = 533
Width = 76 Width = 76
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 12 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Right = 12 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Caption = 'Compute' Caption = 'Compute'
OnClick = ComputeBtnClick OnClick = ComputeBtnClick
TabOrder = 5 TabOrder = 4
end end
object ReturnBtn: TButton object CloseBtn: TButton
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 789 Left = 799
Height = 25 Height = 25
Top = 533 Top = 533
Width = 61 Width = 55
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 12 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Right = 12 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Caption = 'Return' Caption = 'Close'
ModalResult = 1 ModalResult = 11
TabOrder = 6 TabOrder = 5
end end
object HelpBtn: TButton object HelpBtn: TButton
Tag = 126 Tag = 126
AnchorSideRight.Control = ResetBtn AnchorSideRight.Control = ResetBtn
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 498 Left = 594
Height = 25 Height = 25
Top = 533 Top = 533
Width = 51 Width = 51
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 12 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Right = 12 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Caption = 'Help' Caption = 'Help'
OnClick = HelpBtnClick OnClick = HelpBtnClick
@ -106,7 +88,7 @@ object GLMFrm: TGLMFrm
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ReturnBtn AnchorSideBottom.Control = CloseBtn
Left = 0 Left = 0
Height = 8 Height = 8
Top = 517 Top = 517
@ -221,6 +203,7 @@ object GLMFrm: TGLMFrm
BorderSpacing.Top = 2 BorderSpacing.Top = 2
BorderSpacing.Right = 8 BorderSpacing.Right = 8
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = ContDepCodeSelectionChange
TabOrder = 1 TabOrder = 1
end end
object ContDepCode: TListBox object ContDepCode: TListBox
@ -237,6 +220,7 @@ object GLMFrm: TGLMFrm
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 2 BorderSpacing.Top = 2
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = ContDepCodeSelectionChange
TabOrder = 0 TabOrder = 0
end end
object ContDepInBtn: TBitBtn object ContDepInBtn: TBitBtn
@ -250,7 +234,7 @@ object GLMFrm: TGLMFrm
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Images = MainDataModule.ImageList Images = MainDataModule.ImageList
ImageIndex = 1 ImageIndex = 0
OnClick = ContDepInBtnClick OnClick = ContDepInBtnClick
Spacing = 0 Spacing = 0
TabOrder = 2 TabOrder = 2
@ -268,7 +252,7 @@ object GLMFrm: TGLMFrm
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Images = MainDataModule.ImageList Images = MainDataModule.ImageList
ImageIndex = 0 ImageIndex = 1
OnClick = ContDepOutBtnClick OnClick = ContDepOutBtnClick
Spacing = 0 Spacing = 0
TabOrder = 3 TabOrder = 3
@ -345,6 +329,7 @@ object GLMFrm: TGLMFrm
BorderSpacing.Top = 2 BorderSpacing.Top = 2
BorderSpacing.Right = 8 BorderSpacing.Right = 8
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = ContDepCodeSelectionChange
TabOrder = 1 TabOrder = 1
end end
object CatDepCode: TListBox object CatDepCode: TListBox
@ -359,6 +344,7 @@ object GLMFrm: TGLMFrm
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = ContDepCodeSelectionChange
TabOrder = 0 TabOrder = 0
end end
end end
@ -382,7 +368,7 @@ object GLMFrm: TGLMFrm
Caption = 'Repeated Meas. Dep. Vars.' Caption = 'Repeated Meas. Dep. Vars.'
ParentColor = False ParentColor = False
end end
object RepDepInBtn: TBitBtn object ReptDepInBtn: TBitBtn
AnchorSideTop.Control = RepeatList AnchorSideTop.Control = RepeatList
AnchorSideRight.Control = Panel8 AnchorSideRight.Control = Panel8
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
@ -394,12 +380,12 @@ object GLMFrm: TGLMFrm
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Images = MainDataModule.ImageList Images = MainDataModule.ImageList
ImageIndex = 1 ImageIndex = 1
OnClick = RepDepInBtnClick OnClick = ReptDepInBtnClick
Spacing = 0 Spacing = 0
TabOrder = 2 TabOrder = 2
end end
object ReptDepOutBtn: TBitBtn object ReptDepOutBtn: TBitBtn
AnchorSideTop.Control = RepDepInBtn AnchorSideTop.Control = ReptDepInBtn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel8 AnchorSideRight.Control = Panel8
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
@ -421,7 +407,7 @@ object GLMFrm: TGLMFrm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label7 AnchorSideTop.Control = Label7
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = RepDepInBtn AnchorSideRight.Control = ReptDepInBtn
AnchorSideBottom.Control = Panel8 AnchorSideBottom.Control = Panel8
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 60 Left = 60
@ -433,6 +419,7 @@ object GLMFrm: TGLMFrm
BorderSpacing.Top = 2 BorderSpacing.Top = 2
BorderSpacing.Right = 8 BorderSpacing.Right = 8
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = ContDepCodeSelectionChange
TabOrder = 1 TabOrder = 1
end end
object ReptDepCode: TListBox object ReptDepCode: TListBox
@ -447,6 +434,7 @@ object GLMFrm: TGLMFrm
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = ContDepCodeSelectionChange
TabOrder = 0 TabOrder = 0
end end
end end
@ -495,6 +483,7 @@ object GLMFrm: TGLMFrm
BorderSpacing.Top = 2 BorderSpacing.Top = 2
ItemHeight = 0 ItemHeight = 0
MultiSelect = True MultiSelect = True
OnSelectionChange = ContDepCodeSelectionChange
TabOrder = 0 TabOrder = 0
end end
end end
@ -565,6 +554,7 @@ object GLMFrm: TGLMFrm
BorderSpacing.Right = 8 BorderSpacing.Right = 8
ItemHeight = 0 ItemHeight = 0
OnClick = FixedListClick OnClick = FixedListClick
OnSelectionChange = ContDepCodeSelectionChange
TabOrder = 2 TabOrder = 2
end end
object FixedIndepCode: TListBox object FixedIndepCode: TListBox
@ -579,6 +569,7 @@ object GLMFrm: TGLMFrm
Width = 50 Width = 50
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = ContDepCodeSelectionChange
TabOrder = 3 TabOrder = 3
end end
object FixedIndepInBtn: TBitBtn object FixedIndepInBtn: TBitBtn
@ -650,6 +641,7 @@ object GLMFrm: TGLMFrm
BorderSpacing.Right = 8 BorderSpacing.Right = 8
ItemHeight = 0 ItemHeight = 0
OnClick = RandomListClick OnClick = RandomListClick
OnSelectionChange = ContDepCodeSelectionChange
TabOrder = 2 TabOrder = 2
end end
object RndIndepCode: TListBox object RndIndepCode: TListBox
@ -664,6 +656,7 @@ object GLMFrm: TGLMFrm
Width = 50 Width = 50
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = ContDepCodeSelectionChange
TabOrder = 3 TabOrder = 3
end end
object RndIndepInBtn: TBitBtn object RndIndepInBtn: TBitBtn
@ -735,6 +728,7 @@ object GLMFrm: TGLMFrm
BorderSpacing.Right = 8 BorderSpacing.Right = 8
ItemHeight = 0 ItemHeight = 0
OnClick = CovariateListClick OnClick = CovariateListClick
OnSelectionChange = ContDepCodeSelectionChange
TabOrder = 2 TabOrder = 2
end end
object CovariateCode: TListBox object CovariateCode: TListBox
@ -749,6 +743,7 @@ object GLMFrm: TGLMFrm
Width = 50 Width = 50
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = ContDepCodeSelectionChange
TabOrder = 3 TabOrder = 3
end end
object CovInBtn: TBitBtn object CovInBtn: TBitBtn
@ -820,6 +815,7 @@ object GLMFrm: TGLMFrm
BorderSpacing.Right = 8 BorderSpacing.Right = 8
ItemHeight = 0 ItemHeight = 0
OnClick = RepTrtListClick OnClick = RepTrtListClick
OnSelectionChange = ContDepCodeSelectionChange
TabOrder = 0 TabOrder = 0
end end
object RepTrtCode: TListBox object RepTrtCode: TListBox
@ -834,6 +830,7 @@ object GLMFrm: TGLMFrm
Width = 50 Width = 50
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = ContDepCodeSelectionChange
TabOrder = 1 TabOrder = 1
end end
object Bevel2: TBevel object Bevel2: TBevel
@ -896,11 +893,11 @@ object GLMFrm: TGLMFrm
end end
object Label11: TLabel object Label11: TLabel
AnchorSideLeft.Control = InterDefList AnchorSideLeft.Control = InterDefList
AnchorSideTop.Control = InterDefList AnchorSideTop.Control = EndDefBtn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 20 Left = 20
Height = 15 Height = 15
Top = 138 Top = 165
Width = 141 Width = 141
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'List of Defined Interactions' Caption = 'List of Defined Interactions'
@ -908,14 +905,14 @@ object GLMFrm: TGLMFrm
end end
object EndDefBtn: TButton object EndDefBtn: TButton
AnchorSideLeft.Control = InterDefList AnchorSideLeft.Control = InterDefList
AnchorSideTop.Control = Label11 AnchorSideTop.Control = InterDefList
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 20 Left = 20
Height = 25 Height = 25
Top = 161 Top = 132
Width = 195 Width = 195
AutoSize = True AutoSize = True
BorderSpacing.Top = 8 BorderSpacing.Top = 2
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'End Definititon of an Interaction' Caption = 'End Definititon of an Interaction'
OnClick = EndDefBtnClick OnClick = EndDefBtnClick
@ -923,18 +920,18 @@ object GLMFrm: TGLMFrm
end end
object InteractList: TListBox object InteractList: TListBox
AnchorSideLeft.Control = InterDefList AnchorSideLeft.Control = InterDefList
AnchorSideTop.Control = EndDefBtn AnchorSideTop.Control = Label11
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel12 AnchorSideRight.Control = Panel12
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Panel12 AnchorSideBottom.Control = Panel12
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 20 Left = 20
Height = 135 Height = 147
Top = 194 Top = 182
Width = 232 Width = 232
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 8 BorderSpacing.Top = 2
BorderSpacing.Right = 8 BorderSpacing.Right = 8
ItemHeight = 0 ItemHeight = 0
TabOrder = 3 TabOrder = 3
@ -1095,7 +1092,7 @@ object GLMFrm: TGLMFrm
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 25 ClientHeight = 25
ClientWidth = 862 ClientWidth = 862
TabOrder = 7 TabOrder = 6
object ShowModelBtn: TButton object ShowModelBtn: TButton
AnchorSideLeft.Control = Panel14 AnchorSideLeft.Control = Panel14
AnchorSideTop.Control = Panel14 AnchorSideTop.Control = Panel14

3125
applications/lazstats/source/forms/analysis/comparisons/glmunit.pas
View File

File diff suppressed because it is too large Load Diff