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

LazStats: Refactor DistribUnit. Add pdf help to chm.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7408 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-04-26 22:36:07 +00:00
parent 516ebcad09
commit cf4ce2f94a
4 changed files with 620 additions and 559 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.

BIN
applications/lazstats/docs/chm/LazStats.chm
View File

Binary file not shown.

227
applications/lazstats/source/forms/simulations/distribunit.lfm
View File

@ -1,13 +1,14 @@
object DistribFrm: TDistribFrm object DistribFrm: TDistribFrm
Left = 420 Left = 420
Height = 301 Height = 223
Top = 215 Top = 215
Width = 307 Width = 384
AutoSize = True AutoSize = True
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Distributions' Caption = 'Distributions'
ClientHeight = 301 ClientHeight = 223
ClientWidth = 307 ClientWidth = 384
OnActivate = FormActivate
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poMainFormCenter Position = poMainFormCenter
@ -32,7 +33,7 @@ object DistribFrm: TDistribFrm
ClientHeight = 89 ClientHeight = 89
ClientWidth = 176 ClientWidth = 176
TabOrder = 0 TabOrder = 0
object NDChk: TCheckBox object NDChk: TRadioButton
Left = 16 Left = 16
Height = 19 Height = 19
Top = 8 Top = 8
@ -41,7 +42,7 @@ object DistribFrm: TDistribFrm
OnClick = NDChkClick OnClick = NDChkClick
TabOrder = 0 TabOrder = 0
end end
object ChiChk: TCheckBox object ChiChk: TRadioButton
Left = 16 Left = 16
Height = 19 Height = 19
Top = 35 Top = 35
@ -50,7 +51,7 @@ object DistribFrm: TDistribFrm
OnClick = ChiChkClick OnClick = ChiChkClick
TabOrder = 1 TabOrder = 1
end end
object FChk: TCheckBox object FChk: TRadioButton
Left = 16 Left = 16
Height = 19 Height = 19
Top = 62 Top = 62
@ -61,29 +62,28 @@ object DistribFrm: TDistribFrm
end end
end end
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = GroupBox1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox1 AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1 AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 12 Left = 204
Height = 146 Height = 140
Top = 137 Top = 12
Width = 180 Width = 170
Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Top = 16 BorderSpacing.Right = 12
BorderSpacing.Bottom = 12 BorderSpacing.Bottom = 12
Caption = 'Parameters' Caption = 'Parameters'
ClientHeight = 126 ClientHeight = 120
ClientWidth = 176 ClientWidth = 166
TabOrder = 1 TabOrder = 1
object AlphaLabel: TLabel object AlphaLabel: TLabel
AnchorSideTop.Control = AlphaEdit AnchorSideTop.Control = AlphaEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = AlphaEdit AnchorSideRight.Control = AlphaEdit
Left = 33 Left = 19
Height = 15 Height = 15
Top = 6 Top = 6
Width = 84 Width = 84
@ -92,57 +92,60 @@ object DistribFrm: TDistribFrm
Caption = 'Type I Error Rate' Caption = 'Type I Error Rate'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object DF1Label: TLabel
AnchorSideTop.Control = DF1Edit AnchorSideTop.Control = DF1Edit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = DF1Edit AnchorSideRight.Control = DF1Edit
Left = 26 Left = 12
Height = 15 Height = 15
Top = 37 Top = 33
Width = 91 Width = 91
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Deg. Freedom (1)' Caption = 'Deg. Freedom (1)'
ParentColor = False ParentColor = False
end end
object Label3: TLabel object DF2Label: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = DF2Edit AnchorSideTop.Control = DF2Edit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = DF2Edit AnchorSideRight.Control = DF2Edit
Left = 26 Left = 12
Height = 15 Height = 15
Top = 68 Top = 60
Width = 91 Width = 91
Anchors = [akTop, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Deg. Freedom (2)' Caption = 'Deg. Freedom (2)'
ParentColor = False ParentColor = False
end end
object Label4: TLabel object MeanLabel: TLabel
AnchorSideTop.Control = MeanEdit AnchorSideTop.Control = MeanEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = MeanEdit AnchorSideRight.Control = MeanEdit
Left = 87 Left = 73
Height = 15 Height = 15
Top = 99 Top = 93
Width = 30 Width = 30
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Mean' Caption = 'Mean'
ParentColor = False ParentColor = False
Visible = False
end end
object AlphaEdit: TEdit object AlphaEdit: TEdit
AnchorSideTop.Control = GroupBox2 AnchorSideTop.Control = GroupBox2
AnchorSideRight.Control = GroupBox2 AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 125 Left = 111
Height = 23 Height = 23
Top = 2 Top = 2
Width = 43 Width = 43
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 2 BorderSpacing.Top = 2
BorderSpacing.Right = 8 BorderSpacing.Right = 12
TabOrder = 0 TabOrder = 0
Text = 'AlphaEdit' Text = 'AlphaEdit'
end end
@ -151,130 +154,110 @@ object DistribFrm: TDistribFrm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = AlphaEdit AnchorSideRight.Control = AlphaEdit
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 125 Left = 111
Height = 23 Height = 23
Top = 33 Top = 29
Width = 43 Width = 43
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 8 BorderSpacing.Top = 4
TabOrder = 1 TabOrder = 1
Text = 'Edit1' Text = 'DF1Edit'
end end
object MeanEdit: TEdit object MeanEdit: TEdit
AnchorSideTop.Control = DF2Edit AnchorSideTop.Control = DF2Edit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = AlphaEdit AnchorSideRight.Control = AlphaEdit
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 125 Left = 111
Height = 23 Height = 23
Top = 95 Top = 89
Width = 43 Width = 43
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 8 BorderSpacing.Top = 4
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
TabOrder = 3 TabOrder = 3
Text = 'Edit1' Text = 'MeanEdit'
Visible = False
end end
object DF2Edit: TEdit object DF2Edit: TEdit
AnchorSideTop.Control = DF1Edit AnchorSideTop.Control = DF1Edit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = AlphaEdit AnchorSideRight.Control = AlphaEdit
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 125 Left = 111
Height = 23 Height = 23
Top = 64 Top = 56
Width = 43 Width = 43
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 8 BorderSpacing.Top = 4
BorderSpacing.Bottom = 10
TabOrder = 2 TabOrder = 2
Text = 'Edit1' Text = 'DF2Edit'
end end
end end
object Panel1: TPanel object CloseBtn: TButton
AnchorSideLeft.Control = GroupBox1 AnchorSideTop.Control = Bevel1
AnchorSideLeft.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = GroupBox2 AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 208 Left = 321
Height = 136 Height = 25
Top = 147 Top = 180
Width = 76 Width = 55
Anchors = [akLeft, akBottom] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 16 BorderSpacing.Top = 8
BorderSpacing.Right = 12 BorderSpacing.Right = 8
BevelOuter = bvNone Caption = 'Close'
ChildSizing.VerticalSpacing = 12 ModalResult = 11
ClientHeight = 136 TabOrder = 4
ClientWidth = 76 end
object ComputeBtn: TButton
AnchorSideTop.Control = CloseBtn
AnchorSideRight.Control = CloseBtn
Left = 237
Height = 25
Top = 180
Width = 76
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'Compute'
OnClick = ComputeBtnClick
TabOrder = 3
end
object ResetBtn: TButton
AnchorSideTop.Control = CloseBtn
AnchorSideRight.Control = ComputeBtn
Left = 175
Height = 25
Top = 180
Width = 54
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Reset'
OnClick = ResetBtnClick
TabOrder = 2 TabOrder = 2
object ResetBtn: TButton end
AnchorSideLeft.Control = Panel1 object Bevel1: TBevel
AnchorSideTop.Control = Panel1 AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Panel1 AnchorSideTop.Control = GroupBox2
AnchorSideRight.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 AnchorSideRight.Control = Owner
Height = 25 AnchorSideRight.Side = asrBottom
Top = 0 Left = 0
Width = 76 Height = 8
Anchors = [akTop, akLeft, akRight] Top = 164
AutoSize = True Width = 384
BorderSpacing.Bottom = 8 Anchors = [akTop, akLeft, akRight]
Caption = 'Reset' Shape = bsBottomLine
OnClick = ResetBtnClick
TabOrder = 0
end
object CancelBtn: TButton
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = ResetBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 0
Height = 25
Top = 37
Width = 76
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
end
object ComputeBtn: TButton
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = CancelBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 0
Height = 25
Top = 74
Width = 76
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Compute'
OnClick = ComputeBtnClick
TabOrder = 2
end
object ReturnBtn: TButton
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = ComputeBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 25
Top = 111
Width = 76
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Return'
ModalResult = 1
TabOrder = 3
end
end end
end end

952
applications/lazstats/source/forms/simulations/distribunit.pas
View File

File diff suppressed because it is too large Load Diff