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

LazStats: Rearrange Analysis > Descriptive menu. Check whether the Close button is working for non-modal forms. Add build and release modes to project.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7718 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-29 10:36:56 +00:00
parent 37374ab05d
commit 3e74301fa1
15 changed files with 158 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

91
applications/lazstats/source/LazStats.lpi
View File

@ -13,8 +13,80 @@
</XPManifest> </XPManifest>
<Icon Value="0"/> <Icon Value="0"/>
</General> </General>
<BuildModes Count="1"> <BuildModes Count="3">
<Item1 Name="default" Default="True"/> <Item1 Name="default" Default="True"/>
<Item2 Name="Debug">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\LazStats"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="forms;forms\analysis;forms\analysis\cross-classification;forms\analysis\financial;forms\analysis\descriptive;forms\analysis\one_sample_tests;forms\analysis\comparisons;forms\analysis\correlation;forms\analysis\matrix_manipulation;forms\analysis\measurement_programs;forms\analysis\measurement_programs\item_banking;forms\analysis\multiple_regression;forms\analysis\multivariate;forms\analysis\nonparametric;forms\analysis\statistical_process_control;forms\help;forms\options;forms\misc;forms\simulations;forms\tools;forms\variables;units;frames"/>
<UnitOutputDirectory Value="..\ppu\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<Checks>
<IOChecks Value="True"/>
<RangeChecks Value="True"/>
<OverflowChecks Value="True"/>
<StackChecks Value="True"/>
</Checks>
<VerifyObjMethodCallValidity Value="True"/>
</CodeGeneration>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
<UseHeaptrc Value="True"/>
<TrashVariables Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</Item2>
<Item3 Name="Release">
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\LazStats"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="forms;forms\analysis;forms\analysis\cross-classification;forms\analysis\financial;forms\analysis\descriptive;forms\analysis\one_sample_tests;forms\analysis\comparisons;forms\analysis\correlation;forms\analysis\matrix_manipulation;forms\analysis\measurement_programs;forms\analysis\measurement_programs\item_banking;forms\analysis\multiple_regression;forms\analysis\multivariate;forms\analysis\nonparametric;forms\analysis\statistical_process_control;forms\help;forms\options;forms\misc;forms\simulations;forms\tools;forms\variables;units;frames"/>
<UnitOutputDirectory Value="..\ppu\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
</Item3>
</BuildModes> </BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -1441,20 +1513,8 @@
<OtherUnitFiles Value="forms;forms\analysis;forms\analysis\cross-classification;forms\analysis\financial;forms\analysis\descriptive;forms\analysis\one_sample_tests;forms\analysis\comparisons;forms\analysis\correlation;forms\analysis\matrix_manipulation;forms\analysis\measurement_programs;forms\analysis\measurement_programs\item_banking;forms\analysis\multiple_regression;forms\analysis\multivariate;forms\analysis\nonparametric;forms\analysis\statistical_process_control;forms\help;forms\options;forms\misc;forms\simulations;forms\tools;forms\variables;units;frames"/> <OtherUnitFiles Value="forms;forms\analysis;forms\analysis\cross-classification;forms\analysis\financial;forms\analysis\descriptive;forms\analysis\one_sample_tests;forms\analysis\comparisons;forms\analysis\correlation;forms\analysis\matrix_manipulation;forms\analysis\measurement_programs;forms\analysis\measurement_programs\item_banking;forms\analysis\multiple_regression;forms\analysis\multivariate;forms\analysis\nonparametric;forms\analysis\statistical_process_control;forms\help;forms\options;forms\misc;forms\simulations;forms\tools;forms\variables;units;frames"/>
<UnitOutputDirectory Value="..\ppu\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="..\ppu\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration> <CodeGeneration>
<SmartLinkUnit Value="True"/> <SmartLinkUnit Value="True"/>
<Checks>
<IOChecks Value="True"/>
<RangeChecks Value="True"/>
<OverflowChecks Value="True"/>
<StackChecks Value="True"/>
</Checks>
<VerifyObjMethodCallValidity Value="True"/>
<Optimizations> <Optimizations>
<OptimizationLevel Value="2"/> <OptimizationLevel Value="2"/>
</Optimizations> </Optimizations>
@ -1464,6 +1524,11 @@
<DebugInfoType Value="dsDwarf2"/> <DebugInfoType Value="dsDwarf2"/>
</Debugging> </Debugging>
<LinkSmart Value="True"/> <LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>

