LazStats: Refactor AxSAnovaUnit. Remove duplicate procedures of AnovaTestUnit.

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

applications/lazstats/source/forms/analysis/comparisons/axsanovaunit.lfm

@@ -11,19 +11,22 @@ inherited AxSAnovaForm: TAxSAnovaForm
   inherited ParamsPanel: TPanel
     Height = 397
     ClientHeight = 397
-    TabOrder = 1
     inherited CloseBtn: TButton
       Top = 372
+      TabOrder = 11
     end
     inherited ComputeBtn: TButton
       Top = 372
+      TabOrder = 10
     end
     inherited ResetBtn: TButton
       Top = 372
+      TabOrder = 9
     end
     inherited HelpBtn: TButton
       Tag = 106
       Top = 372
+      TabOrder = 8
     end
     inherited ButtonBevel: TBevel
       Top = 356
@@ -55,7 +58,7 @@ inherited AxSAnovaForm: TAxSAnovaForm
       MultiSelect = True
       OnDblClick = VarListDblClick
       OnSelectionChange = VarListSelectionChange
-      TabOrder = 4
+      TabOrder = 0
     end
     object DepInBtn: TBitBtn[7]
       AnchorSideLeft.Control = ParamsPanel
@@ -69,7 +72,7 @@ inherited AxSAnovaForm: TAxSAnovaForm
       ImageIndex = 1
       OnClick = DepInBtnClick
       Spacing = 0
-      TabOrder = 5
+      TabOrder = 1
     end
     object DepOutBtn: TBitBtn[8]
       AnchorSideLeft.Control = ParamsPanel
@@ -85,7 +88,7 @@ inherited AxSAnovaForm: TAxSAnovaForm
       ImageIndex = 0
       OnClick = DepOutBtnClick
       Spacing = 0
-      TabOrder = 6
+      TabOrder = 3
     end
     object RepInBtn: TBitBtn[9]
       AnchorSideLeft.Control = ParamsPanel
@@ -101,7 +104,7 @@ inherited AxSAnovaForm: TAxSAnovaForm
       ImageIndex = 1
       OnClick = RepInBtnClick
       Spacing = 0
-      TabOrder = 7
+      TabOrder = 4
     end
     object RepOutBtn: TBitBtn[10]
       AnchorSideLeft.Control = ParamsPanel
@@ -117,7 +120,7 @@ inherited AxSAnovaForm: TAxSAnovaForm
       ImageIndex = 0
       OnClick = RepOutBtnClick
       Spacing = 0
-      TabOrder = 8
+      TabOrder = 5
     end
     object GroupBox1: TGroupBox[11]
       AnchorSideLeft.Control = ParamsPanel
@@ -138,27 +141,27 @@ inherited AxSAnovaForm: TAxSAnovaForm
       ChildSizing.ControlsPerLine = 2
       ClientHeight = 31
       ClientWidth = 278
-      TabOrder = 9
-      object PlotChk: TCheckBox
-        Left = 12
-        Height = 19
-        Top = 6
-        Width = 102
-        Caption = 'Plot Cell Means'
-        TabOrder = 0
-      end
+      TabOrder = 7
       object PosthocChk: TCheckBox
-        Left = 130
+        Left = 12
         Height = 19
         Top = 6
         Width = 136
         BorderSpacing.Left = 8
         Caption = 'Posthoc Comparisons'
+        TabOrder = 0
+      end
+      object PlotChk: TCheckBox
+        Left = 164
+        Height = 19
+        Top = 6
+        Width = 102
+        Caption = 'Plot Cell Means'
         TabOrder = 1
       end
     end
     object Label2: TLabel[12]
-      AnchorSideLeft.Control = GrpVar
+      AnchorSideLeft.Control = GrpVarEdit
       AnchorSideTop.Control = DepInBtn
       Left = 164
       Height = 15
@@ -177,7 +180,7 @@ inherited AxSAnovaForm: TAxSAnovaForm
       Caption = 'Repeated Measures'
       ParentColor = False
     end
-    object GrpVar: TEdit[14]
+    object GrpVarEdit: TEdit[14]
       AnchorSideLeft.Control = DepInBtn
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = Label2
@@ -190,10 +193,10 @@ inherited AxSAnovaForm: TAxSAnovaForm
       Width = 127
       Anchors = [akTop, akLeft, akRight]
       BorderSpacing.Left = 6
-      OnChange = GrpVarChange
+      OnChange = GrpVarEditChange
       ReadOnly = True
-      TabOrder = 10
-      Text = 'GrpVar'
+      TabOrder = 2
+      Text = 'GrpVarEdit'
     end
     object RepList: TListBox[15]
       AnchorSideLeft.Control = RepInBtn
@@ -214,7 +217,7 @@ inherited AxSAnovaForm: TAxSAnovaForm
       MultiSelect = True
       OnDblClick = RepListDblClick
       OnSelectionChange = VarListSelectionChange
-      TabOrder = 11
+      TabOrder = 6
     end
   end
   inherited ParamsSplitter: TSplitter
@@ -223,8 +226,8 @@ inherited AxSAnovaForm: TAxSAnovaForm
   inherited PageControl: TPageControl
     Height = 397
     Width = 457
-    ActivePage = PosthocPage
-    TabOrder = 0
+    ActivePage = ReportPage
+    TabIndex = 0
     inherited ReportPage: TTabSheet
       Caption = 'ANOVA Results'
     end