LazStats: Simplify enabled arrows in some forms.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7361 8e941d3f-bd1b-0410-a28a-d453659cc2b4

applications/lazstats/source/forms/analysis/comparisons/bnestaunit.pas

@@ -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;
+  lSelected := AnySelected(VarList);
-  for i := 0 to VarList.Items.Count-1 do
-    if VarList.Selected[i] then
-    begin
-      lSelected := true;
-      break;
-    end;
-
   AInBtn.Enabled := lSelected and (ACodes.Text = '');
   BInBtn.Enabled := lSelected and (BCodes.Text = '');
   DepInBtn.Enabled := lSelected and (DepEdit.Text = '');

applications/lazstats/source/forms/analysis/multiple_regression/bestregunit.pas

@@ -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;
+  InBtn.Enabled := AnySelected(VarList);
-  for i:=0 to VarList.Items.Count - 1 do
+  OutBtn.Enabled := AnySelected(BlockList);
-    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;
-
   DepInBtn.Enabled := (VarList.ItemIndex > -1) and (DepVar.Text <= '');
   DepOutBtn.Enabled := DepVar.Text <> '';
 end;

applications/lazstats/source/forms/analysis/multiple_regression/lsmrunit.pas

@@ -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;
+  lSelected := AnySelected(VarList);
-  for i := 0 to VarList.Items.Count-1 do
-    if VarList.Selected[i] then
-    begin
-      lSelected := true;
-      break;
-    end;
   DepInBtn.Enabled := lSelected;
   InBtn.Enabled := lSelected;
 
-  lSelected := false;
+  OutBtn.Enabled := AnySelected(IndepVars);
-  for i := 0 to IndepVars.Items.Count-1 do
-    if IndepVars.Selected[i] then
-    begin
-      lSelected := true;
-      break;
-    end;
-  OutBtn.Enabled := lSelected;
   DepOutBtn.Enabled := DepVar.Text <> '';
   AllBtn.Enabled := VarList.Items.Count > 0;
 end;

applications/lazstats/source/forms/analysis/multiple_regression/simultregunit.pas

@@ -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;
+  InBtn.Enabled := AnySelected(VarList);
-  for i := 0 to VarList.Items.Count-1 do
+  OutBtn.Enabled := AnySelected(ListBox1);
-    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;
-
   AllBtn.Enabled := VarList.Items.Count > 0;
 end;
 

applications/lazstats/source/forms/analysis/nonparametric/cochranqunit.pas

@@ -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;
+  InBtn.Enabled := AnySelected(VarList);
-  for i:=0 to VarList.Items.Count-1 do
+  OutBtn.Enabled := AnySelected(SelList);
-    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;
-
   AllBtn.Enabled := VarList.Items.Count > 0;
 end;
 

applications/lazstats/source/forms/analysis/nonparametric/friedmanunit.pas

@@ -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;
+  lSelected := AnySelected(VarList);
-  for i:= 0 to VarList.Items.Count-1 do
-    if VarList.Selected[i] then
-    begin
-      lSelected := true;
-      break;
-    end;
   GrpIn.Enabled := lSelected and (GrpVar.Text = '');
   TrtIn.Enabled := lSelected;
-
   GrpOut.Enabled := GrpVar.Text <> '';
-
+  TrtOut.Enabled := AnySelected(TreatVars)
-  lSelected := false;
-  for i := 0 to TreatVars.Items.Count-1 do
-    if TreatVars.Selected[i] then
-    begin
-      lSelected := true;
-      break;
-    end;
-  TrtOut.Enabled := lSelected;
 end;