3
applications/lazstats/source/forms/analysis/descriptive/comparedistunit.lfm
View File

@ -13,7 +13,7 @@ object CompareDistFrm: TCompareDistFrm
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poMainFormCenter Position = poMainFormCenter
LCLVersion = '2.1.0.0' LCLVersion = '2.0.10.0'
object CompareGroup: TRadioGroup object CompareGroup: TRadioGroup
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
@ -134,6 +134,7 @@ object CompareDistFrm: TCompareDistFrm
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Caption = 'Close' Caption = 'Close'
ModalResult = 11 ModalResult = 11
OnClick = CloseBtnClick
TabOrder = 7 TabOrder = 7
end end
object PlotTypeGrp: TGroupBox object PlotTypeGrp: TGroupBox

6
applications/lazstats/source/forms/analysis/descriptive/comparedistunit.pas
View File

@ -39,6 +39,7 @@ type
Var2OutBtn: TBitBtn; Var2OutBtn: TBitBtn;
Label1: TLabel; Label1: TLabel;
VarList: TListBox; VarList: TListBox;
procedure CloseBtnClick(Sender: TObject);
procedure CompareGroupClick(Sender: TObject); procedure CompareGroupClick(Sender: TObject);
procedure ComputeBtnClick(Sender: TObject); procedure ComputeBtnClick(Sender: TObject);
procedure DistGroupClick(Sender: TObject); procedure DistGroupClick(Sender: TObject);
@ -113,6 +114,11 @@ begin
Var2OutBtn.Enabled := (compareTo = 1); Var2OutBtn.Enabled := (compareTo = 1);
end; end;
procedure TCompareDistFrm.CloseBtnClick(Sender: TObject);
begin
Close;
end;
procedure TCompareDistFrm.ComputeBtnClick(Sender: TObject); procedure TCompareDistFrm.ComputeBtnClick(Sender: TObject);
var var
Var1Freq : IntDyneVec; Var1Freq : IntDyneVec;

3
applications/lazstats/source/forms/analysis/descriptive/groupfrequnit.lfm
View File

@ -13,7 +13,7 @@ object GroupFreqForm: TGroupFreqForm
OnCreate = FormCreate OnCreate = FormCreate
OnShow = ResetBtnClick OnShow = ResetBtnClick
Position = poMainFormCenter Position = poMainFormCenter
LCLVersion = '2.1.0.0' LCLVersion = '2.0.10.0'
object Label1: TLabel object Label1: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Memo1 AnchorSideTop.Control = Memo1
@ -152,6 +152,7 @@ object GroupFreqForm: TGroupFreqForm
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Caption = 'Close' Caption = 'Close'
ModalResult = 11 ModalResult = 11
OnClick = CloseBtnClick
TabOrder = 7 TabOrder = 7
end end
object PlotOptionsBox: TRadioGroup object PlotOptionsBox: TRadioGroup

6
applications/lazstats/source/forms/analysis/descriptive/groupfrequnit.pas
View File

@ -26,6 +26,7 @@ type
ResetBtn: TButton; ResetBtn: TButton;
CloseBtn: TButton; CloseBtn: TButton;
VarList: TListBox; VarList: TListBox;
procedure CloseBtnClick(Sender: TObject);
procedure ComputeBtnClick(Sender: TObject); procedure ComputeBtnClick(Sender: TObject);
procedure FormActivate(Sender: TObject); procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -179,6 +180,11 @@ begin
GraphFrm.Ypoints := nil; GraphFrm.Ypoints := nil;
end; end;
procedure TGroupFreqForm.CloseBtnClick(Sender: TObject);
begin
Close;
end;
procedure TGroupFreqForm.FormActivate(Sender: TObject); procedure TGroupFreqForm.FormActivate(Sender: TObject);
var var
w: Integer; w: Integer;

3
applications/lazstats/source/forms/analysis/descriptive/resistancelineunit.lfm
View File

