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

LazStats: Rename some forms from "*Frm" to "*Form"

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7789 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-10-20 21:47:11 +00:00
parent f51fb9906f
commit 4666d9f58a
8 changed files with 81 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -489,7 +489,7 @@
<Unit48> <Unit48>
<Filename Value="forms\analysis\multiple_regression\stepfwdmrunit.pas"/> <Filename Value="forms\analysis\multiple_regression\stepfwdmrunit.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="StepFwdFrm"/> <ComponentName Value="StepFwdForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="StepFwdMRUnit"/> <UnitName Value="StepFwdMRUnit"/>
@ -505,7 +505,7 @@
<Unit50> <Unit50>
<Filename Value="forms\analysis\multiple_regression\backregunit.pas"/> <Filename Value="forms\analysis\multiple_regression\backregunit.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="BackRegFrm"/> <ComponentName Value="BackRegForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="BackRegUnit"/> <UnitName Value="BackRegUnit"/>
@ -913,7 +913,7 @@
<Unit101> <Unit101>
<Filename Value="forms\analysis\multiple_regression\wlsunit.pas"/> <Filename Value="forms\analysis\multiple_regression\wlsunit.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="WLSFrm"/> <ComponentName Value="WLSForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="WLSUnit"/> <UnitName Value="WLSUnit"/>

2
applications/lazstats/source/forms/analysis/multiple_regression/backregunit.lfm
View File

@ -1,4 +1,4 @@
inherited BackRegFrm: TBackRegFrm inherited BackRegForm: TBackRegForm
Left = 622 Left = 622
Height = 398 Height = 398
Top = 187 Top = 187

32
applications/lazstats/source/forms/analysis/multiple_regression/backregunit.pas
View File

@ -12,9 +12,9 @@ uses
type type
{ TBackRegFrm } { TBackRegForm }
TBackRegFrm = class(TBasicStatsReportForm) TBackRegForm = class(TBasicStatsReportForm)
OpenDialog1: TOpenDialog; OpenDialog1: TOpenDialog;
InBtn: TBitBtn; InBtn: TBitBtn;
OutBtn: TBitBtn; OutBtn: TBitBtn;
@ -60,7 +60,7 @@ type
end; end;
var var
BackRegFrm: TBackRegFrm; BackRegForm: TBackRegForm;
implementation implementation
@ -72,9 +72,9 @@ uses
Utils; Utils;
{ TBackRegFrm } { TBackRegForm }
procedure TBackRegFrm.AdjustConstraints; procedure TBackRegForm.AdjustConstraints;
begin begin
inherited; inherited;
@ -89,7 +89,7 @@ begin
end; end;
procedure TBackRegFrm.AllBtnClick(Sender: TObject); procedure TBackRegForm.AllBtnClick(Sender: TObject);
var var
index: integer; index: integer;
begin begin
@ -100,7 +100,7 @@ begin
end; end;
procedure TBackRegFrm.Compute; procedure TBackRegForm.Compute;
var var
NoVars, NoIndepVars, i, j, NCases, StepNo : integer; NoVars, NoIndepVars, i, j, NCases, StepNo : integer;
Index: integer; Index: integer;
@ -341,7 +341,7 @@ begin
end; end;
procedure TBackRegFrm.DepInBtnClick(Sender: TObject); procedure TBackRegForm.DepInBtnClick(Sender: TObject);
var var
index: integer; index: integer;
begin begin
@ -355,7 +355,7 @@ begin
end; end;
procedure TBackRegFrm.DepOutBtnClick(Sender: TObject); procedure TBackRegForm.DepOutBtnClick(Sender: TObject);
begin begin
if DepVarEdit.Text <> '' then if DepVarEdit.Text <> '' then
begin begin
@ -366,7 +366,7 @@ begin
end; end;
procedure TBackRegFrm.InBtnClick(Sender: TObject); procedure TBackRegForm.InBtnClick(Sender: TObject);
var var
i: integer; i: integer;
begin begin
@ -386,7 +386,7 @@ begin
end; end;
procedure TBackRegFrm.OutBtnClick(Sender: TObject); procedure TBackRegForm.OutBtnClick(Sender: TObject);
var var
i: Integer; i: Integer;
begin begin
@ -405,7 +405,7 @@ begin
UpdateBtnStates; UpdateBtnStates;
end; end;
procedure TBackRegFrm.Reset; procedure TBackRegForm.Reset;
var var
i: integer; i: integer;
begin begin
@ -431,7 +431,7 @@ begin
end; end;
procedure TBackRegFrm.SelListDblClick(Sender: TObject); procedure TBackRegForm.SelListDblClick(Sender: TObject);
var var
index: Integer; index: Integer;
begin begin
@ -445,7 +445,7 @@ begin
end; end;
procedure TBackRegFrm.UpdateBtnStates; procedure TBackRegForm.UpdateBtnStates;
var var
lSelected: Boolean; lSelected: Boolean;
begin begin
@ -460,7 +460,7 @@ begin
end; end;
procedure TBackRegFrm.VarListDblClick(Sender: TObject); procedure TBackRegForm.VarListDblClick(Sender: TObject);
var var
index: Integer; index: Integer;
begin begin
@ -477,7 +477,7 @@ begin
end; end;
procedure TBackRegFrm.VarListSelectionChange(Sender: TObject; User: boolean); procedure TBackRegForm.VarListSelectionChange(Sender: TObject; User: boolean);
begin begin
UpdateBtnStates; UpdateBtnStates;
end; end;

