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

LazStats: Refactor TestScoreUnit. No help file entry, yet, because there seems to be no data file for testing.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7454 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-05-13 21:39:42 +00:00
parent 9eaa49b4c6
commit 33e90c9cf9
3 changed files with 903 additions and 893 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
applications/lazstats/source/forms/analysis/measurement_programs/testscoreunit.lfm
View File

@ -462,79 +462,59 @@ object TestScoreFrm: TTestScoreFrm
end end
end end
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 = 340 Left = 432
Height = 25 Height = 25
Top = 510 Top = 510
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 = 4 TabOrder = 4
end end
object CancelBtn: TButton
AnchorSideRight.Control = ComputeBtn
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 406
Height = 25
Top = 510
Width = 62
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Top = 8
BorderSpacing.Right = 12
BorderSpacing.Bottom = 8
Caption = 'Cancel'
ModalResult = 2
OnClick = CancelBtnClick
TabOrder = 5
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 = 480 Left = 494
Height = 25 Height = 25
Top = 510 Top = 510
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 = 6 TabOrder = 5
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 = 568 Left = 578
Height = 25 Height = 25
Top = 510 Top = 510
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
OnClick = ReturnBtnClick TabOrder = 6
TabOrder = 7
end end
object Panel1: TPanel object Panel1: TPanel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -625,6 +605,7 @@ object TestScoreFrm: TTestScoreFrm
BorderSpacing.Right = 8 BorderSpacing.Right = 8
ItemHeight = 0 ItemHeight = 0
MultiSelect = True MultiSelect = True
OnSelectionChange = VarListSelectionChange
TabOrder = 0 TabOrder = 0
end end
object InBtn: TBitBtn object InBtn: TBitBtn
@ -720,6 +701,8 @@ object TestScoreFrm: TTestScoreFrm
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Bottom = 16 BorderSpacing.Bottom = 16
ItemHeight = 0 ItemHeight = 0
MultiSelect = True
OnSelectionChange = VarListSelectionChange
TabOrder = 3 TabOrder = 3
end end
object LastNameEdit: TEdit object LastNameEdit: TEdit
@ -737,6 +720,7 @@ object TestScoreFrm: TTestScoreFrm
Width = 172 Width = 172
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
ReadOnly = True
TabOrder = 5 TabOrder = 5
end end
object FirstNameEdit: TEdit object FirstNameEdit: TEdit
@ -752,6 +736,7 @@ object TestScoreFrm: TTestScoreFrm
Width = 172 Width = 172
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
ReadOnly = True
TabOrder = 7 TabOrder = 7
end end
object IDNoEdit: TEdit object IDNoEdit: TEdit
@ -767,6 +752,7 @@ object TestScoreFrm: TTestScoreFrm
Width = 172 Width = 172
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
ReadOnly = True
TabOrder = 9 TabOrder = 9
end end
end end
@ -774,7 +760,7 @@ object TestScoreFrm: TTestScoreFrm
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 = 494 Top = 494

1732
applications/lazstats/source/forms/analysis/measurement_programs/testscoreunit.pas
View File

File diff suppressed because it is too large Load Diff

2
applications/lazstats/source/forms/mainunit.pas
View File

@ -719,7 +719,7 @@ procedure TOS3MainFrm.MenuItem93Click(Sender: TObject);
begin begin
if TestScoreFrm = nil then if TestScoreFrm = nil then
Application.CreateForm(TTestScoreFrm, TestScoreFrm); Application.CreateForm(TTestScoreFrm, TestScoreFrm);
TestScoreFrm.Show; TestScoreFrm.ShowModal;
end; end;
// Menu "Analysis" > "Measurement Programs" > "Rasch Test Calibration" // Menu "Analysis" > "Measurement Programs" > "Rasch Test Calibration"