@ -12,7 +12,7 @@ object ResistanceLineForm: TResistanceLineForm
OnCreate = FormCreate OnCreate = FormCreate
OnShow = ResetBtnClick OnShow = ResetBtnClick
Position = poMainFormCenter Position = poMainFormCenter
LCLVersion = '2.1.0.0' LCLVersion = '2.0.10.0'
object Label1: TLabel object Label1: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = HorCenterBevel AnchorSideTop.Control = HorCenterBevel
@ -351,6 +351,7 @@ object ResistanceLineForm: TResistanceLineForm
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Caption = 'Close' Caption = 'Close'
ModalResult = 11 ModalResult = 11
OnClick = CloseBtnClick
TabOrder = 13 TabOrder = 13
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox

12
applications/lazstats/source/forms/analysis/descriptive/resistancelineunit.pas
View File

@ -46,6 +46,7 @@ type
Label2: TLabel; Label2: TLabel;
Label3: TLabel; Label3: TLabel;
Label4: TLabel; Label4: TLabel;
procedure CloseBtnClick(Sender: TObject);
procedure ComputeBtnClick(Sender: TObject); procedure ComputeBtnClick(Sender: TObject);
procedure FormActivate(Sender: TObject); procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -60,8 +61,8 @@ type
{ private declarations } { private declarations }
FAutoSized: Boolean; FAutoSized: Boolean;
function Median(var X: DblDyneVec; ASize: integer): double; function Median(var X: DblDyneVec; ASize: integer): double;
procedure PlotXY(var Xpoints, YPoints, UpConf, LowConf: DblDyneVec; procedure PlotXY(const Xpoints, YPoints, UpConf, LowConf: DblDyneVec;
ConfBand: double; Xmean, Ymean, R, Slope, Intercept: double; ConfBand, Xmean, Ymean, R, Slope, Intercept: double;
Xmax, Xmin, Ymax, Ymin: double; N, PlotNo: integer); Xmax, Xmin, Ymax, Ymin: double; N, PlotNo: integer);
procedure UpdateBtnStates; procedure UpdateBtnStates;
@ -385,6 +386,11 @@ begin
end; end;
end; end;
procedure TResistanceLineForm.CloseBtnClick(Sender: TObject);
begin
Close;
end;
procedure TResistanceLineForm.FormActivate(Sender: TObject); procedure TResistanceLineForm.FormActivate(Sender: TObject);
var var
w: Integer; w: Integer;
@ -495,7 +501,7 @@ begin
Result := Median; Result := Median;
end; end;
procedure TResistanceLineForm.PlotXY(var Xpoints, Ypoints, UpConf, LowConf: DblDyneVec; procedure TResistanceLineForm.PlotXY(const Xpoints, Ypoints, UpConf, LowConf: DblDyneVec;
ConfBand, XMean, YMean, R, Slope, Intercept: double; ConfBand, XMean, YMean, R, Slope, Intercept: double;
Xmax, Xmin, Ymax, Ymin: double; N, PlotNo: integer); Xmax, Xmin, Ymax, Ymin: double; N, PlotNo: integer);
var var

3
applications/lazstats/source/forms/analysis/descriptive/rot3dunit.lfm
View File

@ -13,7 +13,7 @@ object Rot3DFrm: TRot3DFrm
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
Position = poMainFormCenter Position = poMainFormCenter
LCLVersion = '2.1.0.0' LCLVersion = '2.0.10.0'
object Label1: TLabel object Label1: TLabel
AnchorSideLeft.Control = VarList AnchorSideLeft.Control = VarList
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
@ -405,6 +405,7 @@ object Rot3DFrm: TRot3DFrm
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Caption = 'Close' Caption = 'Close'
ModalResult = 11 ModalResult = 11
OnClick = CloseBtnClick
TabOrder = 12 TabOrder = 12
end end
object PrintDialog: TPrintDialog object PrintDialog: TPrintDialog

6
applications/lazstats/source/forms/analysis/descriptive/rot3dunit.pas
View File