2
applications/lazstats/source/forms/analysis/multiple_regression/stepfwdmrunit.lfm
View File

@ -1,4 +1,4 @@
object StepFwdFrm: TStepFwdFrm object StepFwdForm: TStepFwdForm
Left = 989 Left = 989
Height = 470 Height = 470
Top = 243 Top = 243

32
applications/lazstats/source/forms/analysis/multiple_regression/stepfwdmrunit.pas
View File

@ -11,9 +11,9 @@ uses
type type
{ TStepFwdFrm } { TStepFwdForm }
TStepFwdFrm = class(TForm) TStepFwdForm = class(TForm)
Bevel1: TBevel; Bevel1: TBevel;
Bevel2: TBevel; Bevel2: TBevel;
GroupBox2: TGroupBox; GroupBox2: TGroupBox;
@ -67,7 +67,7 @@ type
end; end;
var var
StepFwdFrm: TStepFwdFrm; StepFwdForm: TStepFwdForm;
implementation implementation
@ -75,9 +75,9 @@ uses
Math, Math,
Utils, MathUnit; Utils, MathUnit;
{ TStepFwdFrm } { TStepFwdForm }
procedure TStepFwdFrm.ResetBtnClick(Sender: TObject); procedure TStepFwdForm.ResetBtnClick(Sender: TObject);
var var
i: integer; i: integer;
begin begin
@ -101,7 +101,7 @@ begin
PredictChkBox.Checked := false; PredictChkBox.Checked := false;
end; end;
procedure TStepFwdFrm.FormActivate(Sender: TObject); procedure TStepFwdForm.FormActivate(Sender: TObject);
var var
w: Integer; w: Integer;
begin begin
@ -121,17 +121,17 @@ begin
FAutoSized := true; FAutoSized := true;
end; end;
procedure TStepFwdFrm.FormCreate(Sender: TObject); procedure TStepFwdForm.FormCreate(Sender: TObject);
begin begin
Assert(OS3MainFrm <> nil); Assert(OS3MainFrm <> nil);
end; end;
procedure TStepFwdFrm.FormShow(Sender: TObject); procedure TStepFwdForm.FormShow(Sender: TObject);
begin begin
ResetBtnClick(Self); ResetBtnClick(Self);
end; end;
procedure TStepFwdFrm.AllBtnClick(Sender: TObject); procedure TStepFwdForm.AllBtnClick(Sender: TObject);
var var
index: integer; index: integer;
begin begin
@ -141,7 +141,7 @@ begin
UpdateBtnStates; UpdateBtnStates;
end; end;
procedure TStepFwdFrm.ComputeBtnClick(Sender: TObject); procedure TStepFwdForm.ComputeBtnClick(Sender: TObject);
Label Label
lastone; lastone;
var var
@ -512,7 +512,7 @@ lastone:
end; end;
end; end;
procedure TStepFwdFrm.DepInBtnClick(Sender: TObject); procedure TStepFwdForm.DepInBtnClick(Sender: TObject);
var var
index: integer; index: integer;
begin begin
@ -525,7 +525,7 @@ begin
UpdateBtnStates; UpdateBtnStates;
end; end;
procedure TStepFwdFrm.DepOutBtnClick(Sender: TObject); procedure TStepFwdForm.DepOutBtnClick(Sender: TObject);
begin begin
if DepVar.Text <> '' then if DepVar.Text <> '' then
begin begin
@ -535,7 +535,7 @@ begin
UpdateBtnStates; UpdateBtnStates;
end; end;
procedure TStepFwdFrm.InBtnClick(Sender: TObject); procedure TStepFwdForm.InBtnClick(Sender: TObject);
var var
i: integer; i: integer;
begin begin
@ -554,12 +554,12 @@ begin
UpdateBtnStates; UpdateBtnStates;
end; end;
procedure TStepFwdFrm.SelListSelectionChange(Sender: TObject; User: boolean); procedure TStepFwdForm.SelListSelectionChange(Sender: TObject; User: boolean);
begin begin
UpdateBtnStates; UpdateBtnStates;
end; end;
procedure TStepFwdFrm.OutBtnClick(Sender: TObject); procedure TStepFwdForm.OutBtnClick(Sender: TObject);
var var
i: integer; i: integer;
begin begin
@ -578,7 +578,7 @@ begin
UpdateBtnStates; UpdateBtnStates;
end; end;
procedure TStepFwdFrm.UpdateBtnStates; procedure TStepFwdForm.UpdateBtnStates;
begin begin
DepInBtn.Enabled := (VarList.ItemIndex > -1) and (DepVar.Text = ''); DepInBtn.Enabled := (VarList.ItemIndex > -1) and (DepVar.Text = '');
DepOutBtn.Enabled := (DepVar.Text <> ''); DepOutBtn.Enabled := (DepVar.Text <> '');

