You've already forked lazarus-ccr
LazStats: Inherit GuttmanUnit from BasicStatsReportFormUnit
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7899 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -757,70 +757,6 @@ begin
|
||||
LogLinScreenFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Generate Sample Test Data"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_SampleDataClick(Sender: TObject);
|
||||
begin
|
||||
if TestGenFrm = nil then
|
||||
Application.CreateForm(TTestGenFrm, TestGenFrm);
|
||||
TestGenFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Classical Test Analysis"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_ClassicalClick(Sender: TObject);
|
||||
begin
|
||||
if TestScoreForm = nil then
|
||||
Application.CreateForm(TTestScoreForm, TestScoreForm);
|
||||
TestScoreForm.Show;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Rasch Test Calibration"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_RashClick(Sender: TObject);
|
||||
begin
|
||||
if RaschForm = nil then
|
||||
Application.CreateForm(TRaschForm, RaschForm);
|
||||
RaschForm.Show;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Successive Interval Scaling"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_IntervalClick(Sender: TObject);
|
||||
begin
|
||||
if SuccIntFrm = nil then
|
||||
Application.CreateForm(TSuccIntFrm, SuccIntFrm);
|
||||
SuccIntFrm.Show;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Guttman Scalogram Analysis
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_GuttmanClick(Sender: TObject);
|
||||
begin
|
||||
if GuttmanFrm = nil then
|
||||
Application.CreateForm(TGuttmanFrm, GuttmanFrm);
|
||||
GuttmanFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Weighted Composite Reliability"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_CompositeClick(Sender: TObject);
|
||||
begin
|
||||
if CompRelFrm = nil then
|
||||
Application.CreateForm(TCompRelFrm, CompRelFrm);
|
||||
CompRelFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Kuder-Richardson #21 Reliability"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_KR21Click(Sender: TObject);
|
||||
begin
|
||||
if KR21Frm = nil then
|
||||
Application.CreateForm(TKR21Frm, KR21Frm);
|
||||
KR21Frm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Spearman-Brown Prophecy Reliability"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_SpearmanClick(Sender: TObject);
|
||||
begin
|
||||
if SpBrFrm = nil then
|
||||
Application.CreateForm(TSpBrFrm, SpBrFrm);
|
||||
SpBrFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "One sample tests"
|
||||
procedure TOS3MainFrm.mnuAnalysisOneSampleTestsClick(Sender: TObject);
|
||||
begin
|
||||
@ -1495,13 +1431,6 @@ begin
|
||||
GLMFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Grade Book"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_GradeBookClick(Sender: TObject);
|
||||
begin
|
||||
if GradeBookFrm = nil then
|
||||
Application.CreateForm(TGradeBookFrm, GradeBookFrm);
|
||||
GradebookFrm.ShowModal;
|
||||
end;
|
||||
|
||||
(* replaced by ShowTOC
|
||||
// Menu "Help" > "General Help"
|
||||
@ -1512,13 +1441,6 @@ begin
|
||||
HelpFrm.ShowModal;
|
||||
end;
|
||||
*)
|
||||
// Menu "Analysis" > "Measurement Programs" > "Item Banking"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_ItemBankingClick(Sender: TObject);
|
||||
begin
|
||||
if ItemBankFrm = nil then
|
||||
Application.CreateForm(TItemBankFrm, ItembankFrm);
|
||||
ItemBankFrm.ShowModal;
|
||||
end;
|
||||
|
||||
procedure TOS3MainFrm.mnuAnalysisNonPar_KSTestClick(Sender: TObject);
|
||||
begin
|
||||
@ -1542,30 +1464,6 @@ begin
|
||||
MedianPolishForm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Reliability Due to Test Variance Change"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_VarChangeClick(Sender: TObject);
|
||||
begin
|
||||
if RelChangeFrm = nil then
|
||||
Application.CreateForm(TRelChangeFrm, RelChangeFrm);
|
||||
RelChangeFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Differential Item Functioning"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_DifferentialClick(Sender: TObject);
|
||||
begin
|
||||
if DIFFrm = nil then
|
||||
Application.CreateForm(TDIFFrm, DIFFrm);
|
||||
DIFFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Polytomous DIF Analysis"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_PolytomousClick(Sender: TObject);
|
||||
begin
|
||||
if PolyDIFFrm = nil then
|
||||
Application.CreateForm(TPolyDIFFrm, PolyDIFFrm);
|
||||
PolyDIFFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Financial" > "Loan Amortization Schedule"
|
||||
procedure TOS3MainFrm.mnuAnalysisFinancial_LoanAmortClick(Sender: TObject);
|
||||
begin
|
||||
@ -1610,6 +1508,114 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
{ "Measurement Programs" commands }
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Generate Sample Test Data"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_SampleDataClick(Sender: TObject);
|
||||
begin
|
||||
if TestGenFrm = nil then
|
||||
Application.CreateForm(TTestGenFrm, TestGenFrm);
|
||||
TestGenFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Classical Test Analysis"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_ClassicalClick(Sender: TObject);
|
||||
begin
|
||||
if TestScoreForm = nil then
|
||||
Application.CreateForm(TTestScoreForm, TestScoreForm);
|
||||
TestScoreForm.Show;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Rasch Test Calibration"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_RashClick(Sender: TObject);
|
||||
begin
|
||||
if RaschForm = nil then
|
||||
Application.CreateForm(TRaschForm, RaschForm);
|
||||
RaschForm.Show;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Successive Interval Scaling"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_IntervalClick(Sender: TObject);
|
||||
begin
|
||||
if SuccIntFrm = nil then
|
||||
Application.CreateForm(TSuccIntFrm, SuccIntFrm);
|
||||
SuccIntFrm.Show;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Guttman Scalogram Analysis
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_GuttmanClick(Sender: TObject);
|
||||
begin
|
||||
if GuttmanForm = nil then
|
||||
Application.CreateForm(TGuttmanForm, GuttmanForm);
|
||||
GuttmanForm.Show;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Weighted Composite Reliability"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_CompositeClick(Sender: TObject);
|
||||
begin
|
||||
if CompRelFrm = nil then
|
||||
Application.CreateForm(TCompRelFrm, CompRelFrm);
|
||||
CompRelFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Kuder-Richardson #21 Reliability"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_KR21Click(Sender: TObject);
|
||||
begin
|
||||
if KR21Frm = nil then
|
||||
Application.CreateForm(TKR21Frm, KR21Frm);
|
||||
KR21Frm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Spearman-Brown Prophecy Reliability"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_SpearmanClick(Sender: TObject);
|
||||
begin
|
||||
if SpBrFrm = nil then
|
||||
Application.CreateForm(TSpBrFrm, SpBrFrm);
|
||||
SpBrFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Grade Book"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_GradeBookClick(Sender: TObject);
|
||||
begin
|
||||
if GradeBookFrm = nil then
|
||||
Application.CreateForm(TGradeBookFrm, GradeBookFrm);
|
||||
GradebookFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Item Banking"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_ItemBankingClick(Sender: TObject);
|
||||
begin
|
||||
if ItemBankFrm = nil then
|
||||
Application.CreateForm(TItemBankFrm, ItembankFrm);
|
||||
ItemBankFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Reliability Due to Test Variance Change"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_VarChangeClick(Sender: TObject);
|
||||
begin
|
||||
if RelChangeFrm = nil then
|
||||
Application.CreateForm(TRelChangeFrm, RelChangeFrm);
|
||||
RelChangeFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Differential Item Functioning"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_DifferentialClick(Sender: TObject);
|
||||
begin
|
||||
if DIFFrm = nil then
|
||||
Application.CreateForm(TDIFFrm, DIFFrm);
|
||||
DIFFrm.ShowModal;
|
||||
end;
|
||||
|
||||
// Menu "Analysis" > "Measurement Programs" > "Polytomous DIF Analysis"
|
||||
procedure TOS3MainFrm.mnuAnalysisMeas_PolytomousClick(Sender: TObject);
|
||||
begin
|
||||
if PolyDIFFrm = nil then
|
||||
Application.CreateForm(TPolyDIFFrm, PolyDIFFrm);
|
||||
PolyDIFFrm.ShowModal;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
{ "Nonparametric" commands }
|
||||
|
||||
// Menu "Analysis" > "Nonparametric" > "Contingency Chi Square"
|
||||
|
||||
Reference in New Issue
Block a user