@ -47,6 +47,7 @@ type
YDegEdit: TEdit; YDegEdit: TEdit;
ZDegEdit: TEdit; ZDegEdit: TEdit;
procedure CancelBtnClick(Sender: TObject); procedure CancelBtnClick(Sender: TObject);
procedure CloseBtnClick(Sender: TObject);
procedure FormActivate(Sender: TObject); procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
@ -320,6 +321,11 @@ begin
Close; Close;
end; end;
procedure TRot3DFrm.CloseBtnClick(Sender: TObject);
begin
Close;
end;
procedure TRot3DFrm.Rotate(Sender: TObject); procedure TRot3DFrm.Rotate(Sender: TObject);
var var
p: POINT3D; p: POINT3D;

3
applications/lazstats/source/forms/analysis/descriptive/smoothdataunit.lfm
View File

@ -13,7 +13,7 @@ object DataSmoothingForm: TDataSmoothingForm
OnCreate = FormCreate OnCreate = FormCreate
OnShow = ResetBtnClick OnShow = ResetBtnClick
Position = poMainFormCenter Position = poMainFormCenter
LCLVersion = '2.1.0.0' LCLVersion = '2.0.10.0'
object Label1: TLabel object Label1: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Memo1 AnchorSideTop.Control = Memo1
@ -152,6 +152,7 @@ object DataSmoothingForm: TDataSmoothingForm
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Caption = 'Close' Caption = 'Close'
ModalResult = 11 ModalResult = 11
OnClick = CloseBtnClick
TabOrder = 6 TabOrder = 6
end end
object RepeatChk: TCheckBox object RepeatChk: TCheckBox

6
applications/lazstats/source/forms/analysis/descriptive/smoothdataunit.pas
View File

@ -28,6 +28,7 @@ type
VarOutBtn: TBitBtn; VarOutBtn: TBitBtn;
Label1: TLabel; Label1: TLabel;
VarList: TListBox; VarList: TListBox;
procedure CloseBtnClick(Sender: TObject);
procedure ComputeBtnClick(Sender: TObject); procedure ComputeBtnClick(Sender: TObject);
procedure FormActivate(Sender: TObject); procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -129,6 +130,11 @@ begin
DataPts := nil; DataPts := nil;
end; end;
procedure TDataSmoothingForm.CloseBtnClick(Sender: TObject);
begin
Close;
end;
procedure TDataSmoothingForm.FormActivate(Sender: TObject); procedure TDataSmoothingForm.FormActivate(Sender: TObject);
var var
w: Integer; w: Integer;

3
applications/lazstats/source/forms/analysis/descriptive/stemleafunit.lfm
View File

@ -13,7 +13,7 @@ object StemLeafFrm: TStemLeafFrm
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poMainFormCenter Position = poMainFormCenter
LCLVersion = '2.1.0.0' LCLVersion = '2.0.10.0'
object TestChk: TCheckBox object TestChk: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = Bevel1 AnchorSideBottom.Control = Bevel1
@ -175,6 +175,7 @@ object StemLeafFrm: TStemLeafFrm
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Caption = 'Close' Caption = 'Close'
ModalResult = 11 ModalResult = 11
OnClick = CloseBtnClick
TabOrder = 2 TabOrder = 2
end end
object ComputeBtn: TButton object ComputeBtn: TButton

6
applications/lazstats/source/forms/analysis/descriptive/stemleafunit.pas
View File

@ -29,6 +29,7 @@ type
VarList: TListBox; VarList: TListBox;
SelectList: TListBox; SelectList: TListBox;
procedure AllBtnClick(Sender: TObject); procedure AllBtnClick(Sender: TObject);
procedure CloseBtnClick(Sender: TObject);
procedure ComputeBtnClick(Sender: TObject); procedure ComputeBtnClick(Sender: TObject);
procedure FormActivate(Sender: TObject); procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -91,6 +92,11 @@ begin
UpdateBtnStates; UpdateBtnStates;
end; end;
procedure TStemLeafFrm.CloseBtnClick(Sender: TObject);
begin
Close;
end;
procedure TStemLeafFrm.ComputeBtnClick(Sender: TObject); procedure TStemLeafFrm.ComputeBtnClick(Sender: TObject);
var var
i, j, k, L, ncases, noselected, largest, smallest: integer; i, j, k, L, ncases, noselected, largest, smallest: integer;

41
applications/lazstats/source/forms/mainunit.lfm
View File

