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

LazStats: Refactor RaschUnit, add help text to chm.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7384 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-04-15 12:17:18 +00:00
parent fb17e650c0
commit 2f3af00ef0
4 changed files with 819 additions and 939 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.

59
applications/lazstats/source/forms/analysis/measurement_programs/raschunit.lfm
View File

@ -78,88 +78,74 @@ object RaschFrm: TRaschFrm
end
end
object ResetBtn: TButton
AnchorSideRight.Control = CancelBtn
AnchorSideRight.Control = ComputeBtn
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 105
Left = 197
Height = 25
Top = 386
Width = 54
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 12
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Reset'
OnClick = ResetBtnClick
TabOrder = 6
end
object CancelBtn: TButton
AnchorSideRight.Control = ComputeBtn
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 171
Height = 25
Top = 386
Width = 62
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Right = 12
BorderSpacing.Bottom = 8
Caption = 'Cancel'
ModalResult = 2
TabOrder = 7
end
object ComputeBtn: TButton
AnchorSideRight.Control = ReturnBtn
AnchorSideRight.Control = CloseBtn
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 245
Left = 259
Height = 25
Top = 386
Width = 76
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 12
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Compute'
OnClick = ComputeBtnClick
TabOrder = 8
TabOrder = 7
end
object ReturnBtn: TButton
object CloseBtn: TButton
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 333
Left = 343
Height = 25
Top = 386
Width = 61
Width = 55
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 12
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Return'
ModalResult = 1
TabOrder = 9
Caption = 'Close'
ModalResult = 11
TabOrder = 8
end
object HelpBtn: TButton
Tag = 140
AnchorSideRight.Control = ResetBtn
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 42
Left = 138
Height = 25
Top = 386
Width = 51
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 12
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Help'
OnClick = HelpBtnClick
@ -169,7 +155,7 @@ object RaschFrm: TRaschFrm
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ReturnBtn
AnchorSideBottom.Control = CloseBtn
Left = 0
Height = 8
Top = 370
@ -218,6 +204,7 @@ object RaschFrm: TRaschFrm
Constraints.MinHeight = 220
ItemHeight = 0
MultiSelect = True
OnSelectionChange = VarListSelectionChange
TabOrder = 0
end
object InBtn: TBitBtn
@ -251,6 +238,8 @@ object RaschFrm: TRaschFrm
BorderSpacing.Top = 2
BorderSpacing.Right = 8
ItemHeight = 0
MultiSelect = True
OnSelectionChange = VarListSelectionChange
TabOrder = 3
end
object OutBtn: TBitBtn

1681
applications/lazstats/source/forms/analysis/measurement_programs/raschunit.pas
View File

File diff suppressed because it is too large Load Diff

18
applications/lazstats/source/forms/analysis/measurement_programs/succintunit.lfm
View File

@ -1,11 +1,11 @@
object SuccIntFrm: TSuccIntFrm
Left = 864
Height = 326
Height = 282
Top = 391
Width = 335
AutoSize = True
Caption = 'Successive Interval Scaling'
ClientHeight = 326
ClientHeight = 282
ClientWidth = 335
OnActivate = FormActivate
OnCreate = FormCreate
@ -41,7 +41,7 @@ object SuccIntFrm: TSuccIntFrm
AnchorSideRight.Control = AllBtn
AnchorSideBottom.Control = Bevel1
Left = 8
Height = 252
Height = 208
Top = 25
Width = 128
Anchors = [akTop, akLeft, akRight, akBottom]
@ -91,7 +91,7 @@ object SuccIntFrm: TSuccIntFrm
AnchorSideTop.Side = asrCenter
Left = 144
Height = 25
Top = 139
Top = 117
Width = 46
AutoSize = True
Caption = 'ALL'
@ -108,7 +108,7 @@ object SuccIntFrm: TSuccIntFrm
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Bevel1
Left = 198
Height = 252
Height = 208
Top = 25
Width = 129
Anchors = [akTop, akLeft, akRight, akBottom]
@ -126,7 +126,7 @@ object SuccIntFrm: TSuccIntFrm
AnchorSideBottom.Side = asrBottom
Left = 126
Height = 25
Top = 293
Top = 249
Width = 54
Anchors = [akRight, akBottom]
AutoSize = True
@ -144,7 +144,7 @@ object SuccIntFrm: TSuccIntFrm
AnchorSideBottom.Side = asrBottom
Left = 188
Height = 25
Top = 293
Top = 249
Width = 76
Anchors = [akRight, akBottom]
AutoSize = True
@ -163,7 +163,7 @@ object SuccIntFrm: TSuccIntFrm
AnchorSideBottom.Side = asrBottom
Left = 272
Height = 25
Top = 293
Top = 249
Width = 55
Anchors = [akRight, akBottom]
AutoSize = True
@ -182,7 +182,7 @@ object SuccIntFrm: TSuccIntFrm
AnchorSideBottom.Control = CloseBtn
Left = 0
Height = 8
Top = 277
Top = 233
Width = 335
Anchors = [akLeft, akRight, akBottom]
Shape = bsBottomLine