2
applications/lazstats/source/forms/analysis/multiple_regression/wlsunit.lfm
View File

@ -1,4 +1,4 @@
inherited WLSFrm: TWLSFrm inherited WLSForm: TWLSForm
Left = 288 Left = 288
Height = 469 Height = 469
Top = 171 Top = 171

68
applications/lazstats/source/forms/analysis/multiple_regression/wlsunit.pas
View File

@ -12,9 +12,9 @@ uses
type type
{ TWLSFrm } { TWLSForm }
TWLSFrm = class(TBasicStatsParamsForm) TWLSForm = class(TBasicStatsParamsForm)
DepInBtn: TBitBtn; DepInBtn: TBitBtn;
DepOutBtn: TBitBtn; DepOutBtn: TBitBtn;
IndInBtn: TBitBtn; IndInBtn: TBitBtn;
@ -119,7 +119,7 @@ type
end; end;
var var
WLSFrm: TWLSFrm; WLSForm: TWLSForm;
implementation implementation
@ -134,9 +134,9 @@ uses
const const
CONF_LEVEL = DEFAULT_CONFIDENCE_LEVEL_PERCENT / 100.0; CONF_LEVEL = DEFAULT_CONFIDENCE_LEVEL_PERCENT / 100.0;
{ TWLSFrm } { TWLSForm }
constructor TWLSFrm.Create(AOwner: TComponent); constructor TWLSForm.Create(AOwner: TComponent);
begin begin
inherited; inherited;
if DictionaryFrm = nil then Application.CreateForm(TDictionaryFrm, DictionaryFrm); if DictionaryFrm = nil then Application.CreateForm(TDictionaryFrm, DictionaryFrm);
@ -179,7 +179,7 @@ end;
and writes the specified data to the grid (in the specified number format). and writes the specified data to the grid (in the specified number format).
Rows mentioned in ABadRows must be omitted because they are not contained in Rows mentioned in ABadRows must be omitted because they are not contained in
AData. } AData. }
procedure TWLSFrm.AddVariable(AVarName: String; AData: DblDyneVec; procedure TWLSForm.AddVariable(AVarName: String; AData: DblDyneVec;
ANumFormat: String; const ABadRows: IntDyneVec); ANumFormat: String; const ABadRows: IntDyneVec);
function IsBadRow(ARow: Integer): Boolean; function IsBadRow(ARow: Integer): Boolean;
@ -221,7 +221,7 @@ end;
{ Calculate predicted squared residuals and save recipricols to grid as weights } { Calculate predicted squared residuals and save recipricols to grid as weights }
procedure TWLSFrm.AddWeightsToGrid(const ASqrPredictedResiduals, AWeights: DblDyneVec; procedure TWLSForm.AddWeightsToGrid(const ASqrPredictedResiduals, AWeights: DblDyneVec;
const ABadRows: IntDyneVec); const ABadRows: IntDyneVec);
begin begin
// Create new variables and add to grid // Create new variables and add to grid
@ -231,7 +231,7 @@ end;
{ Calculate predicted values of the squared residuals, as well as the weights } { Calculate predicted values of the squared residuals, as well as the weights }
procedure TWLSFrm.CalcWeights(xValues: DblDyneMat; ACoeffs: DblDyneVec; procedure TWLSForm.CalcWeights(xValues: DblDyneMat; ACoeffs: DblDyneVec;
out ASquaredPredictedResiduals: DblDyneVec; out AWeights: DblDyneVec); out ASquaredPredictedResiduals: DblDyneVec; out AWeights: DblDyneVec);
var var
i, j, n, m: Integer; i, j, n, m: Integer;
@ -259,7 +259,7 @@ begin
end; end;
procedure TWLSFrm.AdjustConstraints; procedure TWLSForm.AdjustConstraints;
begin begin
ParamsPanel.Constraints.MinHeight := DepInBtn.Top + (IndOutBtn.Top - DepInBtn.Top)*2 + DepInBtn.Top + ParamsPanel.Constraints.MinHeight := DepInBtn.Top + (IndOutBtn.Top - DepInBtn.Top)*2 + DepInBtn.Top +
OptionsGroup.Height + ButtonBevel.Height + CloseBtn.BorderSpacing.Top + CloseBtn.Height; OptionsGroup.Height + ButtonBevel.Height + CloseBtn.BorderSpacing.Top + CloseBtn.Height;
@ -271,7 +271,7 @@ begin
end; end;
procedure TWLSFrm.Compute; procedure TWLSForm.Compute;
var var
indepCols: IntDyneVec = nil; indepCols: IntDyneVec = nil;
rowLabels: StrDyneVec = nil; rowLabels: StrDyneVec = nil;
@ -305,7 +305,7 @@ begin
end; end;
procedure TWLSFrm.CreateOrGetChartFrame(AColIndex: Integer; AVarName: String; procedure TWLSForm.CreateOrGetChartFrame(AColIndex: Integer; AVarName: String;
out AMemo: TMemo; out AChartFrame: TChartFrame); out AMemo: TMemo; out AChartFrame: TChartFrame);
var var
sheetTitle: String; sheetTitle: String;
@ -374,7 +374,7 @@ begin
end; end;
procedure TWLSFrm.DepInBtnClick(Sender: TObject); procedure TWLSForm.DepInBtnClick(Sender: TObject);
var var
index: integer; index: integer;
begin begin
@ -388,7 +388,7 @@ begin
end; end;
procedure TWLSFrm.DepOutBtnClick(Sender: TObject); procedure TWLSForm.DepOutBtnClick(Sender: TObject);
begin begin
if (DepVarEdit.Text <> '') then if (DepVarEdit.Text <> '') then
begin begin
@ -399,13 +399,13 @@ begin
end; end;
function TWLSFrm.GetPageCaption(AVarName: String): String; function TWLSForm.GetPageCaption(AVarName: String): String;
begin begin
Result := 'Plot of ' + AVarName; Result := 'Plot of ' + AVarName;
end; end;
procedure TWLSFrm.IndInBtnClick(Sender: TObject); procedure TWLSForm.IndInBtnClick(Sender: TObject);
var var
i: integer; i: integer;
begin begin
@ -423,7 +423,7 @@ begin
UpdateBtnStates; UpdateBtnStates;
end; end;
procedure TWLSFrm.IndOutBtnClick(Sender: TObject); procedure TWLSForm.IndOutBtnClick(Sender: TObject);
var var
i: integer; i: integer;
begin begin
@ -442,7 +442,7 @@ begin
end; end;
procedure TWLSFrm.IndVarListDblClick(Sender: TObject); procedure TWLSForm.IndVarListDblClick(Sender: TObject);
var var
index: Integer; index: Integer;
begin begin
@ -458,7 +458,7 @@ end;
{ We will plot the selected vector of the independent values vertically, { We will plot the selected vector of the independent values vertically,
and the dependent values horizontally. } and the dependent values horizontally. }
procedure TWLSFrm.PlotSquaredResiduals(AIndepCols: IntDyneVec; procedure TWLSForm.PlotSquaredResiduals(AIndepCols: IntDyneVec;
ADepCol: Integer; const AIndepValues: DblDyneMat; const ADepValues: DblDyneVec); ADepCol: Integer; const AIndepValues: DblDyneMat; const ADepValues: DblDyneVec);
var var
x, y: DblDyneVec; x, y: DblDyneVec;
@ -496,7 +496,7 @@ begin
end; end;
procedure TWLSFrm.PlotXY(AChartFrame: TChartFrame; const XPoints, YPoints: DblDyneVec; procedure TWLSForm.PlotXY(AChartFrame: TChartFrame; const XPoints, YPoints: DblDyneVec;
const ARegressionResults: TBivariateRegressionResults; const XLabel, YLabel: String); const ARegressionResults: TBivariateRegressionResults; const XLabel, YLabel: String);
var var
xpts: DblDyneVec = nil; xpts: DblDyneVec = nil;
@ -566,7 +566,7 @@ end;
residuals. It is assumed that the dependent variable is last in the residuals. It is assumed that the dependent variable is last in the
list of variable column pointers stored in the ColNoSelected vector. list of variable column pointers stored in the ColNoSelected vector.
Get the z predicted score and its residual } Get the z predicted score and its residual }
procedure TWLSFrm.Predict(const xData: DblDyneMat; const yData: DblDyneVec; procedure TWLSForm.Predict(const xData: DblDyneMat; const yData: DblDyneVec;
const ABadRows: IntDyneVec; ARegressionResults: TMultipleRegressionResults); const ABadRows: IntDyneVec; ARegressionResults: TMultipleRegressionResults);
var var
means, stddevs, variances: DblDyneVec; means, stddevs, variances: DblDyneVec;
@ -638,7 +638,7 @@ end;
in the colums specified by AIndepCols. A value is "invalid" when it in the colums specified by AIndepCols. A value is "invalid" when it
is filtered, numeric but empty, or contains the missing value code. is filtered, numeric but empty, or contains the missing value code.
} }
function TWLSFrm.PrepareData(out AIndepCols: IntDyneVec; out ADepCol: Integer; function TWLSForm.PrepareData(out AIndepCols: IntDyneVec; out ADepCol: Integer;
out AWeightCol: Integer; out ARowLabels: StrDyneVec; out AWeightCol: Integer; out ARowLabels: StrDyneVec;
out xValues: DblDyneMat; out yValues: DblDyneVec; out AWeights: DblDyneVec; out xValues: DblDyneMat; out yValues: DblDyneVec; out AWeights: DblDyneVec;
out ABadRows: IntDyneVec): Boolean; out ABadRows: IntDyneVec): Boolean;
@ -745,7 +745,7 @@ end;
{ Runs the ordinary least squares regression on the grid data } { Runs the ordinary least squares regression on the grid data }
function TWLSFrm.Process_OLSRegression(AIndepCols: IntDyneVec; function TWLSForm.Process_OLSRegression(AIndepCols: IntDyneVec;
ADepCol: Integer; const ARowLabels: StrDyneVec; ADepCol: Integer; const ARowLabels: StrDyneVec;
const xValues: DblDyneMat; const yValues: DblDyneVec; const xValues: DblDyneMat; const yValues: DblDyneVec;
const ABadRows: IntDyneVec): Boolean; const ABadRows: IntDyneVec): Boolean;
@ -783,7 +783,7 @@ begin
end; end;
function TWLSFrm.Process_SquaredResidualsRegression(AIndepCols: IntDyneVec; function TWLSForm.Process_SquaredResidualsRegression(AIndepCols: IntDyneVec;
const ARowLabels: StrDyneVec; const xValues: DblDyneMat; out AWeights: DblDyneVec; const ARowLabels: StrDyneVec; const xValues: DblDyneMat; out AWeights: DblDyneVec;
const ABadRows: IntDyneVec): Boolean; const ABadRows: IntDyneVec): Boolean;
var var
@ -840,7 +840,7 @@ begin
end; end;
function TWLSFrm.Process_WeightedRegression(AIndepCols: IntDyneVec; function TWLSForm.Process_WeightedRegression(AIndepCols: IntDyneVec;
const ARowLabels: StrDyneVec; const xValues: DblDyneMat; const ARowLabels: StrDyneVec; const xValues: DblDyneMat;
const yValues: DblDyneVec; const AWeights: DblDyneVec; SubtractMeans: Boolean): Boolean; const yValues: DblDyneVec; const AWeights: DblDyneVec; SubtractMeans: Boolean): Boolean;
var var
@ -893,7 +893,7 @@ begin
end; end;
function TWLSFrm.RegressionAndReport(const ARowLabels: StrDyneVec; function TWLSForm.RegressionAndReport(const ARowLabels: StrDyneVec;
const xValues: DblDyneMat; const yValues: DblDyneVec; const xValues: DblDyneMat; const yValues: DblDyneVec;
out ARegressionResults: TMultipleRegressionResults; AReport: TStrings): Boolean; out ARegressionResults: TMultipleRegressionResults; AReport: TStrings): Boolean;
var var
@ -922,7 +922,7 @@ begin
end; end;
procedure TWLSFrm.Reset; procedure TWLSForm.Reset;
var var
i: integer; i: integer;
begin begin
@ -952,7 +952,7 @@ begin
end; end;
procedure TWLSFrm.UpdateBtnStates; procedure TWLSForm.UpdateBtnStates;
var var
i: Integer; i: Integer;
lSelected: Boolean; lSelected: Boolean;
@ -991,7 +991,7 @@ begin
end; end;
procedure TWLSFrm.UserWeightsChkChange(Sender: TObject); procedure TWLSForm.UserWeightsChkChange(Sender: TObject);
begin begin
WeightVarEdit.Enabled := UserWeightsChk.Checked; WeightVarEdit.Enabled := UserWeightsChk.Checked;
Label4.Enabled := WeightVarEdit.Enabled; Label4.Enabled := WeightVarEdit.Enabled;
@ -1000,7 +1000,7 @@ begin
end; end;
function TWLSFrm.Validate(out AMsg: String; out AControl: TWinControl): Boolean; function TWLSForm.Validate(out AMsg: String; out AControl: TWinControl): Boolean;
begin begin
Result := false; Result := false;
@ -1022,7 +1022,7 @@ begin
end; end;
procedure TWLSFrm.VarListDblClick(Sender: TObject); procedure TWLSForm.VarListDblClick(Sender: TObject);
var var
index: Integer; index: Integer;
begin begin
@ -1039,13 +1039,13 @@ begin
end; end;
procedure TWLSFrm.VarListSelectionChange(Sender: TObject; User: boolean); procedure TWLSForm.VarListSelectionChange(Sender: TObject; User: boolean);
begin begin
UpdateBtnStates; UpdateBtnStates;
end; end;
procedure TWLSFrm.WeightInBtnClick(Sender: TObject); procedure TWLSForm.WeightInBtnClick(Sender: TObject);
var var
index: integer; index: integer;
begin begin
@ -1059,7 +1059,7 @@ begin
end; end;
procedure TWLSFrm.WeightOutBtnClick(Sender: TObject); procedure TWLSForm.WeightOutBtnClick(Sender: TObject);
begin begin
if (WeightVarEdit.Text <> '') then if (WeightVarEdit.Text <> '') then
begin begin
@ -1070,7 +1070,7 @@ begin
end; end;
procedure TWLSFrm.WriteDescriptiveReport(AMemo: TMemo; procedure TWLSForm.WriteDescriptiveReport(AMemo: TMemo;
const ARegressionResults: TBivariateRegressionResults; const ARegressionResults: TBivariateRegressionResults;
const XLabel, YLabel: String); const XLabel, YLabel: String);
var var

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