@ -19,7 +19,7 @@ object OS3MainFrm: TOS3MainFrm
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
LCLVersion = '2.1.0.0' LCLVersion = '2.0.10.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 35 Height = 35
@ -471,7 +471,7 @@ object OS3MainFrm: TOS3MainFrm
OnClick = mnuAnalysisDescr_PlotXvsYClick OnClick = mnuAnalysisDescr_PlotXvsYClick
end end
object mnuAnalysisDescr_XvsMultY: TMenuItem object mnuAnalysisDescr_XvsMultY: TMenuItem
Caption = 'Plot X versus Multiple Y' Caption = 'Plot X vs Multiple Y'
OnClick = mnuAnalysisDescr_XvsMultYClick OnClick = mnuAnalysisDescr_XvsMultYClick
end end
object mnuAnalysisDescr_MultXvsY: TMenuItem object mnuAnalysisDescr_MultXvsY: TMenuItem
@ -500,34 +500,43 @@ object OS3MainFrm: TOS3MainFrm
Caption = 'Breakdown' Caption = 'Breakdown'
OnClick = mnuAnalysisDescr_BreakdownClick OnClick = mnuAnalysisDescr_BreakdownClick
end end
object MenuItem13: TMenuItem
Caption = '-'
end
object mnuAnalysisDescr_Normality: TMenuItem object mnuAnalysisDescr_Normality: TMenuItem
Caption = 'Normality Tests' Caption = 'Normality Tests'
OnClick = mnuAnalysisDescr_NormalityClick OnClick = mnuAnalysisDescr_NormalityClick
end end
object mnuAnalysisDescr_ThreeDRotate: TMenuItem
Caption = '3-D Variable Rotation'
OnClick = mnuAnalysisDescr_ThreeDRotateClick
end
object mnuAnalysisDescr_StemLeaf: TMenuItem
Caption = 'Stem and Leaf Plot'
OnClick = mnuAnalysisDescr_StemLeafClick
end
object mnuAnalysisDescr_CompareDists: TMenuItem object mnuAnalysisDescr_CompareDists: TMenuItem
Caption = 'Compare Distributions' Caption = 'Compare Distributions'
OnClick = mnuAnalysisDescr_CompareDistsClick OnClick = mnuAnalysisDescr_CompareDistsClick
end end
object MenuItem16: TMenuItem
Caption = '-'
end
object mnuAnalysisDescr_StemLeaf: TMenuItem
Caption = 'Stem and Leaf Plot'
OnClick = mnuAnalysisDescr_StemLeafClick
end
object mnuAnalysisDescr_ResistanceLine: TMenuItem object mnuAnalysisDescr_ResistanceLine: TMenuItem
Caption = 'Resistant Line for Bivariate Data' Caption = 'Resistant Line for Bivariate Data'
OnClick = mnuAnalysisDescr_ResistanceLineClick OnClick = mnuAnalysisDescr_ResistanceLineClick
end end
object mnuAnalysisDescr_DataSmooth: TMenuItem
Caption = 'Data Smoothing'
OnClick = mnuAnalysisDescr_DataSmoothClick
end
object mnuAnalysisDescr_HomogeneityTest: TMenuItem object mnuAnalysisDescr_HomogeneityTest: TMenuItem
Caption = 'Brown-Forsythe Test for Homogeneity of Variance' Caption = 'Brown-Forsythe Test for Homogeneity of Variance'
OnClick = mnuAnalysisDescr_HomogeneityTestClick OnClick = mnuAnalysisDescr_HomogeneityTestClick
end end
object MenuItem20: TMenuItem
Caption = '-'
end
object mnuAnalysisDescr_ThreeDRotate: TMenuItem
Caption = '3-D Variable Rotation'
OnClick = mnuAnalysisDescr_ThreeDRotateClick
end
object mnuAnalysisDescr_DataSmooth: TMenuItem
Caption = 'Data Smoothing'
OnClick = mnuAnalysisDescr_DataSmoothClick
end
end end
object OneSampTests: TMenuItem object OneSampTests: TMenuItem
Caption = 'One Sample Tests' Caption = 'One Sample Tests'
@ -1081,10 +1090,6 @@ object OS3MainFrm: TOS3MainFrm
OnClick = mnuHelpUsingGridClick OnClick = mnuHelpUsingGridClick
end end
end end
object MenuItem2: TMenuItem
Caption = 'MenuItem2'
OnClick = MenuItem2Click
end
end end
object OpenDialog: TOpenDialog object OpenDialog: TOpenDialog
Left = 312 Left = 312

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

