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

LazStats: Simplify enabled arrows in some forms.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7361 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-04-07 17:02:02 +00:00
parent d58dee4816
commit 481f65a802
6 changed files with 18 additions and 112 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
applications/lazstats/source/forms/analysis/comparisons/bnestaunit.pas
View File

@ -78,7 +78,7 @@ var
implementation
uses
Math;
Math, Utils;
{ TBNestedAForm }
@ -574,17 +574,9 @@ end;
procedure TBNestedAForm.UpdateBtnStates;
var
i: Integer;
lSelected: Boolean;
begin
lSelected := false;
for i := 0 to VarList.Items.Count-1 do
if VarList.Selected[i] then
begin
lSelected := true;
break;
end;
lSelected := AnySelected(VarList);
AInBtn.Enabled := lSelected and (ACodes.Text = '');
BInBtn.Enabled := lSelected and (BCodes.Text = '');
DepInBtn.Enabled := lSelected and (DepEdit.Text = '');

25
applications/lazstats/source/forms/analysis/multiple_regression/bestregunit.pas
View File

@ -133,7 +133,7 @@ var
implementation
uses
Math;
Math, Utils;
{ TBestRegFrm }
@ -786,28 +786,9 @@ begin
end;
procedure TBestRegFrm.UpdateBtnStates;
var
i: Integer;
lSelected: Boolean;
begin
lSelected := false;
for i:=0 to VarList.Items.Count - 1 do
if VarList.Selected[i] then
begin
lSelected := true;
break;
end;
InBtn.Enabled := lSelected;
lSelected := false;
for i := 0 to BlockList.Items.Count-1 do
if BlockList.Selected[i] then
begin
lSelected := true;
break;
end;
OutBtn.Enabled := lSelected;
InBtn.Enabled := AnySelected(VarList);
OutBtn.Enabled := AnySelected(BlockList);
DepInBtn.Enabled := (VarList.ItemIndex > -1) and (DepVar.Text <= '');
DepOutBtn.Enabled := DepVar.Text <> '';
end;

21
applications/lazstats/source/forms/analysis/multiple_regression/lsmrunit.pas
View File

@ -69,7 +69,8 @@ var
implementation
uses
Math;
Math,
Utils;
procedure TLSMregForm.ResetBtnClick(Sender: TObject);
var
@ -413,27 +414,13 @@ end;
procedure TLSMregForm.UpdateBtnStates;
var
i: Integer;
lSelected: Boolean;
begin
lSelected := false;
for i := 0 to VarList.Items.Count-1 do
if VarList.Selected[i] then
begin
lSelected := true;
break;
end;
lSelected := AnySelected(VarList);
DepInBtn.Enabled := lSelected;
InBtn.Enabled := lSelected;
lSelected := false;
for i := 0 to IndepVars.Items.Count-1 do
if IndepVars.Selected[i] then
begin
lSelected := true;
break;
end;
OutBtn.Enabled := lSelected;
OutBtn.Enabled := AnySelected(IndepVars);
DepOutBtn.Enabled := DepVar.Text <> '';
AllBtn.Enabled := VarList.Items.Count > 0;
end;

25
applications/lazstats/source/forms/analysis/multiple_regression/simultregunit.pas
View File

@ -61,7 +61,7 @@ var
implementation
uses
Math;
Math, Utils;
{ TSimultFrm }
@ -427,28 +427,9 @@ begin
end;
procedure TSimultFrm.UpdateBtnStates;
var
i: Integer;
lSelected: Boolean;
begin
lSelected := false;
for i := 0 to VarList.Items.Count-1 do
if VarList.Selected[i] then
begin
lSelected := true;
break;
end;
InBtn.Enabled := lSelected;
lSelected := false;
for i := 0 to ListBox1.Items.Count-1 do
if ListBox1.Selected[i] then
begin
lSelected := true;
break;
end;
OutBtn.Enabled := lSelected;
InBtn.Enabled := AnySelected(VarList);
OutBtn.Enabled := AnySelected(ListBox1);
AllBtn.Enabled := VarList.Items.Count > 0;
end;

25
applications/lazstats/source/forms/analysis/nonparametric/cochranqunit.pas
View File

@ -50,7 +50,7 @@ var
implementation
uses
Math;
Math, Utils;
{ TCochranQFrm }
@ -233,28 +233,9 @@ begin
end;
procedure TCochranQFrm.UpdateBtnStates;
var
i: Integer;
lSelected: Boolean;
begin
lSelected := false;
for i:=0 to VarList.Items.Count-1 do
if VarList.Selected[i] then
begin
lSelected := true;
break;
end;
InBtn.Enabled := lSelected;
lSelected := false;
for i:=0 to SelList.Items.Count-1 do
if SelList.Selected[i] then
begin
lSelected := true;
break;
end;
OutBtn.Enabled := lSelected;
InBtn.Enabled := AnySelected(VarList);
OutBtn.Enabled := AnySelected(SelList);
AllBtn.Enabled := VarList.Items.Count > 0;
end;

22
applications/lazstats/source/forms/analysis/nonparametric/friedmanunit.pas
View File

@ -56,7 +56,7 @@ var
implementation
uses
Math;
Math, Utils;
{ TFriedmanFrm }
@ -401,29 +401,13 @@ end;
procedure TFriedmanFrm.UpdateBtnStates;
var
i: Integer;
lSelected: Boolean;
begin
lSelected := false;
for i:= 0 to VarList.Items.Count-1 do
if VarList.Selected[i] then
begin
lSelected := true;
break;
end;
lSelected := AnySelected(VarList);
GrpIn.Enabled := lSelected and (GrpVar.Text = '');
TrtIn.Enabled := lSelected;
GrpOut.Enabled := GrpVar.Text <> '';
lSelected := false;
for i := 0 to TreatVars.Items.Count-1 do
if TreatVars.Selected[i] then
begin
lSelected := true;
break;
end;
TrtOut.Enabled := lSelected;
TrtOut.Enabled := AnySelected(TreatVars)
end;