@ -2036,9 +2036,9 @@ end;
// Menu "Analysis" > "Multiple Regression" > "Backward Stepwise" // Menu "Analysis" > "Multiple Regression" > "Backward Stepwise"
procedure TOS3MainFrm.mnuAnalysisMultReg_BackwardClick(Sender: TObject); procedure TOS3MainFrm.mnuAnalysisMultReg_BackwardClick(Sender: TObject);
begin begin
if BackRegFrm = nil then if BackRegForm = nil then
Application.CreateForm(TBackRegFrm, BackRegFrm); Application.CreateForm(TBackRegForm, BackRegForm);
BackRegFrm.ShowModal; BackRegForm.Show;
end; end;
// Menu "Analysis" > "Multiple Regression" > "Best Combination" // Menu "Analysis" > "Multiple Regression" > "Best Combination"
@ -2075,9 +2075,9 @@ end;
// Menu "Analysis" > "Multiple Regression" > "Forward Stepwise" // Menu "Analysis" > "Multiple Regression" > "Forward Stepwise"
procedure TOS3MainFrm.mnuAnalysisMultReg_ForwardClick(Sender: TObject); procedure TOS3MainFrm.mnuAnalysisMultReg_ForwardClick(Sender: TObject);
begin begin
if StepFwdFrm = nil then if StepFwdForm = nil then
Application.CreateForm(TStepFwdFrm, StepFwdFrm); Application.CreateForm(TStepFwdForm, StepFwdForm);
StepFwdFrm.ShowModal; StepFwdForm.Show;
end; end;
// Menu "Analysis" > "Multiple Regression" > "Linear Programming" // Menu "Analysis" > "Multiple Regression" > "Linear Programming"
@ -2115,9 +2115,9 @@ end;
// Menu "Analysis" > "Multiple Regression" > "Weighted Least Squares Regression" // Menu "Analysis" > "Multiple Regression" > "Weighted Least Squares Regression"
procedure TOS3MainFrm.mnuAnalysisMultReg_WeightedClick(Sender: TObject); procedure TOS3MainFrm.mnuAnalysisMultReg_WeightedClick(Sender: TObject);
begin begin
if WLSFrm = nil then if WLSForm = nil then
Application.CreateForm(TWLSFrm, WLSFrm); Application.CreateForm(TWLSForm, WLSForm);
WLSFrm.Show; WLSForm.Show;
end; end;