@ -59,6 +59,9 @@ type
MenuItem113: TMenuItem; MenuItem113: TMenuItem;
MenuItem114: TMenuItem; MenuItem114: TMenuItem;
MenuItem115: TMenuItem; MenuItem115: TMenuItem;
MenuItem13: TMenuItem;
MenuItem16: TMenuItem;
MenuItem20: TMenuItem;
MenuItem3: TMenuItem; MenuItem3: TMenuItem;
MenuItem4: TMenuItem; MenuItem4: TMenuItem;
MenuItem5: TMenuItem; MenuItem5: TMenuItem;
@ -152,7 +155,6 @@ type
mnuVariablesTransform: TMenuItem; mnuVariablesTransform: TMenuItem;
MenuItem12: TMenuItem; MenuItem12: TMenuItem;
MenuItem2: TMenuItem;
MenuItem14: TMenuItem; MenuItem14: TMenuItem;
MenuItem15: TMenuItem; MenuItem15: TMenuItem;
MenuItem17: TMenuItem; MenuItem17: TMenuItem;
@ -292,8 +294,6 @@ type
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
// Menu "Analysis" / "Descriptive" // Menu "Analysis" / "Descriptive"
procedure mnuAnalysisDescr_BoxPlotClick(Sender: TObject); procedure mnuAnalysisDescr_BoxPlotClick(Sender: TObject);
procedure mnuAnalysisDescr_BreakdownClick(Sender: TObject); procedure mnuAnalysisDescr_BreakdownClick(Sender: TObject);
@ -633,15 +633,6 @@ begin
end; end;
end; end;
procedure TOS3MainFrm.MenuItem2Click(Sender: TObject);
begin
{
if SChartForm = nil then
Application.CreateForm(TSChartForm, SChartForm);
SChartForm.ShowModal;
}
end;
// Menu "Analysis" > "Financial" > "Double Declining Value" // Menu "Analysis" > "Financial" > "Double Declining Value"
procedure TOS3MainFrm.MenuItem27Click(Sender: TObject); procedure TOS3MainFrm.MenuItem27Click(Sender: TObject);
begin begin
@ -2089,7 +2080,7 @@ procedure TOS3MainFrm.mnuAnalysisDescr_ResistanceLineClick(Sender: TObject);
begin begin
if ResistanceLineForm = nil then if ResistanceLineForm = nil then
Application.CreateForm(TResistanceLineForm, ResistanceLineForm); Application.CreateForm(TResistanceLineForm, ResistanceLineForm);
ResistanceLineForm.ShowModal; ResistanceLineForm.Show;
end; end;
// Menu "Analysis" > "Descriptive" > "Stem and Leaf Plot" // Menu "Analysis" > "Descriptive" > "Stem and Leaf Plot"
@ -2097,7 +2088,7 @@ procedure TOS3MainFrm.mnuAnalysisDescr_StemLeafClick(Sender: TObject);
begin begin
if StemLeafFrm = nil then if StemLeafFrm = nil then
Application.CreateForm(TStemLeafFrm, StemLeafFrm); Application.CreateForm(TStemLeafFrm, StemLeafFrm);
StemLeafFrm.ShowModal; StemLeafFrm.Show;
end; end;
// Menu "Analysis" > "Descriptive" > "3-D Variable Rotation" // Menu "Analysis" > "Descriptive" > "3-D Variable Rotation"
@ -2105,7 +2096,7 @@ procedure TOS3MainFrm.mnuAnalysisDescr_ThreeDRotateClick(Sender: TObject);
begin begin
if Rot3DFrm = nil then if Rot3DFrm = nil then
Application.CreateForm(TRot3DFrm, Rot3DFrm); Application.CreateForm(TRot3DFrm, Rot3DFrm);
Rot3DFrm.ShowModal; Rot3DFrm.Show;
end; end;
// Menu "Analysis" > "Descriptive" > "X versus Multiple Y Plot" // Menu "Analysis" > "Descriptive" > "X versus Multiple Y Plot"