From f495e6fb12d2ad03f1843eb36b6bb2104faa20ac Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Thu, 22 Oct 2020 13:04:44 +0000 Subject: [PATCH] LazStats: Bring menu items and their OnExecute event handlers in MainUnit into logical order. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7792 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../lazstats/source/forms/mainunit.lfm | 434 ++++++------ .../lazstats/source/forms/mainunit.pas | 629 ++++++++++-------- 2 files changed, 559 insertions(+), 504 deletions(-) diff --git a/applications/lazstats/source/forms/mainunit.lfm b/applications/lazstats/source/forms/mainunit.lfm index 6e985841f..116c9874d 100644 --- a/applications/lazstats/source/forms/mainunit.lfm +++ b/applications/lazstats/source/forms/mainunit.lfm @@ -20,7 +20,7 @@ object OS3MainFrm: TOS3MainFrm OnDestroy = FormDestroy OnShow = FormShow LCLVersion = '2.1.0.0' - object Panel1: TPanel + object PanelTop: TPanel Left = 0 Height = 35 Top = 0 @@ -30,9 +30,9 @@ object OS3MainFrm: TOS3MainFrm ClientHeight = 35 ClientWidth = 725 TabOrder = 0 - object Label1: TLabel - AnchorSideLeft.Control = Panel1 - AnchorSideTop.Control = Panel1 + object NoCasesLabel: TLabel + AnchorSideLeft.Control = PanelTop + AnchorSideTop.Control = PanelTop AnchorSideTop.Side = asrCenter Left = 12 Height = 14 @@ -42,10 +42,10 @@ object OS3MainFrm: TOS3MainFrm Caption = 'No. Cases' ParentColor = False end - object Label2: TLabel + object NoVarsLabel: TLabel AnchorSideLeft.Control = NoCasesEdit AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = Panel1 + AnchorSideTop.Control = PanelTop AnchorSideTop.Side = asrCenter Left = 139 Height = 14 @@ -55,10 +55,10 @@ object OS3MainFrm: TOS3MainFrm Caption = 'No. Variables' ParentColor = False end - object Label3: TLabel + object CurrentFileLabel: TLabel AnchorSideLeft.Control = NoVarsEdit AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = Panel1 + AnchorSideTop.Control = PanelTop AnchorSideTop.Side = asrCenter Left = 302 Height = 14 @@ -69,9 +69,9 @@ object OS3MainFrm: TOS3MainFrm ParentColor = False end object NoCasesEdit: TEdit - AnchorSideLeft.Control = Label1 + AnchorSideLeft.Control = NoCasesLabel AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = Panel1 + AnchorSideTop.Control = PanelTop AnchorSideTop.Side = asrCenter Left = 83 Height = 22 @@ -84,9 +84,9 @@ object OS3MainFrm: TOS3MainFrm Text = 'NoCasesEdit' end object NoVarsEdit: TEdit - AnchorSideLeft.Control = Label2 + AnchorSideLeft.Control = NoVarsLabel AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = Panel1 + AnchorSideTop.Control = PanelTop AnchorSideTop.Side = asrCenter Left = 238 Height = 22 @@ -99,11 +99,11 @@ object OS3MainFrm: TOS3MainFrm Text = 'NoVarsEdit' end object FileNameEdit: TEdit - AnchorSideLeft.Control = Label3 + AnchorSideLeft.Control = CurrentFileLabel AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = Panel1 + AnchorSideTop.Control = PanelTop AnchorSideTop.Side = asrCenter - AnchorSideRight.Control = Panel1 + AnchorSideRight.Control = PanelTop AnchorSideRight.Side = asrBottom Left = 401 Height = 22 @@ -117,7 +117,7 @@ object OS3MainFrm: TOS3MainFrm Text = 'FileNameEdit' end end - object Panel2: TPanel + object PanelBottom: TPanel Left = 0 Height = 41 Top = 458 @@ -127,9 +127,9 @@ object OS3MainFrm: TOS3MainFrm ClientHeight = 41 ClientWidth = 725 TabOrder = 1 - object Label4: TLabel - AnchorSideLeft.Control = Panel2 - AnchorSideTop.Control = Panel2 + object RowLabel: TLabel + AnchorSideLeft.Control = PanelBottom + AnchorSideTop.Control = PanelBottom AnchorSideTop.Side = asrCenter Left = 12 Height = 14 @@ -139,10 +139,10 @@ object OS3MainFrm: TOS3MainFrm Caption = 'Row:' ParentColor = False end - object Label5: TLabel + object ColLabel: TLabel AnchorSideLeft.Control = RowEdit AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = Panel2 + AnchorSideTop.Control = PanelBottom AnchorSideTop.Side = asrCenter Left = 137 Height = 14 @@ -152,10 +152,10 @@ object OS3MainFrm: TOS3MainFrm Caption = 'Column:' ParentColor = False end - object Label6: TLabel + object FilterLabel: TLabel AnchorSideLeft.Control = ColEdit AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = Panel2 + AnchorSideTop.Control = PanelBottom AnchorSideTop.Side = asrCenter Left = 275 Height = 14 @@ -166,9 +166,9 @@ object OS3MainFrm: TOS3MainFrm ParentColor = False end object RowEdit: TEdit - AnchorSideLeft.Control = Label4 + AnchorSideLeft.Control = RowLabel AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = Panel2 + AnchorSideTop.Control = PanelBottom AnchorSideTop.Side = asrCenter Left = 48 Height = 22 @@ -181,9 +181,9 @@ object OS3MainFrm: TOS3MainFrm Text = 'RowEdit' end object ColEdit: TEdit - AnchorSideLeft.Control = Label5 + AnchorSideLeft.Control = ColLabel AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = Panel2 + AnchorSideTop.Control = PanelBottom AnchorSideTop.Side = asrCenter Left = 194 Height = 22 @@ -196,9 +196,9 @@ object OS3MainFrm: TOS3MainFrm Text = 'ColEdit' end object FilterEdit: TEdit - AnchorSideLeft.Control = Label6 + AnchorSideLeft.Control = FilterLabel AnchorSideLeft.Side = asrBottom - AnchorSideTop.Control = Panel2 + AnchorSideTop.Control = PanelBottom AnchorSideTop.Side = asrCenter Left = 374 Height = 22 @@ -266,30 +266,30 @@ object OS3MainFrm: TOS3MainFrm object mnuFileImport: TMenuItem Caption = 'Import File of Type' object mnuFileImportTAB: TMenuItem - Caption = 'TAB Separated' + Caption = 'Tab Separated (*.tab)' OnClick = mnuFileImportTABClick end object mnuFileImportCSV: TMenuItem - Caption = 'Comma Separated' + Caption = 'Comma Separated (*.csv)' OnClick = mnuFileImportCSVClick end object mnuFileImportSSV: TMenuItem - Caption = 'Space Separated' + Caption = 'Space Separated (*.ss)' OnClick = mnuFileImportSSVClick end end object mnuFileExport: TMenuItem Caption = 'Export File of Type' object mnuFileExportTab: TMenuItem - Caption = 'Tab Separated' + Caption = 'Tab Separated (*.tab)' OnClick = mnuFileExportTabClick end object mnuFileExportCSV: TMenuItem - Caption = 'Comma Separated' + Caption = 'Comma Separated (*.csv)' OnClick = mnuFileExportCSVClick end object mnuFileExportSSV: TMenuItem - Caption = 'Space Separated' + Caption = 'Space Separated (*.ss)' OnClick = mnuFileExportSSVClick end end @@ -452,7 +452,7 @@ object OS3MainFrm: TOS3MainFrm Caption = 'Distribution Statistics' OnClick = mnuAnalysisDescr_DistribStatsClick end - object MenuItem4: TMenuItem + object mnuAnalysisDescr_Separator1: TMenuItem Caption = '-' end object mnuAnalysisDescr_Freq: TMenuItem @@ -463,7 +463,7 @@ object OS3MainFrm: TOS3MainFrm Caption = 'Plot Group Frequencies' OnClick = mnuAnalysisDescr_GrpFreqClick end - object MenuItem5: TMenuItem + object mnuAnalysisDescr_Separator2: TMenuItem Caption = '-' end object mnuAnalysisDescr_PlotXvsY: TMenuItem @@ -489,7 +489,7 @@ object OS3MainFrm: TOS3MainFrm Caption = 'Repeated Measures Bubble Plot' OnClick = mnuAnalysisDescr_BubblePlotClick end - object MenuItem6: TMenuItem + object mnuAnalysisDescr_Separator4: TMenuItem Caption = '-' end object mnuAnalysisDescr_CrossTabs: TMenuItem @@ -500,7 +500,7 @@ object OS3MainFrm: TOS3MainFrm Caption = 'Breakdown' OnClick = mnuAnalysisDescr_BreakdownClick end - object MenuItem13: TMenuItem + object mnuAnalysisDescr_Separator5: TMenuItem Caption = '-' end object mnuAnalysisDescr_Normality: TMenuItem @@ -511,7 +511,7 @@ object OS3MainFrm: TOS3MainFrm Caption = 'Compare Distributions' OnClick = mnuAnalysisDescr_CompareDistsClick end - object MenuItem16: TMenuItem + object mnuAnalysisDescr_Separator6: TMenuItem Caption = '-' end object mnuAnalysisDescr_StemLeaf: TMenuItem @@ -538,82 +538,84 @@ object OS3MainFrm: TOS3MainFrm OnClick = mnuAnalysisDescr_DataSmoothClick end end - object OneSampTests: TMenuItem + object mnuAnalysisOneSampleTests: TMenuItem Caption = 'One Sample Tests' - OnClick = OneSampTestsClick + OnClick = mnuAnalysisOneSampleTestsClick end - object MenuItem34: TMenuItem + object mnuAnalysisComp: TMenuItem Caption = 'Comparisons' - object PropDiff: TMenuItem + object mnuAnalysisComp_PropDiff: TMenuItem Caption = 'Difference beween Proportions' - OnClick = PropDiffClick + OnClick = mnuAnalysisComp_PropDiffClick end - object CorrDiff: TMenuItem + object mnuAnalysisComp_CorrDiff: TMenuItem Caption = 'Difference Between Correlations' - OnClick = CorrDiffClick + RadioItem = True + OnClick = mnuAnalysisComp_CorrDiffClick end - object ttests: TMenuItem + object mnuAnalysisComp_tTests: TMenuItem Caption = 't-tests' - OnClick = ttestsClick + RadioItem = True + OnClick = mnuAnalysisComp_tTestsClick end - object Anova: TMenuItem + object mnuAnalysisComp_Anova: TMenuItem Caption = '1,2 or 3 Way ANOVAs' - OnClick = AnovaClick + OnClick = mnuAnalysisComp_AnovaClick end - object WithinAnova: TMenuItem + object mnuAnalysisComp_WithinAnova: TMenuItem Caption = 'Within Subjects ANOVA' - OnClick = WithinAnovaClick + OnClick = mnuAnalysisComp_WithinAnovaClick end - object AxSAnova: TMenuItem + object mnuAnalysisComp_AxSAnova: TMenuItem Caption = 'A x S ANOVA' - OnClick = AxSAnovaClick + OnClick = mnuAnalysisComp_AxSAnovaClick end - object ABSAnova: TMenuItem + object mnuAnalysisComp_ABSAnova: TMenuItem Caption = 'A x B x S ANOVA' - OnClick = ABSAnovaClick + OnClick = mnuAnalysisComp_ABSAnovaClick end - object BinA: TMenuItem + object mnuAnalysisComp_BinA: TMenuItem Caption = 'B Nested in A ANOVA' - OnClick = BinAClick + OnClick = mnuAnalysisComp_BinAClick end - object NestedABC: TMenuItem + object mnuAnalysisComp_NestedABC: TMenuItem Caption = 'ABC ANOVA with B Nested in A' - OnClick = NestedABCClick + OnClick = mnuAnalysisComp_NestedABCClick end - object OneCaseAnova: TMenuItem + object mnuAnalysisComp_OneCaseAnova: TMenuItem Caption = '2 or 3 Way ANOVA with One Case Per Cell' - OnClick = OneCaseAnovaClick + OnClick = mnuAnalysisComp_OneCaseAnovaClick end - object Ancova: TMenuItem + object mnuAnalysisComp_Ancova: TMenuItem Caption = 'ANCOVA by Regression' - OnClick = AncovaClick + OnClick = mnuAnalysisComp_AncovaClick end - object GLM: TMenuItem + object mnuAnalysisComp_GLM: TMenuItem Caption = 'General Linear Model' - OnClick = GLMClick + OnClick = mnuAnalysisComp_GLMClick end - object LatinSquares: TMenuItem + object mnuAnalysisComp_LatinSquares: TMenuItem Caption = 'Latin and Greco-Latin Squares' - OnClick = LatinSquaresClick + OnClick = mnuAnalysisComp_LatinSquaresClick end end - object MenuItem35: TMenuItem + object mnuAnalysisCorrel: TMenuItem Caption = 'Correlation' - object MenuItem71: TMenuItem + object mnuAnalysisCorrel_ProductMoment: TMenuItem Caption = 'Product-Moment' - OnClick = MenuItem71Click + OnClick = mnuAnalysisCorrel_ProductMomentClick end - object MenuItem72: TMenuItem + object mnuAnalysisCorrel_Partial: TMenuItem Caption = 'Partial, Semipartial' - OnClick = MenuItem72Click + OnClick = mnuAnalysisCorrel_PartialClick end - object MenuItem73: TMenuItem + object mnuAnalysisCorrel_AutoCorr: TMenuItem Caption = 'Autocorrelation' - OnClick = MenuItem73Click + OnClick = mnuAnalysisCorrel_AutoCorrClick end - object MenuItem74: TMenuItem + object mnuAnalysisCorrel_Canonical: TMenuItem Caption = 'Canonical' - OnClick = MenuItem74Click + OnClick = mnuAnalysisCorrel_CanonicalClick end end object mnuAnalysisMultReg: TMenuItem @@ -658,7 +660,7 @@ object OS3MainFrm: TOS3MainFrm Caption = 'Weighted Least Squares Regression' OnClick = mnuAnalysisMultReg_WeightedClick end - object MenuItem2: TMenuItem + object mnuAnalysisMultReg_Separator1: TMenuItem Caption = '-' end object mnuAnalysisMultReg_LinProg: TMenuItem @@ -666,225 +668,225 @@ object OS3MainFrm: TOS3MainFrm OnClick = mnuAnalysisMultReg_LinProgClick end end - object MenuItem37: TMenuItem + object mnuAnalysisMulti: TMenuItem Caption = 'Multivariate' - object MenuItem83: TMenuItem + object mnuAnalysisMulti_MANOVA: TMenuItem Caption = 'MANOVA / Discriminant Function' - OnClick = MenuItem83Click + OnClick = mnuAnalysisMulti_MANOVAClick end - object MenuItem84: TMenuItem + object mnuAnalysisMulti_Hierarchical: TMenuItem Caption = 'Hierarchical Analysis' - OnClick = MenuItem84Click + OnClick = mnuAnalysisMulti_HierarchicalClick end - object MenuItem29: TMenuItem + object mnuAnalysisMulti_AvgLink: TMenuItem Caption = 'Average Link Clustering' - OnClick = MenuItem29Click + OnClick = mnuAnalysisMulti_AvgLinkClick end - object MenuItem31: TMenuItem + object mnuAnalysisMulti_KMeans: TMenuItem Caption = 'K Means Clustering' - OnClick = MenuItem31Click + OnClick = mnuAnalysisMulti_KMeansClick end - object MenuItem33: TMenuItem + object mnuAnalysisMulti_SingleLink: TMenuItem Caption = 'Single Link Clustering' - OnClick = MenuItem33Click + OnClick = mnuAnalysisMulti_SingleLinkClick end - object MenuItem85: TMenuItem + object mnuAnalysisMulti_Path: TMenuItem Caption = 'Path Analysis' - OnClick = MenuItem85Click + OnClick = mnuAnalysisMulti_PathClick end - object MenuItem86: TMenuItem + object mnuAnalysisMulti_Factor: TMenuItem Caption = 'Factor Analysis' - OnClick = MenuItem86Click + OnClick = mnuAnalysisMulti_FactorClick end - object MenuItem87: TMenuItem + object mnuAnalysisMulti_Canonical: TMenuItem Caption = 'Canonical Correlation' - OnClick = MenuItem87Click + OnClick = mnuAnalysisMulti_CanonicalClick end - object MenuItem88: TMenuItem + object mnuAnalysisMulti_GLM: TMenuItem Caption = 'General Linear Model' - OnClick = MenuItem88Click + OnClick = mnuAnalysisMulti_GLMClick end - object BartlettTest: TMenuItem + object mnuAnalysisMulti_Bartlett: TMenuItem Caption = 'Bartlett Test of Sphericity' - OnClick = BartlettTestClick + OnClick = mnuAnalysisMulti_BartlettClick end - object Correspondence: TMenuItem + object mnuAnalysisMulti_Correspondence: TMenuItem Caption = 'Correspondence Analysis' - OnClick = CorrespondenceClick + OnClick = mnuAnalysisMulti_CorrespondenceClick end - object MedianPolish: TMenuItem + object mnuAnalysisMulti_MedianPolish: TMenuItem Caption = 'Median Polishing for a 2x2 Table' - OnClick = MedianPolishClick + OnClick = mnuAnalysisMulti_MedianPolishClick end end - object MenuItem38: TMenuItem + object mnuAnalysisCC: TMenuItem Caption = 'Cross-Classification' - object MenuItem89: TMenuItem + object mnuAnalysisCC_ABLogLin: TMenuItem Caption = 'AxB Log Linear' - OnClick = MenuItem89Click + OnClick = mnuAnalysisCC_ABLogLinClick end - object MenuItem90: TMenuItem + object mnuAnalysisCC_ABCLogLin: TMenuItem Caption = 'AxBxC Log Linear' - OnClick = MenuItem90Click + OnClick = mnuAnalysisCC_ABCLogLinClick end - object MenuItem91: TMenuItem + object mnuAnalysisCC_LogLinScreen: TMenuItem Caption = 'Log Linear Screen' - OnClick = MenuItem91Click + OnClick = mnuAnalysisCC_LogLinScreenClick end end - object MenuItem39: TMenuItem + object mnuAnalysisMeas: TMenuItem Caption = 'Measurement Programs' - object MenuItem92: TMenuItem + object mnuAnalysisMeas_SampleData: TMenuItem Caption = 'Generate Sample Test Data' - OnClick = MenuItem92Click + OnClick = mnuAnalysisMeas_SampleDataClick end - object MenuItem50: TMenuItem + object mnuAnalysisMeas_Separator1: TMenuItem Caption = '-' end - object MenuItem93: TMenuItem + object mnuAnalysisMeas_Classical: TMenuItem Caption = 'Classical Test Analysis' - OnClick = MenuItem93Click + OnClick = mnuAnalysisMeas_ClassicalClick end - object MenuItem94: TMenuItem + object mnuAnalysisMeas_Rash: TMenuItem Caption = 'Rasch Test Calibration' - OnClick = MenuItem94Click + OnClick = mnuAnalysisMeas_RashClick end - object MenuItem95: TMenuItem + object mnuAnalysisMeas_Interval: TMenuItem Caption = 'Successive Interval Scaling' - OnClick = MenuItem95Click + OnClick = mnuAnalysisMeas_IntervalClick end - object MenuItem96: TMenuItem + object mnuAnalysisMeas_Guttman: TMenuItem Caption = 'Guttman Scalogram Analysis' - OnClick = MenuItem96Click + OnClick = mnuAnalysisMeas_GuttmanClick end - object MenuItem97: TMenuItem + object mnuAnalysisMeas_Composite: TMenuItem Caption = 'Weighted Composite Reliability' - OnClick = MenuItem97Click + OnClick = mnuAnalysisMeas_CompositeClick end - object MenuItem98: TMenuItem + object mnuAnalysisMeas_KR21: TMenuItem Caption = 'Kuder-Richardson #21 Reliability' - OnClick = MenuItem98Click + OnClick = mnuAnalysisMeas_KR21Click end - object MenuItem99: TMenuItem + object mnuAnalysisMeas_Spearman: TMenuItem Caption = 'Spearman-Brown Prophecy Reliability' - OnClick = MenuItem99Click + OnClick = mnuAnalysisMeas_SpearmanClick end - object MenuItem100: TMenuItem + object mnuAnalysisMeas_VarChange: TMenuItem Caption = 'Reliability Due to Test Variance Change' - OnClick = MenuItem100Click + OnClick = mnuAnalysisMeas_VarChangeClick end - object MenuItem47: TMenuItem + object mnuAnalysisMeas_Separator2: TMenuItem Caption = '-' end - object MenuItem101: TMenuItem + object mnuAnalysisMeas_Differential: TMenuItem Caption = 'Differential Item Functioning' - OnClick = MenuItem101Click + OnClick = mnuAnalysisMeas_DifferentialClick end - object MenuItem102: TMenuItem + object mnuAnalysisMeas_Polytomous: TMenuItem Caption = 'Polytomous DIF Analysis' - OnClick = MenuItem102Click + OnClick = mnuAnalysisMeas_PolytomousClick end object MenuItem43: TMenuItem Caption = '-' end - object GrdBkMnu: TMenuItem + object mnuAnalysisMeas_GradeBook: TMenuItem Caption = 'Grade Book' - OnClick = GrdBkMnuClick + OnClick = mnuAnalysisMeas_GradeBookClick end - object ItemBankMenuItem: TMenuItem + object mnuAnalysisMeas_ItemBanking: TMenuItem Caption = 'Item Banking' - OnClick = ItemBankMenuItemClick + OnClick = mnuAnalysisMeas_ItemBankingClick end end - object MenuItem40: TMenuItem + object mnuAnalysisNonPar: TMenuItem Caption = 'Nonparametric' - object SimpChiSqr: TMenuItem + object mnuAnalysisNonPar_SimpleChiSq: TMenuItem Caption = 'Simple ChiSquare for Categories' - OnClick = SimpChiSqrClick + OnClick = mnuAnalysisNonPar_SimpleChiSqClick end - object MenuItem103: TMenuItem + object mnuAnalysisNonPar_ContingChiSq: TMenuItem Caption = 'Contingency Chi Square' - OnClick = MenuItem103Click + OnClick = mnuAnalysisNonPar_ContingChiSqClick end - object MenuItem104: TMenuItem + object mnuAnalysisNonPar_Spearman: TMenuItem Caption = 'Spearman Rank Correlation' - OnClick = MenuItem104Click + OnClick = mnuAnalysisNonPar_SpearmanClick end - object MenuItem105: TMenuItem + object mnuAnalysisNonPar_MannWhitney: TMenuItem Caption = 'Mann-Whitney U Test' - OnClick = MenuItem105Click + OnClick = mnuAnalysisNonPar_MannWhitneyClick end - object MenuItem106: TMenuItem + object mnuAnalysisNonPar_Fisher: TMenuItem Caption = 'Fisher''s Exact Test' - OnClick = MenuItem106Click + OnClick = mnuAnalysisNonPar_FisherClick end - object MenuItem107: TMenuItem + object mnuAnalysisNonPar_Kendall: TMenuItem Caption = 'Kendall''s Coefficient of Concordance' - OnClick = MenuItem107Click + OnClick = mnuAnalysisNonPar_KendallClick end - object MenuItem108: TMenuItem + object mnuAnalysisNonPar_KruskalWallis: TMenuItem Caption = 'Kruskal-Wallis One Way ANOVA' - OnClick = MenuItem108Click + OnClick = mnuAnalysisNonPar_KruskalWallisClick end - object MenuItem109: TMenuItem + object mnuAnalysisNonPar_Wilcoxon: TMenuItem Caption = 'Wilcoxon Matched Pairs Signed Ranks Test' - OnClick = MenuItem109Click + OnClick = mnuAnalysisNonPar_WilcoxonClick end - object MenuItem110: TMenuItem + object mnuAnalysisNonPar_Cochran: TMenuItem Caption = 'Cochran Q Test' - OnClick = MenuItem110Click + OnClick = mnuAnalysisNonPar_CochranClick end - object MenuItem111: TMenuItem + object mnuAnalysisNonPar_SignTest: TMenuItem Caption = 'Sign Test' - OnClick = MenuItem111Click + OnClick = mnuAnalysisNonPar_SignTestClick end - object MenuItem112: TMenuItem + object mnuAnalysisNonPar_Friedman: TMenuItem Caption = 'Friedman Two Way ANOVA' - OnClick = MenuItem112Click + OnClick = mnuAnalysisNonPar_FriedmanClick end - object MenuItem113: TMenuItem + object mnuAnalysisNonPar_Binomial: TMenuItem Caption = 'Probability of a binomial event' - OnClick = MenuItem113Click + OnClick = mnuAnalysisNonPar_BinomialClick end - object MenuItem114: TMenuItem + object mnuAnalysisNonPar_Tau: TMenuItem Caption = 'Kendall''s Tau and Parrtial Tau' - OnClick = MenuItem114Click + OnClick = mnuAnalysisNonPar_TauClick end - object MenuItem115: TMenuItem + object mnuAnalysisNonPar_Survival: TMenuItem Caption = 'Kaplan-Meier Survival Analysis' - OnClick = MenuItem115Click + OnClick = mnuAnalysisNonPar_SurvivalClick end - object RiditAnalysis: TMenuItem + object mnuAnalysisNonPar_RIDIT: TMenuItem Caption = 'RIDIT Analysis' - OnClick = RiditAnalysisClick + OnClick = mnuAnalysisNonPar_RIDITClick end - object WghtedKappa: TMenuItem + object mnuAnalysisNonPar_WeightedKappa: TMenuItem Caption = 'Kappa and Weighted Kappa' - OnClick = WghtedKappaClick + OnClick = mnuAnalysisNonPar_WeightedKappaClick end - object GenKappa: TMenuItem + object mnuAnalysisNonPar_GenKappa: TMenuItem Caption = 'Generalized Kappa' - OnClick = GenKappaClick + OnClick = mnuAnalysisNonPar_GenKappaClick end - object RunsTest: TMenuItem + object mnuAnalysisNonPar_RunsTest: TMenuItem Caption = 'Runs Test for Normality' - OnClick = RunsTestClick + OnClick = mnuAnalysisNonPar_RunsTestClick end - object Sens: TMenuItem + object mnuAnalysisNonPar_Sens: TMenuItem Caption = 'Sen''s Slope Analysis' - OnClick = SensClick + OnClick = mnuAnalysisNonPar_SensClick end - object KSTest: TMenuItem + object mnuAnalysisNonPar_KSTest: TMenuItem Caption = 'Kolmogorov-Smirnov Test' - OnClick = KSTestClick + OnClick = mnuAnalysisNonPar_KSTestClick end - object SRHItem: TMenuItem + object mnuAnalysisNonPar_SRH: TMenuItem Caption = 'Scheirer-Ray-Hart 2-way ANOVA' - OnClick = SRHItemClick + OnClick = mnuAnalysisNonPar_SRHClick end - object lifetable: TMenuItem + object mnuAnalysisNonPar_LifeTable: TMenuItem Caption = 'Life Table' - OnClick = lifetableClick + OnClick = mnuAnalysisNonPar_LifeTableClick end end object mnuAnalysisSPC: TMenuItem @@ -905,7 +907,7 @@ object OS3MainFrm: TOS3MainFrm Caption = 'CUSUM Chart' OnClick = mnuAnalysisSPC_CUSUMClick end - object MenuItem3: TMenuItem + object mnuAnalysisSPC_Separator1: TMenuItem Caption = '-' end object mnuAnalysisSPC_CChart: TMenuItem @@ -921,73 +923,79 @@ object OS3MainFrm: TOS3MainFrm OnClick = mnuAnalysisSPC_UChartClick end end - object MenuItem9: TMenuItem + object MenuItem30: TMenuItem + Caption = '-' + end + object mnuAnalysisFinancial: TMenuItem Caption = 'Financial' - object MenuItem10: TMenuItem + object mnuAnalysisFinancial_LoanAmort: TMenuItem Caption = 'Loan Amortization Schedule' - OnClick = MenuItem10Click + OnClick = mnuAnalysisFinancial_LoanAmortClick end - object MenuItem11: TMenuItem + object mnuAnalysisFinancial_SumOfYearsDigts: TMenuItem Caption = 'Sum of years digits depreciation' - OnClick = MenuItem11Click + OnClick = mnuAnalysisFinancial_SumOfYearsDigtsClick end - object MenuItem14: TMenuItem + object mnuAnalysisFinancial_SLDeprec: TMenuItem Caption = 'Straight line depreciation' - OnClick = MenuItem14Click + OnClick = mnuAnalysisFinancial_SLDeprecClick end - object MenuItem17: TMenuItem + object mnuAnalysisFinancial_Return: TMenuItem Caption = 'Internal rate of return' Visible = False end - object MenuItem18: TMenuItem + object mnuAnalysisFinancial_PresentValue: TMenuItem Caption = 'Present Value' Visible = False end - object MenuItem19: TMenuItem + object mnuAnalysisFinancial_PeriodPayment: TMenuItem Caption = 'Period Payment' Visible = False end - object MenuItem21: TMenuItem + object mnuAnalysisFinancial_Payment: TMenuItem Caption = 'Payment' Visible = False end - object MenuItem22: TMenuItem + object mnuAnalysisFinancial_NumPeriods: TMenuItem Caption = 'No. of Periods' Visible = False end - object MenuItem23: TMenuItem + object mnuAnalysisFinancial_NetPresentValue: TMenuItem Caption = 'Net Present Value' Visible = False end - object MenuItem24: TMenuItem + object mnuAnalysisFinancial_InterestRate: TMenuItem Caption = 'Interest Rate' Visible = False end - object MenuItem25: TMenuItem + object mnuAnalysisFinancial_InterestPayment: TMenuItem Caption = 'Interest Payment' Visible = False end - object MenuItem26: TMenuItem + object mnuAnalysisFinancial_FutureValue: TMenuItem Caption = 'Future Value' Visible = False end - object MenuItem27: TMenuItem + object mnuAnalysisFinancial_DblDecling: TMenuItem Caption = 'Double Declining Value' - OnClick = MenuItem27Click + OnClick = mnuAnalysisFinancial_DblDeclingClick end end + object mnuAnalysisDescr_Separator7: TMenuItem + Caption = '-' + end object MatManMnu: TMenuItem Caption = 'Matrix Manipulation' OnClick = MatManMnuClick end end - object mnuIOptions: TMenuItem + object mnuOptions: TMenuItem Caption = 'Options' - object mnuShowOptions: TMenuItem + object mnuOptions_ShowOptions: TMenuItem Caption = 'Show Options' - OnClick = mnuShowOptionsClick + OnClick = mnuOptions_ShowOptionsClick end - object PicView: TMenuItem + object mnuOptions_PicView: TMenuItem Caption = 'View Pictures' Visible = False end @@ -1014,7 +1022,7 @@ object OS3MainFrm: TOS3MainFrm Caption = 'Distribution Plots and Critical Values' OnClick = mnuSimDistPlotsClick end - object MenuItem52: TMenuItem + object mnuSimSeparator1: TMenuItem Caption = '-' end object mnuSimGenerateSeqValues: TMenuItem @@ -1025,7 +1033,7 @@ object OS3MainFrm: TOS3MainFrm Caption = 'Random Theoretical Values' OnClick = mnuSimGenerateRandomValuesClick end - object MenuItem51: TMenuItem + object mnuSimSeparator2: TMenuItem Caption = '-' end object mnuSimProbabilities: TMenuItem @@ -1042,14 +1050,14 @@ object OS3MainFrm: TOS3MainFrm Caption = 'Probability between two z Values' OnClick = mnuSimProbBetweenClick end - object MenuItem45: TMenuItem + object MnuSimProb_Separator1: TMenuItem Caption = '-' end object mnuSimInverseZ: TMenuItem Caption = 'z for a given Cumulative Probability' OnClick = mnuSimInverseZClick end - object mnuSimProbDIVIDER: TMenuItem + object mnuSimProb_Separator2: TMenuItem Caption = '-' end object mnuSimChiSqProb: TMenuItem @@ -1080,7 +1088,7 @@ object OS3MainFrm: TOS3MainFrm Caption = 'License...' OnClick = mnuHelpLicenseClick end - object MenuItem46: TMenuItem + object mnuHelpSeparator: TMenuItem Caption = '-' end object mnuHelpShowTOC: TMenuItem diff --git a/applications/lazstats/source/forms/mainunit.pas b/applications/lazstats/source/forms/mainunit.pas index cc1157cc3..d9ac49c63 100644 --- a/applications/lazstats/source/forms/mainunit.pas +++ b/applications/lazstats/source/forms/mainunit.pas @@ -37,40 +37,61 @@ type { TOS3MainFrm } TOS3MainFrm = class(TForm) + // GUI ColEdit: TEdit; + ColLabel: TLabel; + CurrentFileLabel: TLabel; + DataGrid: TStringGrid; + FileNameEdit: TEdit; FilterEdit: TEdit; - Label5: TLabel; - Label6: TLabel; - MenuItem10: TMenuItem; - MenuItem100: TMenuItem; - MenuItem101: TMenuItem; - MenuItem102: TMenuItem; - MenuItem103: TMenuItem; - MenuItem104: TMenuItem; - MenuItem105: TMenuItem; - MenuItem106: TMenuItem; - MenuItem107: TMenuItem; - MenuItem108: TMenuItem; - MenuItem109: TMenuItem; - MenuItem11: TMenuItem; - MenuItem110: TMenuItem; - MenuItem111: TMenuItem; - MenuItem112: TMenuItem; - MenuItem113: TMenuItem; - MenuItem114: TMenuItem; - MenuItem115: TMenuItem; - MenuItem13: TMenuItem; - MenuItem16: TMenuItem; - MenuItem2: TMenuItem; - MenuItem20: TMenuItem; - MenuItem3: TMenuItem; - MenuItem4: TMenuItem; - MenuItem5: TMenuItem; - MenuItem6: TMenuItem; - MenuItem7: TMenuItem; + FilterLabel: TLabel; + NoCasesEdit: TEdit; + NoCasesLabel: TLabel; + NoVarsEdit: TEdit; + NoVarsLabel: TLabel; + PanelTop: TPanel; + PanelBottom: TPanel; + RowEdit: TEdit; + RowLabel: TLabel; + OpenDialog: TOpenDialog; + SaveDialog: TSaveDialog; + + MainMenu: TMainMenu; + + // Menu "Analysis" mnuAnalysis: TMenuItem; + // Menu "Analysis" > "Cross classification" + mnuAnalysisCC: TMenuItem; + mnuAnalysisCC_ABLogLin: TMenuItem; + mnuAnalysisCC_ABCLogLin: TMenuItem; + mnuAnalysisCC_LogLinScreen: TMenuItem; + + // Menu "Analysis" > "Comparisons" + mnuAnalysisComp: TMenuItem; + mnuAnalysisComp_ABSAnova: TMenuItem; + mnuAnalysisComp_Anova: TMenuItem; + mnuAnalysisComp_Ancova: TMenuItem; + mnuAnalysisComp_AxSAnova: TMenuItem; + mnuAnalysisComp_BinA: TMenuItem; + mnuAnalysisComp_CorrDiff: TMenuItem; + mnuAnalysisComp_GLM: TMenuItem; + mnuAnalysisComp_LatinSquares: TMenuItem; + mnuAnalysisComp_NestedABC: TMenuItem; + mnuAnalysisComp_OneCaseAnova: TMenuItem; + mnuAnalysisComp_PropDiff: TMenuItem; + mnuAnalysisComp_tTests: TMenuItem; + mnuAnalysisComp_WithinAnova: TMenuItem; + + // Menu "Analysis" > "Correlation" + mnuAnalysisCorrel: TMenuItem; + mnuAnalysisCorrel_ProductMoment: TMenuItem; + mnuAnalysisCorrel_Partial: TMenuItem; + mnuAnalysisCorrel_AutoCorr: TMenuItem; + mnuAnalysisCorrel_Canonical: TMenuItem; + + // Menu "Analysis" > "Descriptive" mnuAnalysisDescr: TMenuItem; mnuAnalysisDescr_Breakdown: TMenuItem; mnuAnalysisDescr_BoxPlot: TMenuItem; @@ -89,7 +110,48 @@ type mnuAnalysisDescr_StemLeaf: TMenuItem; mnuAnalysisDescr_ThreeDRotate: TMenuItem; mnuAnalysisDescr_XvsMultY: TMenuItem; + mnuAnalysisDescr_Separator1: TMenuItem; + mnuAnalysisDescr_Separator2: TMenuItem; + mnuAnalysisDescr_Separator4: TMenuItem; + mnuAnalysisDescr_Separator5: TMenuItem; + mnuAnalysisDescr_Separator6: TMenuItem; + mnuAnalysisDescr_Separator7: TMenuItem; + // Menu "Analysis" > "Financial" + mnuAnalysisFinancial: TMenuItem; + mnuAnalysisFinancial_DblDecling: TMenuItem; + mnuAnalysisFinancial_FutureValue: TMenuItem; + mnuAnalysisFinancial_InterestPayment: TMenuItem; + mnuAnalysisFinancial_InterestRate: TMenuItem; + mnuAnalysisFinancial_LoanAmort: TMenuItem; + mnuAnalysisFinancial_NetPresentValue: TMenuItem; + mnuAnalysisFinancial_NumPeriods: TMenuItem; + mnuAnalysisFinancial_Payment: TMenuItem; + mnuAnalysisFinancial_PeriodPayment: TMenuItem; + mnuAnalysisFinancial_PresentValue: TMenuItem; + mnuAnalysisFinancial_Return: TMenuItem; + mnuAnalysisFinancial_SLDeprec: TMenuItem; + mnuAnalysisFinancial_SumOfYearsDigts: TMenuItem; + + // Menu "Analysis" > "Measurement Programs" + mnuAnalysisMeas: TMenuItem; + mnuAnalysisMeas_Classical: TMenuItem; + mnuAnalysisMeas_Composite: TMenuItem; + mnuAnalysisMeas_Differential: TMenuItem; + mnuAnalysisMeas_GradeBook: TMenuItem; + mnuAnalysisMeas_Guttman: TMenuItem; + mnuAnalysisMeas_Interval: TMenuItem; + mnuAnalysisMeas_ItemBanking: TMenuItem; + mnuAnalysisMeas_KR21: TMenuItem; + mnuAnalysisMeas_Polytomous: TMenuItem; + mnuAnalysisMeas_Rash: TMenuItem; + mnuAnalysisMeas_SampleData: TMenuItem; + mnuAnalysisMeas_Spearman: TMenuItem; + mnuAnalysisMeas_VarChange: TMenuItem; + mnuAnalysisMeas_Separator1: TMenuItem; + mnuAnalysisMeas_Separator2: TMenuItem; + + // Menu "Analysis" > "Multiple Regression" mnuAnalysisMultReg: TMenuItem; mnuAnalysisMultReg_Backward: TMenuItem; mnuAnalysisMultReg_BestComb: TMenuItem; @@ -102,7 +164,52 @@ type mnuAnalysisMultReg_Simult: TMenuItem; mnuAnalysisMultReg_TwoStage: TMenuItem; mnuAnalysisMultReg_Weighted: TMenuItem; + mnuAnalysisMultReg_Separator1: TMenuItem; + // Menu "Analysis" > "Multivariate" + mnuAnalysisMulti: TMenuItem; + mnuAnalysisMulti_AvgLink: TMenuItem; + mnuAnalysisMulti_Bartlett: TMenuItem; + mnuAnalysisMulti_Canonical: TMenuItem; + mnuAnalysisMulti_Correspondence: TMenuItem; + mnuAnalysisMulti_Factor: TMenuItem; + mnuAnalysisMulti_GLM: TMenuItem; + mnuAnalysisMulti_Hierarchical: TMenuItem; + mnuAnalysisMulti_KMeans: TMenuItem; + mnuAnalysisMulti_MANOVA: TMenuItem; + mnuAnalysisMulti_MedianPolish: TMenuItem; + mnuAnalysisMulti_Path: TMenuItem; + mnuAnalysisMulti_SingleLink: TMenuItem; + + // Menu "Analysis" > "Nonparametric" + mnuAnalysisNonPar: TMenuItem; + mnuAnalysisNonPar_Binomial: TMenuItem; + mnuAnalysisNonPar_Cochran: TMenuItem; + mnuAnalysisNonPar_ContingChiSq: TMenuItem; + mnuAnalysisNonPar_Fisher: TMenuItem; + mnuAnalysisNonPar_Friedman: TMenuItem; + mnuAnalysisNonPar_GenKappa: TMenuItem; + mnuAnalysisNonPar_Kendall: TMenuItem; + mnuAnalysisNonPar_KruskalWallis: TMenuItem; + mnuAnalysisNonPar_KSTest: TMenuItem; + mnuAnalysisNonPar_LifeTable: TMenuItem; + mnuAnalysisNonPar_MannWhitney: TMenuItem; + mnuAnalysisNonPar_RIDIT: TMenuItem; + mnuAnalysisNonPar_RunsTest: TMenuItem; + mnuAnalysisNonPar_Sens: TMenuItem; + mnuAnalysisNonPar_SignTest: TMenuItem; + mnuAnalysisNonPar_SimpleChiSq: TMenuItem; + mnuAnalysisNonPar_Spearman: TMenuItem; + mnuAnalysisNonPar_SRH: TMenuItem; + mnuAnalysisNonPar_Survival: TMenuItem; + mnuAnalysisNonPar_Tau: TMenuItem; + mnuAnalysisNonPar_WeightedKappa: TMenuItem; + mnuAnalysisNonPar_Wilcoxon: TMenuItem; + + // Menu "Analysis" > "One sample tests" + mnuAnalysisOneSampleTests: TMenuItem; + + // Menu "Analysis" > "Statistical process control" mnuAnalysisSPC: TMenuItem; mnuAnalysisSPC_CChart: TMenuItem; mnuAnalysisSPC_CUSUM: TMenuItem; @@ -111,7 +218,9 @@ type mnuAnalysisSPC_SChart: TMenuItem; mnuAnalysisSPC_UChart: TMenuItem; mnuAnalysisSPC_XBar: TMenuItem; + mnuAnalysisSPC_Separator1: TMenuItem; + // Men "Edit" mnuEdit: TMenuItem; mnuEditCopyCells: TMenuItem; mnuEditCopyCol: TMenuItem; @@ -127,6 +236,7 @@ type mnuEditPasteCol: TMenuItem; mnuEditPasteRow: TMenuItem; + // Menu "File" mnuFileClose: TMenuItem; mnuFileExport: TMenuItem; mnuFileExportCSV: TMenuItem; @@ -141,13 +251,19 @@ type mnuFileOpen: TMenuItem; mnuFileSave: TMenuItem; + // Menu "Help" mnuHelpAbout: TMenuItem; mnuHelpLicense: TMenuItem; mnuHelpShowTOC: TMenuItem; mnuHelpUsingGrid: TMenuItem; + mnuHelpSeparator: TMenuItem; - mnuIOptions: TMenuItem; + // Menu "Options" + mnuOptions: TMenuItem; + mnuOptions_ShowOptions: TMenuItem; + mnuOptions_PicView: TMenuItem; + // Menu "Simulations" mnuSimulations: TMenuItem; mnuSimBivarScatterPlot: TMenuItem; mnuSimChiSqProb: TMenuItem; @@ -161,12 +277,16 @@ type mnuSimPowerCurves: TMenuItem; mnuSimProbabilities: TMenuItem; mnuSimProbBetween: TMenuItem; - mnuSimProbDIVIDER: TMenuItem; + mnuSimProb_Separator2: TMenuItem; mnuSimProbGreaterZ: TMenuItem; mnuSimProbLessZ: TMenuItem; mnuSimStudentTProb: TMenuItem; mnuSimTypeErrorCurves: TMenuItem; + mnuSimSeparator1: TMenuItem; + mnuSimSeparator2: TMenuItem; + MnuSimProb_Separator1: TMenuItem; + // Menu "Tools" mnuTools: TMenuItem; mnuToolsCalculator: TMenuItem; mnuToolsFormatGrid: TMenuItem; @@ -181,6 +301,7 @@ type mnuToolsSwapDecType: TMenuItem; mnuToolsSwapRowsCols: TMenuItem; + // Menu "Variables" mnuVariables: TMenuItem; mnuVariablesDefine: TMenuItem; mnuVariablesEquationEditor: TMenuItem; @@ -188,106 +309,17 @@ type mnuVariablesRecode: TMenuItem; mnuVariablesTransform: TMenuItem; - MenuItem12: TMenuItem; - MenuItem14: TMenuItem; - MenuItem15: TMenuItem; - MenuItem17: TMenuItem; - MenuItem18: TMenuItem; - MenuItem19: TMenuItem; - MenuItem21: TMenuItem; - MenuItem22: TMenuItem; - MenuItem23: TMenuItem; - MenuItem24: TMenuItem; - MenuItem25: TMenuItem; - MenuItem26: TMenuItem; - MenuItem27: TMenuItem; - MenuItem29: TMenuItem; - MenuItem31: TMenuItem; - MenuItem33: TMenuItem; - GenKappa: TMenuItem; MatManMnu: TMenuItem; - GrdBkMnu: TMenuItem; - BinA: TMenuItem; - BartlettTest: TMenuItem; - Correspondence: TMenuItem; - KSTest: TMenuItem; - MedianPolish: TMenuItem; - ItemBankMenuItem: TMenuItem; - lifetable: TMenuItem; + + MenuItem1: TMenuItem; + MenuItem7: TMenuItem; + MenuItem8: TMenuItem; + MenuItem12: TMenuItem; + MenuItem15: TMenuItem; + MenuItem20: TMenuItem; + MenuItem30: TMenuItem; MenuItem42: TMenuItem; MenuItem43: TMenuItem; - MenuItem45: TMenuItem; - MenuItem46: TMenuItem; - MenuItem47: TMenuItem; - MenuItem50: TMenuItem; - MenuItem51: TMenuItem; - MenuItem52: TMenuItem; - SimpChiSqr: TMenuItem; - SRHItem: TMenuItem; - OneCaseAnova: TMenuItem; - Sens: TMenuItem; - RunsTest: TMenuItem; - NestedABC: TMenuItem; - PicView: TMenuItem; - mnuShowOptions: TMenuItem; - WghtedKappa: TMenuItem; - RiditAnalysis: TMenuItem; - MenuItem9: TMenuItem; - OpenDialog: TOpenDialog; - SaveDialog: TSaveDialog; - MenuItem71: TMenuItem; - MenuItem72: TMenuItem; - MenuItem73: TMenuItem; - MenuItem74: TMenuItem; - MenuItem83: TMenuItem; - MenuItem84: TMenuItem; - MenuItem85: TMenuItem; - MenuItem86: TMenuItem; - MenuItem87: TMenuItem; - MenuItem88: TMenuItem; - MenuItem89: TMenuItem; - MenuItem90: TMenuItem; - MenuItem91: TMenuItem; - MenuItem92: TMenuItem; - MenuItem93: TMenuItem; - MenuItem94: TMenuItem; - MenuItem95: TMenuItem; - MenuItem96: TMenuItem; - MenuItem97: TMenuItem; - MenuItem98: TMenuItem; - MenuItem99: TMenuItem; - RowEdit: TEdit; - FileNameEdit: TEdit; - Label3: TLabel; - Label4: TLabel; - NoVarsEdit: TEdit; - Label2: TLabel; - NoCasesEdit: TEdit; - Label1: TLabel; - MainMenu: TMainMenu; - MenuItem1: TMenuItem; - OneSampTests: TMenuItem; - MenuItem34: TMenuItem; - MenuItem35: TMenuItem; - MenuItem37: TMenuItem; - MenuItem38: TMenuItem; - MenuItem39: TMenuItem; - MenuItem40: TMenuItem; - - PropDiff: TMenuItem; - CorrDiff: TMenuItem; - ttests: TMenuItem; - Anova: TMenuItem; - WithinAnova: TMenuItem; - AxSAnova: TMenuItem; - ABSAnova: TMenuItem; - Ancova: TMenuItem; - GLM: TMenuItem; - LatinSquares: TMenuItem; - MenuItem8: TMenuItem; - Panel1: TPanel; - Panel2: TPanel; - DataGrid: TStringGrid; // Form event handlers procedure DataGridCellProcess(Sender: TObject; aCol, aRow: Integer; @@ -298,7 +330,33 @@ type procedure FormDestroy(Sender: TObject); procedure FormShow(Sender: TObject); - // Menu "Analysis" / "Descriptive" + // Menu "Analysis" > "Cross-classification" + procedure mnuAnalysisCC_ABLogLinClick(Sender: TObject); + procedure mnuAnalysisCC_ABCLogLinClick(Sender: TObject); + procedure mnuAnalysisCC_LogLinScreenClick(Sender: TObject); + + // Menu "Analysis" > "Comparisons" + procedure mnuAnalysisComp_ABSAnovaClick(Sender: TObject); + procedure mnuAnalysisComp_AncovaClick(Sender: TObject); + procedure mnuAnalysisComp_AnovaClick(Sender: TObject); + procedure mnuAnalysisComp_AxSAnovaClick(Sender: TObject); + procedure mnuAnalysisComp_BinAClick(Sender: TObject); + procedure mnuAnalysisComp_CorrDiffClick(Sender: TObject); + procedure mnuAnalysisComp_GLMClick(Sender: TObject); + procedure mnuAnalysisComp_LatinSquaresClick(Sender: TObject); + procedure mnuAnalysisComp_NestedABCClick(Sender: TObject); + procedure mnuAnalysisComp_OneCaseAnovaClick(Sender: TObject); + procedure mnuAnalysisComp_PropDiffClick(Sender: TObject); + procedure mnuAnalysisComp_tTestsClick(Sender: TObject); + procedure mnuAnalysisComp_WithinAnovaClick(Sender: TObject); + + // Menu "Analysis" > "Correlation" + procedure mnuAnalysisCorrel_AutoCorrClick(Sender: TObject); + procedure mnuAnalysisCorrel_CanonicalClick(Sender: TObject); + procedure mnuAnalysisCorrel_PartialClick(Sender: TObject); + procedure mnuAnalysisCorrel_ProductMomentClick(Sender: TObject); + + // Menu "Analysis" > "Descriptive" procedure mnuAnalysisDescr_BoxPlotClick(Sender: TObject); procedure mnuAnalysisDescr_BreakdownClick(Sender: TObject); procedure mnuAnalysisDescr_BubblePlotClick(Sender: TObject); @@ -317,7 +375,28 @@ type procedure mnuAnalysisDescr_ThreeDRotateClick(Sender: TObject); procedure mnuAnalysisDescr_XvsMultYClick(Sender: TObject); - // Menu "Multiple Regression" + // Menu "Analysis" > "Financial" + procedure mnuAnalysisFinancial_LoanAmortClick(Sender: TObject); + procedure mnuAnalysisFinancial_DblDeclingClick(Sender: TObject); + procedure mnuAnalysisFinancial_SLDeprecClick(Sender: TObject); + procedure mnuAnalysisFinancial_SumOfYearsDigtsClick(Sender: TObject); + + // Menu "Analysis" > "Measurement programs" + procedure mnuAnalysisMeas_ClassicalClick(Sender: TObject); + procedure mnuAnalysisMeas_CompositeClick(Sender: TObject); + procedure mnuAnalysisMeas_DifferentialClick(Sender: TObject); + procedure mnuAnalysisMeas_GradeBookClick(Sender: TObject); + procedure mnuAnalysisMeas_GuttmanClick(Sender: TObject); + procedure mnuAnalysisMeas_IntervalClick(Sender: TObject); + procedure mnuAnalysisMeas_ItemBankingClick(Sender: TObject); + procedure mnuAnalysisMeas_KR21Click(Sender: TObject); + procedure mnuAnalysisMeas_PolytomousClick(Sender: TObject); + procedure mnuAnalysisMeas_RashClick(Sender: TObject); + procedure mnuAnalysisMeas_SampleDataClick(Sender: TObject); + procedure mnuAnalysisMeas_SpearmanClick(Sender: TObject); + procedure mnuAnalysisMeas_VarChangeClick(Sender: TObject); + + // Menu "Analysis" > "Multiple Regression" procedure mnuAnalysisMultReg_BackwardClick(Sender: TObject); procedure mnuAnalysisMultReg_BestCombClick(Sender: TObject); procedure mnuAnalysisMultReg_BinLogisticClick(Sender: TObject); @@ -330,7 +409,48 @@ type procedure mnuAnalysisMultReg_TwoStageClick(Sender: TObject); procedure mnuAnalysisMultReg_WeightedClick(Sender: TObject); - // Menu 'Analysis" / "Statistical Process Control" + // Menu "Analysis" > "Multivariate" + procedure mnuAnalysisMulti_AvgLinkClick(Sender: TObject); + procedure mnuAnalysisMulti_BartlettClick(Sender: TObject); + procedure mnuAnalysisMulti_CanonicalClick(Sender: TObject); + procedure mnuAnalysisMulti_CorrespondenceClick(Sender: TObject); + procedure mnuAnalysisMulti_FactorClick(Sender: TObject); + procedure mnuAnalysisMulti_GLMClick(Sender: TObject); + procedure mnuAnalysisMulti_HierarchicalClick(Sender: TObject); + procedure mnuAnalysisMulti_KMeansClick(Sender: TObject); + procedure mnuAnalysisMulti_MANOVAClick(Sender: TObject); + procedure mnuAnalysisMulti_MedianPolishClick(Sender: TObject); + procedure mnuAnalysisMulti_PathClick(Sender: TObject); + procedure mnuAnalysisMulti_SingleLinkClick(Sender: TObject); + + // Menu "Analysis" > "Nonparametric" + procedure mnuAnalysisNonPar_BinomialClick(Sender: TObject); + procedure mnuAnalysisNonPar_CochranClick(Sender: TObject); + procedure mnuAnalysisNonPar_ContingChiSqClick(Sender: TObject); + procedure mnuAnalysisNonPar_FisherClick(Sender: TObject); + procedure mnuAnalysisNonPar_FriedmanClick(Sender: TObject); + procedure mnuAnalysisNonPar_GenKappaClick(Sender: TObject); + procedure mnuAnalysisNonPar_KendallClick(Sender: TObject); + procedure mnuAnalysisNonPar_KruskalWallisClick(Sender: TObject); + procedure mnuAnalysisNonPar_KSTestClick(Sender: TObject); + procedure mnuAnalysisNonPar_LifeTableClick(Sender: TObject); + procedure mnuAnalysisNonPar_MannWhitneyClick(Sender: TObject); + procedure mnuAnalysisNonPar_RIDITClick(Sender: TObject); + procedure mnuAnalysisNonPar_RunsTestClick(Sender: TObject); + procedure mnuAnalysisNonPar_SensClick(Sender: TObject); + procedure mnuAnalysisNonPar_SignTestClick(Sender: TObject); + procedure mnuAnalysisNonPar_SimpleChiSqClick(Sender: TObject); + procedure mnuAnalysisNonPar_SpearmanClick(Sender: TObject); + procedure mnuAnalysisNonPar_SRHClick(Sender: TObject); + procedure mnuAnalysisNonPar_SurvivalClick(Sender: TObject); + procedure mnuAnalysisNonPar_TauClick(Sender: TObject); + procedure mnuAnalysisNonPar_WeightedKappaClick(Sender: TObject); + procedure mnuAnalysisNonPar_WilcoxonClick(Sender: TObject); + + // Menu "Analysis" > "One sample tests" + procedure mnuAnalysisOneSampleTestsClick(Sender: TObject); + + // Menu "Analysis" > "Statistical Process Control" procedure mnuAnalysisSPC_CChartClick(Sender: TObject); procedure mnuAnalysisSPC_CUSUMClick(Sender: TObject); procedure mnuAnalysisSPC_PChartClick(Sender: TObject); @@ -371,7 +491,7 @@ type procedure mnuHelpUsingGridClick(Sender: TObject); // Menu "Options" - procedure mnuShowOptionsClick(Sender: TObject); + procedure mnuOptions_ShowOptionsClick(Sender: TObject); // Menu "Simulations" procedure mnuSimBivarScatterPlotClick(Sender: TObject); @@ -403,7 +523,6 @@ type procedure mnuToolsSwapDecTypeClick(Sender: TObject); procedure mnuToolsSwapRowsColsClick(Sender: TObject); - // Menu "Variables" procedure mnuVariablesDefineClick(Sender: TObject); procedure mnuVariablesEquationEditorClick(Sender: TObject); @@ -412,86 +531,14 @@ type procedure mnuVariablesTransformClick(Sender: TObject); - procedure ABSAnovaClick(Sender: TObject); - procedure AncovaClick(Sender: TObject); - procedure AnovaClick(Sender: TObject); -// procedure AvgLinkClusterClick(Sender: TObject); - procedure AxSAnovaClick(Sender: TObject); - procedure BartlettTestClick(Sender: TObject); - procedure BinAClick(Sender: TObject); - procedure CorrDiffClick(Sender: TObject); - procedure CorrespondenceClick(Sender: TObject); procedure DataGridClick(Sender: TObject); procedure DataGridKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState); procedure DataGridKeyPress(Sender: TObject; var Key: char); procedure DataGridPrepareCanvas(sender: TObject; aCol, {%H-}aRow: Integer; {%H-}aState: TGridDrawState); - procedure GenKappaClick(Sender: TObject); - procedure GLMClick(Sender: TObject); - procedure GrdBkMnuClick(Sender: TObject); //procedure HelpContentsClick(Sender: TObject); - procedure ItemBankMenuItemClick(Sender: TObject); - procedure KSTestClick(Sender: TObject); - procedure LatinSquaresClick(Sender: TObject); - procedure lifetableClick(Sender: TObject); procedure MatManMnuClick(Sender: TObject); - procedure MedianPolishClick(Sender: TObject); - procedure MenuItem100Click(Sender: TObject); - procedure MenuItem101Click(Sender: TObject); - procedure MenuItem102Click(Sender: TObject); - procedure MenuItem103Click(Sender: TObject); - procedure MenuItem104Click(Sender: TObject); - procedure MenuItem105Click(Sender: TObject); - procedure MenuItem106Click(Sender: TObject); - procedure MenuItem107Click(Sender: TObject); - procedure MenuItem108Click(Sender: TObject); - procedure MenuItem109Click(Sender: TObject); - procedure MenuItem10Click(Sender: TObject); - procedure MenuItem110Click(Sender: TObject); - procedure MenuItem111Click(Sender: TObject); - procedure MenuItem112Click(Sender: TObject); - procedure MenuItem113Click(Sender: TObject); - procedure MenuItem114Click(Sender: TObject); - procedure MenuItem115Click(Sender: TObject); - procedure MenuItem11Click(Sender: TObject); - procedure MenuItem14Click(Sender: TObject); - procedure MenuItem27Click(Sender: TObject); - procedure MenuItem29Click(Sender: TObject); - procedure MenuItem31Click(Sender: TObject); - procedure MenuItem33Click(Sender: TObject); - procedure MenuItem71Click(Sender: TObject); - procedure MenuItem72Click(Sender: TObject); - procedure MenuItem73Click(Sender: TObject); - procedure MenuItem74Click(Sender: TObject); - procedure MenuItem83Click(Sender: TObject); - procedure MenuItem84Click(Sender: TObject); - procedure MenuItem85Click(Sender: TObject); - procedure MenuItem86Click(Sender: TObject); - procedure MenuItem87Click(Sender: TObject); - procedure MenuItem88Click(Sender: TObject); - procedure MenuItem89Click(Sender: TObject); - procedure MenuItem90Click(Sender: TObject); - procedure MenuItem91Click(Sender: TObject); - procedure MenuItem92Click(Sender: TObject); - procedure MenuItem93Click(Sender: TObject); - procedure MenuItem94Click(Sender: TObject); - procedure MenuItem95Click(Sender: TObject); - procedure MenuItem96Click(Sender: TObject); - procedure MenuItem97Click(Sender: TObject); - procedure MenuItem98Click(Sender: TObject); - procedure MenuItem99Click(Sender: TObject); - procedure NestedABCClick(Sender: TObject); - procedure OneCaseAnovaClick(Sender: TObject); - procedure OneSampTestsClick(Sender: TObject); // procedure PicViewClick(Sender: TObject); - procedure PropDiffClick(Sender: TObject); - procedure RiditAnalysisClick(Sender: TObject); - procedure RunsTestClick(Sender: TObject); - procedure SensClick(Sender: TObject); - procedure SimpChiSqrClick(Sender: TObject); - procedure SRHItemClick(Sender: TObject); - procedure TTestsClick(Sender: TObject); - procedure WghtedKappaClick(Sender: TObject); - procedure WithinAnovaClick(Sender: TObject); + private { private declarations } {$IFDEF USE_EXTERNAL_HELP_VIEWER} @@ -640,7 +687,7 @@ begin end; // Menu "Analysis" > "Financial" > "Double Declining Value" -procedure TOS3MainFrm.MenuItem27Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisFinancial_DblDeclingClick(Sender: TObject); begin if DblDeclineFrm = nil then Application.CreateForm(TDblDeclineFrm, DblDeclineFrm); @@ -648,7 +695,7 @@ begin end; // Menu" "Analysis" > "Multivariate" > "Average Link Clustering" -procedure TOS3MainFrm.MenuItem29Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMulti_AvgLinkClick(Sender: TObject); begin if AvgLinkFrm = nil then Application.CreateForm(TAvgLinkFrm, AvgLinkFrm); @@ -656,7 +703,7 @@ begin end; // Menu "Analysis" > "Multivariate" > "K Means Clustering" -procedure TOS3MainFrm.MenuItem31Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMulti_KMeansClick(Sender: TObject); begin if KMeansFrm = nil then Application.CreateForm(TKMeansFrm, KMeansFrm); @@ -664,7 +711,7 @@ begin end; // Menu "Analysis" > "Multivariate" > "Single Link Clustering" -procedure TOS3MainFrm.MenuItem33Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMulti_SingleLinkClick(Sender: TObject); begin if SingleLinkFrm = nil then Application.CreateForm(TSingleLinkFrm, SingleLinkFrm); @@ -672,7 +719,7 @@ begin end; // Menu "Correlation" > "Product-Moment" -procedure TOS3MainFrm.MenuItem71Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisCorrel_ProductMomentClick(Sender: TObject); begin if RMatFrm = nil then Application.CreateForm(TRMatFrm, RMatFrm); @@ -680,21 +727,21 @@ begin end; // Menu "Correlation" > "Partial, Semipartial" -procedure TOS3MainFrm.MenuItem72Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisCorrel_PartialClick(Sender: TObject); begin if PartialsFrm = nil then Application.CreateForm(TPartialsFrm, PartialsFrm); PartialsFrm.ShowModal; end; -procedure TOS3MainFrm.MenuItem73Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisCorrel_AutoCorrClick(Sender: TObject); begin if AutoCorrFrm = nil then Application.CreateForm(TAutoCorrFrm, AutoCorrFrm); AutocorrFrm.ShowModal; end; -procedure TOS3MainFrm.MenuItem74Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisCorrel_CanonicalClick(Sender: TObject); begin if CannonFrm = nil then Application.CreateForm(TCannonFrm, CannonFrm); @@ -702,7 +749,7 @@ begin end; // Menu "Analysis" > "Multivariate" > "MANOVA / Discriminant Function" -procedure TOS3MainFrm.MenuItem83Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMulti_MANOVAClick(Sender: TObject); begin if DiscrimFrm = nil then Application.CreateForm(TDiscrimFrm, DiscrimFrm); @@ -710,7 +757,7 @@ begin end; // Menu "Analysis" > "Multivariate" > "Hierarchical Analysis" -procedure TOS3MainFrm.MenuItem84Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMulti_HierarchicalClick(Sender: TObject); begin if HierarchFrm = nil then Application.CreateForm(THierarchFrm, HierarchFrm); @@ -718,7 +765,7 @@ begin end; // Menu "Analysis" > "Multivariate" > "Path analysis" -procedure TOS3MainFrm.MenuItem85Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMulti_PathClick(Sender: TObject); begin if PathFrm = nil then Application.CreateForm(TPathFrm, PathFrm); @@ -726,14 +773,14 @@ begin end; // Menu "Analysis" > "Multivariate" > "Factor analysis" -procedure TOS3MainFrm.MenuItem86Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMulti_FactorClick(Sender: TObject); begin if FactorFrm = nil then Application.CreateForm(TFactorFrm, FactorFrm); FactorFrm.ShowModal; end; -procedure TOS3MainFrm.MenuItem87Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMulti_CanonicalClick(Sender: TObject); begin if CannonFrm = nil then Application.CreateForm(TCannonFrm, CannonFrm); @@ -741,7 +788,7 @@ begin end; // Menu "Analysis" > "Multivariate" > "Generalized Kappa" -procedure TOS3MainFrm.MenuItem88Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMulti_GLMClick(Sender: TObject); begin if GLMFrm = nil then Application.CreateForm(TGLMFrm, GLMFrm); @@ -749,7 +796,7 @@ begin end; // Menu "Analysis" > "Cross-classification" > "AxB Log Linear" -procedure TOS3MainFrm.MenuItem89Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisCC_ABLogLinClick(Sender: TObject); begin if TwoWayLogLinFrm = nil then Application.CreateForm(TTwoWayLogLinFrm, TwoWayLogLinFrm); @@ -757,7 +804,7 @@ begin end; // Menu "Analysis" > "Cross-Classification" > "AxBxC Log Linear" -procedure TOS3MainFrm.MenuItem90Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisCC_ABCLogLinClick(Sender: TObject); begin if ABCLogLinearFrm = nil then Application.CreateForm(TABCLogLinearFrm, ABCLogLinearFrm); @@ -765,7 +812,7 @@ begin end; // Menu "Analysis" > "Cross-classification" > "Log Linear Screen" -procedure TOS3MainFrm.MenuItem91Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisCC_LogLinScreenClick(Sender: TObject); begin if LogLinScreenFrm = nil then Application.CreateForm(TLogLinScreenFrm, LogLinScreenFrm); @@ -773,7 +820,7 @@ begin end; // Menu "Analysis" > "Measurement Programs" > "Generate Sample Test Data" -procedure TOS3MainFrm.MenuItem92Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMeas_SampleDataClick(Sender: TObject); begin if TestGenFrm = nil then Application.CreateForm(TTestGenFrm, TestGenFrm); @@ -781,7 +828,7 @@ begin end; // Menu "Analysis" > "Measurement Programs" > "Classical Test Analysis" -procedure TOS3MainFrm.MenuItem93Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMeas_ClassicalClick(Sender: TObject); begin if TestScoreFrm = nil then Application.CreateForm(TTestScoreFrm, TestScoreFrm); @@ -789,7 +836,7 @@ begin end; // Menu "Analysis" > "Measurement Programs" > "Rasch Test Calibration" -procedure TOS3MainFrm.MenuItem94Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMeas_RashClick(Sender: TObject); begin if RaschFrm = nil then Application.CreateForm(TRaschFrm, RaschFrm); @@ -797,7 +844,7 @@ begin end; // Menu "Analysis" > "Measurement Programs" > "Successive Interval Scaling" -procedure TOS3MainFrm.MenuItem95Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMeas_IntervalClick(Sender: TObject); begin if SuccIntFrm = nil then Application.CreateForm(TSuccIntFrm, SuccIntFrm); @@ -805,7 +852,7 @@ begin end; // Menu "Analysis" > "Measurement Programs" > "Guttman Scalogram Analysis -procedure TOS3MainFrm.MenuItem96Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMeas_GuttmanClick(Sender: TObject); begin if GuttmanFrm = nil then Application.CreateForm(TGuttmanFrm, GuttmanFrm); @@ -813,7 +860,7 @@ begin end; // Menu "Analysis" > "Measurement Programs" > "Weighted Composite Reliability" -procedure TOS3MainFrm.MenuItem97Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMeas_CompositeClick(Sender: TObject); begin if CompRelFrm = nil then Application.CreateForm(TCompRelFrm, CompRelFrm); @@ -821,7 +868,7 @@ begin end; // Menu "Analysis" > "Measurement Programs" > "Kuder-Richardson #21 Reliability" -procedure TOS3MainFrm.MenuItem98Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMeas_KR21Click(Sender: TObject); begin if KR21Frm = nil then Application.CreateForm(TKR21Frm, KR21Frm); @@ -829,23 +876,23 @@ begin end; // Menu "Analysis" > "Measurement Programs" > "Spearman-Brown Prophecy Reliability" -procedure TOS3MainFrm.MenuItem99Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMeas_SpearmanClick(Sender: TObject); begin if SpBrFrm = nil then Application.CreateForm(TSpBrFrm, SpBrFrm); SpBrFrm.ShowModal; end; -// Menu "Analysis" > "Comparisons" > "ABC ANOVA with B Nested in A" -procedure TOS3MainFrm.NestedABCClick(Sender: TObject); +// Menu "Analysis" > "Comparisons" > "ABC mnuAnalysisComp_Anova with B Nested in A" +procedure TOS3MainFrm.mnuAnalysisComp_NestedABCClick(Sender: TObject); begin if ABCNestedForm = nil then Application.CreateForm(TABCNestedForm, ABCNestedForm); ABCNestedForm.ShowModal; end; -// Menu "Analysis" > "Comparisons" > "2 or 3 Way ANOVA with One Case Per Cell" -procedure TOS3MainFrm.OneCaseAnovaClick(Sender: TObject); +// Menu "Analysis" > "Comparisons" > "2 or 3 Way mnuAnalysisComp_Anova with One Case Per Cell" +procedure TOS3MainFrm.mnuAnalysisComp_OneCaseAnovaClick(Sender: TObject); begin if OneCaseAnovaForm = nil then Application.CreateForm(TOneCaseAnovaForm, OneCaseAnovaForm); @@ -853,7 +900,7 @@ begin end; // Menu "Analysis" > "One sample tests" -procedure TOS3MainFrm.OneSampTestsClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisOneSampleTestsClick(Sender: TObject); begin if OneSampFrm = nil then Application.CreateForm(TOneSampFrm, OneSampFrm); @@ -862,7 +909,7 @@ end; // Menu "Analysis" > "Comparisons" > "Difference beween Proportions" -procedure TOS3MainFrm.PropDiffClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisComp_PropDiffClick(Sender: TObject); begin if TwoPropFrm = nil then Application.CreateForm(TTwoPropFrm, TwoPropFrm); @@ -870,7 +917,7 @@ begin end; // Menu "Analysis" > "Nonparametric" > "RIDIT Analysis" -procedure TOS3MainFrm.RiditAnalysisClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_RIDITClick(Sender: TObject); begin if RIDITFrm = nil then Application.CreateForm(TRIDITFrm, RIDITFrm); @@ -878,7 +925,7 @@ begin end; // Menu "Analysis" > "Nonparametric" > "Runs Test for Normality" -procedure TOS3MainFrm.RunsTestClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_RunsTestClick(Sender: TObject); begin if RunsTestForm = nil then Application.CreateForm(TRunsTestForm, RunsTestForm); @@ -886,8 +933,8 @@ begin end; -// Menu "Analysis" > "Nonparametric" > "Sens's Slope Analysis" -procedure TOS3MainFrm.SensClick(Sender: TObject); +// Menu "Analysis" > "Nonparametric" > "mnuAnalysisNonPar_Sens's Slope Analysis" +procedure TOS3MainFrm.mnuAnalysisNonPar_SensClick(Sender: TObject); begin if SensForm = nil then Application.CreateForm(TSensForm, SensForm); @@ -895,15 +942,15 @@ begin end; // Menu "Analysis" > "Nonparametric" > "Simple Chi Square for Categories" -procedure TOS3MainFrm.SimpChiSqrClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_SimpleChiSqClick(Sender: TObject); begin if SimpleChiSqrForm = nil then Application.CreateForm(TSimpleChiSqrForm, SimpleChiSqrForm); SimpleChiSqrForm.ShowModal; end; -// Menu "Analysis" > "Nonparametric" > "Schreier-Ray-Heart Two-Way ANOVA" -procedure TOS3MainFrm.SRHItemClick(Sender: TObject); +// Menu "Analysis" > "Nonparametric" > "Schreier-Ray-Heart Two-Way mnuAnalysisComp_Anova" +procedure TOS3MainFrm.mnuAnalysisNonPar_SRHClick(Sender: TObject); begin if SRHTest = nil then Application.CreateForm(TSRHTest, SRHTest); @@ -911,7 +958,7 @@ begin end; // Menu "Analysis" > "Comparisons" > "t-tests" -procedure TOS3MainFrm.TTestsClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisComp_tTestsClick(Sender: TObject); begin if TTestFrm = nil then Application.CreateForm(TTTestFrm, TTestFrm); @@ -919,15 +966,15 @@ begin end; // Menu "Analysis" > "Nonparametric" > "Kappa and Weighted Kappa" -procedure TOS3MainFrm.WghtedKappaClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_WeightedKappaClick(Sender: TObject); begin if WeightedKappaFrm = nil then Application.CreateForm(TWeightedKappaFrm, WeightedKappaFrm); WeightedKappaFrm.ShowModal; end; -// Menu "Analysis" > "Comparisons" > "Within Subjects ANOVA" -procedure TOS3MainFrm.WithinAnovaClick(Sender: TObject); +// Menu "Analysis" > "Comparisons" > "Within Subjects mnuAnalysisComp_Anova" +procedure TOS3MainFrm.mnuAnalysisComp_WithinAnovaClick(Sender: TObject); begin if WithinANOVAFrm = nil then Application.CreateForm(TWithinANOVAFrm, WithinANOVAFrm); @@ -1039,31 +1086,31 @@ begin end; // Menu "Analysis" > "Comparisons" > "1,2 or 3 Way ANOVAs" -procedure TOS3MainFrm.AnovaClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisComp_AnovaClick(Sender: TObject); begin if BlksAnovaFrm = nil then Application.CreateForm(TBlksAnovaFrm, BlksAnovaFrm); BlksAnovaFrm.ShowModal; end; -// Menu "Analysis" > "Comparisons" > "A x B x S ANOVA" -procedure TOS3MainFrm.ABSAnovaClick(Sender: TObject); +// Menu "Analysis" > "Comparisons" > "A x B x S mnuAnalysisComp_Anova" +procedure TOS3MainFrm.mnuAnalysisComp_ABSAnovaClick(Sender: TObject); begin if ABRAnovaFrm = nil then Application.CreateForm(TABRAnovaFrm, ABRAnovaFrm); ABRAnovaFrm.ShowModal; end; -// Menu "Analysis" > "Comparisons" > "ANCOVA by Regression" -procedure TOS3MainFrm.AncovaClick(Sender: TObject); +// Menu "Analysis" > "Comparisons" > "mnuAnalysisComp_Ancova by Regression" +procedure TOS3MainFrm.mnuAnalysisComp_AncovaClick(Sender: TObject); begin if ANCOVAfrm = nil then Application.CreateForm(TANCOVAfrm, ANCOVAfrm); ANCOVAFRM.ShowModal; end; -// Menu "Analysis" > "Comparisons" > "A x S ANOVA" -procedure TOS3MainFrm.AxSAnovaClick(Sender: TObject); +// Menu "Analysis" > "Comparisons" > "A x S mnuAnalysisComp_Anova" +procedure TOS3MainFrm.mnuAnalysisComp_AxSAnovaClick(Sender: TObject); begin if AxSAnovaFrm = nil then Application.CreateForm(TAxSAnovaFrm, AxSAnovaFrm); @@ -1071,15 +1118,15 @@ begin end; // Menu "Analysis" > "Multivariate" > "Bartlett Test of Sphericity" -procedure TOS3MainFrm.BartlettTestClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMulti_BartlettClick(Sender: TObject); begin if BartlettTestForm = nil then Application.CreateForm(TBartlettTestForm, BartlettTestform); BartlettTestForm.ShowModal; end; -// Menu "Analysis" > "Comparisons" > "B Nested in A ANOVA" -procedure TOS3MainFrm.BinAClick(Sender: TObject); +// Menu "Analysis" > "Comparisons" > "B Nested in A mnuAnalysisComp_Anova" +procedure TOS3MainFrm.mnuAnalysisComp_BinAClick(Sender: TObject); begin if BNestedAForm = nil then Application.CreateForm(TBNestedAForm, BNestedAForm); @@ -1087,15 +1134,15 @@ begin end; // Menu "Analysis" > "Comparisons" > "Difference Between Correlations" -procedure TOS3MainFrm.CorrDiffClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisComp_CorrDiffClick(Sender: TObject); begin if TwoCorrsFrm = nil then Application.CreateForm(TTwoCorrsFrm, TwoCorrsFrm); TwoCorrsFrm.ShowModal; end; -// Menu "Analysis" > "Multivariate" > "Correspondence Analysis" -procedure TOS3MainFrm.CorrespondenceClick(Sender: TObject); +// Menu "Analysis" > "Multivariate" > "mnuAnalysisMulti_Correspondence Analysis" +procedure TOS3MainFrm.mnuAnalysisMulti_CorrespondenceClick(Sender: TObject); begin if CorrespondenceForm = nil then Application.CreateForm(TCorrespondenceForm, CorrespondenceForm); @@ -1354,7 +1401,7 @@ begin end; // Menu "Options" > "Show options" -procedure TOS3MainFrm.mnuShowOptionsClick(Sender: TObject); +procedure TOS3MainFrm.mnuOptions_ShowOptionsClick(Sender: TObject); begin with TOptionsFrm.Create(nil) do try @@ -1656,7 +1703,7 @@ end; // Menu "Analysis" > "Nonparametric" > "Generalized Kappa" -procedure TOS3MainFrm.GenKappaClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_GenKappaClick(Sender: TObject); begin if GenKappaFrm = nil then Application.CreateForm(TGenKappaFrm, GenKappaFrm); @@ -1664,7 +1711,7 @@ begin end; // Menu "Analysis" > "Nonparametric" > "General Linear Model" -procedure TOS3MainFrm.GLMClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisComp_GLMClick(Sender: TObject); begin if GLMFrm = nil then Application.CreateForm(TGLMFrm, GLMFrm); @@ -1672,7 +1719,7 @@ begin end; // Menu "Analysis" > "Measurement Programs" > "Grade Book" -procedure TOS3MainFrm.GrdBkMnuClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMeas_GradeBookClick(Sender: TObject); begin if GradeBookFrm = nil then Application.CreateForm(TGradeBookFrm, GradeBookFrm); @@ -1689,14 +1736,14 @@ begin end; *) // Menu "Analysis" > "Measurement Programs" > "Item Banking" -procedure TOS3MainFrm.ItemBankMenuItemClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMeas_ItemBankingClick(Sender: TObject); begin if ItemBankFrm = nil then Application.CreateForm(TItemBankFrm, ItembankFrm); ItemBankFrm.ShowModal; end; -procedure TOS3MainFrm.KSTestClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_KSTestClick(Sender: TObject); begin if CompareDistFrm = nil then Application.CreateForm(TCompareDistFrm, CompareDistFrm); @@ -1704,7 +1751,7 @@ begin end; // Menu "Analysis" > "Comparisons" > "Latin and Greco-Latin Squares" -procedure TOS3MainFrm.LatinSquaresClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisComp_LatinSquaresClick(Sender: TObject); begin if LatinSqrsFrm = nil then Application.CreateForm(TLatinSqrsFrm, LatinSqrsFrm); @@ -1712,7 +1759,7 @@ begin end; // Menu "Analysis" > "Nonparametric" > "Life table" -procedure TOS3MainFrm.lifetableClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_LifeTableClick(Sender: TObject); begin if LifeTableForm = nil then Application.CreateForm(TLifeTableForm, LifeTableForm); @@ -1727,7 +1774,7 @@ begin end; // Menu "Analysis" > "Multivariate" > "Median Polishing for a 2x2 Table". -procedure TOS3MainFrm.MedianPolishClick(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMulti_MedianPolishClick(Sender: TObject); begin if MedianPolishForm = nil then Application.CreateForm(TMedianPolishForm, MedianPolishForm); @@ -1735,7 +1782,7 @@ begin end; // Menu "Analysis" > "Measurement Programs" > "Reliability Due to Test Variance Change" -procedure TOS3MainFrm.MenuItem100Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMeas_VarChangeClick(Sender: TObject); begin if RelChangeFrm = nil then Application.CreateForm(TRelChangeFrm, RelChangeFrm); @@ -1743,7 +1790,7 @@ begin end; // Menu "Analysis" > "Measurement Programs" > "Differential Item Functioning" -procedure TOS3MainFrm.MenuItem101Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMeas_DifferentialClick(Sender: TObject); begin if DIFFrm = nil then Application.CreateForm(TDIFFrm, DIFFrm); @@ -1751,7 +1798,7 @@ begin end; // Menu "Analysis" > "Measurement Programs" > "Polytomous DIF Analysis" -procedure TOS3MainFrm.MenuItem102Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisMeas_PolytomousClick(Sender: TObject); begin if PolyDIFFrm = nil then Application.CreateForm(TPolyDIFFrm, PolyDIFFrm); @@ -1759,7 +1806,7 @@ begin end; // Menu "Analysis" > "Nonparametric" > "Contingency Chi Square" -procedure TOS3MainFrm.MenuItem103Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_ContingChiSqClick(Sender: TObject); begin if ChiSqrFrm = nil then Application.CreateForm(TChiSqrFrm, ChiSqrFrm); @@ -1767,7 +1814,7 @@ begin end; // Menu "Analysis" > "Nonparametric" > "Spearman Rank Correlation" -procedure TOS3MainFrm.MenuItem104Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_SpearmanClick(Sender: TObject); begin if SpearmanFrm = nil then Application.CreateForm(TSpearmanFrm, SpearmanFrm); @@ -1775,7 +1822,7 @@ begin end; // Menu "Analysis" > "Nonparametric" > "Mann-Whitney U Test" -procedure TOS3MainFrm.MenuItem105Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_MannWhitneyClick(Sender: TObject); begin if MannWhitUFrm = nil then Application.CreateForm(TMannWhitUFrm, MannWhitUFrm); @@ -1783,7 +1830,7 @@ begin end; // Menu "Analysis" > "Nonparametric" > "Fisher's Exact Text" -procedure TOS3MainFrm.MenuItem106Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_FisherClick(Sender: TObject); begin if FisherFrm = nil then Application.CreateForm(TFisherFrm, FisherFrm); @@ -1791,15 +1838,15 @@ begin end; // Menu "Analysis" > "Nonparametric" > "Kendall's Coefficient of Concordance" -procedure TOS3MainFrm.MenuItem107Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_KendallClick(Sender: TObject); begin if ConcordFrm = nil then Application.CreateForm(TConcordFrm, ConcordFrm); ConcordFrm.ShowModal; end; -// Menu "Analysis" > "Nonparametric" > "Kruskal-Wallis One-Way ANOVA" -procedure TOS3MainFrm.MenuItem108Click(Sender: TObject); +// Menu "Analysis" > "Nonparametric" > "Kruskal-Wallis One-Way mnuAnalysisComp_Anova" +procedure TOS3MainFrm.mnuAnalysisNonPar_KruskalWallisClick(Sender: TObject); begin if KWAnovaFrm = nil then Application.CreateForm(TKWAnovaFrm, KWAnovaFrm); @@ -1807,7 +1854,7 @@ begin end; // Menu "Analysis" > "Nonparametric" > "Matched Pairs Signed Ranks Test" -procedure TOS3MainFrm.MenuItem109Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_WilcoxonClick(Sender: TObject); begin if WilcoxonFrm = nil then Application.CreateForm(TWilcoxonFrm, WilcoxonFrm); @@ -1815,7 +1862,7 @@ begin end; // Menu "Analysis" > "Financial" > "Loan Amortization Schedule" -procedure TOS3MainFrm.MenuItem10Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisFinancial_LoanAmortClick(Sender: TObject); begin if LoanItForm = nil then Application.CreateForm(TLoanItForm, LoanItForm); @@ -1823,7 +1870,7 @@ begin end; // Menu "Analysis" > "Nonparametric" > "Cochran Q Test" -procedure TOS3MainFrm.MenuItem110Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_CochranClick(Sender: TObject); begin if CochranQFrm = nil then Application.CreateForm(TCochranQFrm, CochranQFrm); @@ -1831,15 +1878,15 @@ begin end; // Menu "Analysis" > "Nonparametric" > "Sign Test" -procedure TOS3MainFrm.MenuItem111Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_SignTestClick(Sender: TObject); begin if SignTestFrm = nil then Application.CreateForm(TSignTestFrm, SignTestFrm); SignTestFrm.ShowModal; end; -// Menu "Analysis" > "Nonparametric" > "Friedman Two-Way ANOVA" -procedure TOS3MainFrm.MenuItem112Click(Sender: TObject); +// Menu "Analysis" > "Nonparametric" > "Friedman Two-Way mnuAnalysisComp_Anova" +procedure TOS3MainFrm.mnuAnalysisNonPar_FriedmanClick(Sender: TObject); begin if FriedmanFrm = nil then Application.CreateForm(TFriedmanFrm, FriedmanFrm); @@ -1847,7 +1894,7 @@ begin end; // Menu "Analysis" > "Nonparametric" > "Probability of a Binomial Event" -procedure TOS3MainFrm.MenuItem113Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_BinomialClick(Sender: TObject); begin if BinomialFrm = nil then Application.CreateForm(TBinomialFrm, BinomialFrm); @@ -1855,7 +1902,7 @@ begin end; // Menu "Analysis" > "Nonparametric" > Kendall's Tau and Partial Tau" -procedure TOS3MainFrm.MenuItem114Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_TauClick(Sender: TObject); begin if KendallTauFrm = nil then Application.CreateForm(TKendallTauFrm, KendallTauFrm); @@ -1863,7 +1910,7 @@ begin end; // Menu "Analysis" > "Nonparametric" > "Kaplan-Meier Survival Analysis" -procedure TOS3MainFrm.MenuItem115Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisNonPar_SurvivalClick(Sender: TObject); begin if KaplanMeierFrm = nil then Application.CreateForm(TKaplanMeierFrm, KaplanMeierFrm); @@ -2188,7 +2235,7 @@ end; // Menu "Analysis" > "Financial" > "Sum of years digits depreciation" -procedure TOS3MainFrm.MenuItem11Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisFinancial_SumOfYearsDigtsClick(Sender: TObject); begin if SumYrsDepFrm = nil then Application.CreateForm(TSumYrsDepFrm, SumYrsDepFrm); @@ -2196,7 +2243,7 @@ begin end; // Menu "Analysis" > "Financial" > "Straight line depreciation" -procedure TOS3MainFrm.MenuItem14Click(Sender: TObject); +procedure TOS3MainFrm.mnuAnalysisFinancial_SLDeprecClick(Sender: TObject); begin if SLDepFrm = nil then Application.CreateForm(TSLDepFrm, SLDepFrm);