LazStats: Inherit KendallTauUnit from TBasicStatsReportForm. Fix tab order in recently modified forms.

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

applications/lazstats/source/LazStats.lpi

@@ -793,7 +793,7 @@
       <Unit86>
         <Filename Value="forms\analysis\nonparametric\kendalltauunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <ComponentName Value="KendallTauFrm"/>
+        <ComponentName Value="KendallTauForm"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="KendallTauUnit"/>

applications/lazstats/source/forms/analysis/nonparametric/kendalltauunit.lfm

@@ -1,331 +1,277 @@
-object KendallTauFrm: TKendallTauFrm
+inherited KendallTauForm: TKendallTauForm
   Left = 719
-  Height = 379
+  Height = 361
   Top = 350
-  Width = 396
+  Width = 415
   HelpType = htKeyword
   HelpKeyword = 'html/KendallsTauandPartialTau.htm'
-  AutoSize = True
   Caption = 'Kendall Rank Correlation Tau and Partial Tau'
-  ClientHeight = 379
+  ClientHeight = 361
-  ClientWidth = 396
+  ClientWidth = 415
-  OnActivate = FormActivate
+  inherited ParamsPanel: TPanel
-  OnCreate = FormCreate
+    Height = 345
-  OnShow = FormShow
+    ClientHeight = 345
-  Position = poMainFormCenter
+    inherited CloseBtn: TButton
-  LCLVersion = '2.1.0.0'
+      Top = 320
-  object Label1: TLabel
+      TabOrder = 14
-    AnchorSideLeft.Control = Owner
+    end
-    AnchorSideTop.Control = Owner
+    inherited ComputeBtn: TButton
-    Left = 8
+      Top = 320
-    Height = 15
+      TabOrder = 13
-    Top = 8
+    end
-    Width = 97
+    inherited ResetBtn: TButton
-    BorderSpacing.Left = 8
+      Top = 320
-    BorderSpacing.Top = 8
+      TabOrder = 12
-    Caption = 'Variables Available'
+    end
-    ParentColor = False
+    inherited HelpBtn: TButton
-  end
+      Top = 320
-  object Label2: TLabel
+      TabOrder = 11
-    AnchorSideLeft.Control = XEdit
+    end
-    AnchorSideBottom.Control = XEdit
+    inherited ButtonBevel: TBevel
-    Left = 220
+      Top = 304
-    Height = 15
+    end
-    Top = 33
+    object Label1: TLabel[5]
-    Width = 51
+      AnchorSideLeft.Control = ParamsPanel
-    Anchors = [akLeft, akBottom]
+      AnchorSideTop.Control = ParamsPanel
-    BorderSpacing.Bottom = 2
+      Left = 0
-    Caption = 'X Variable'
+      Height = 15
-    ParentColor = False
-  end
-  object Label3: TLabel
-    AnchorSideLeft.Control = YEdit
-    AnchorSideBottom.Control = YEdit
-    Left = 220
-    Height = 15
-    Top = 117
-    Width = 51
-    Anchors = [akLeft, akBottom]
-    BorderSpacing.Bottom = 2
-    Caption = 'Y Variable'
-    ParentColor = False
-  end
-  object Label4: TLabel
-    AnchorSideLeft.Control = ZEdit
-    AnchorSideBottom.Control = ZEdit
-    Left = 220
-    Height = 15
-    Top = 201
-    Width = 51
-    Anchors = [akLeft, akBottom]
-    BorderSpacing.Bottom = 2
-    Caption = 'Z Variable'
-    ParentColor = False
-  end
-  object VarList: TListBox
-    AnchorSideLeft.Control = Owner
-    AnchorSideTop.Control = Label1
-    AnchorSideTop.Side = asrBottom
-    AnchorSideRight.Control = XIn
-    AnchorSideBottom.Control = Bevel1
-    Left = 8
-    Height = 303
-    Top = 25
-    Width = 168
-    Anchors = [akTop, akLeft, akRight, akBottom]
-    BorderSpacing.Left = 8
-    BorderSpacing.Top = 2
-    BorderSpacing.Right = 8
-    ItemHeight = 0
-    OnSelectionChange = VarListSelectionChange
-    TabOrder = 0
-  end
-  object XIn: TBitBtn
-    AnchorSideLeft.Control = Owner
-    AnchorSideLeft.Side = asrCenter
-    AnchorSideTop.Control = VarList
-    Left = 184
-    Height = 28
-    Top = 25
-    Width = 28
-    Images = MainDataModule.ImageList
-    ImageIndex = 1
-    OnClick = XInClick
-    Spacing = 0
-    TabOrder = 1
-  end
-  object XOut: TBitBtn
-    AnchorSideLeft.Control = Owner
-    AnchorSideLeft.Side = asrCenter
-    AnchorSideTop.Control = XIn
-    AnchorSideTop.Side = asrBottom
-    Left = 184
-    Height = 28
-    Top = 57
-    Width = 28
-    BorderSpacing.Top = 4
-    Images = MainDataModule.ImageList
-    ImageIndex = 0
-    OnClick = XOutClick
-    Spacing = 0
-    TabOrder = 2
-  end
-  object YIn: TBitBtn
-    AnchorSideLeft.Control = Owner
-    AnchorSideLeft.Side = asrCenter
-    AnchorSideTop.Control = XOut
-    AnchorSideTop.Side = asrBottom
-    Left = 184
-    Height = 28
-    Top = 109
-    Width = 28
-    BorderSpacing.Top = 24
-    Images = MainDataModule.ImageList
-    ImageIndex = 1
-    OnClick = YInClick
-    Spacing = 0
-    TabOrder = 4
-  end
-  object YOut: TBitBtn
-    AnchorSideLeft.Control = Owner
-    AnchorSideLeft.Side = asrCenter
-    AnchorSideTop.Control = YIn
-    AnchorSideTop.Side = asrBottom
-    Left = 184
-    Height = 28
-    Top = 141
-    Width = 28
-    BorderSpacing.Top = 4
-    Images = MainDataModule.ImageList
-    ImageIndex = 0
-    OnClick = YOutClick
-    Spacing = 0
-    TabOrder = 5
-  end
-  object ZIn: TBitBtn
-    AnchorSideLeft.Control = Owner
-    AnchorSideLeft.Side = asrCenter
-    AnchorSideTop.Control = YOut
-    AnchorSideTop.Side = asrBottom
-    Left = 184
-    Height = 28
-    Top = 193
-    Width = 28
-    BorderSpacing.Top = 24
-    Images = MainDataModule.ImageList
-    ImageIndex = 1
-    OnClick = ZInClick
-    Spacing = 0
-    TabOrder = 7
-  end
-  object ZOut: TBitBtn
-    AnchorSideLeft.Control = Owner
-    AnchorSideLeft.Side = asrCenter
-    AnchorSideTop.Control = ZIn
-    AnchorSideTop.Side = asrBottom
-    Left = 184
-    Height = 28
-    Top = 225
-    Width = 28
-    BorderSpacing.Top = 4
-    Images = MainDataModule.ImageList
-    ImageIndex = 0
-    OnClick = ZOutClick
-    Spacing = 0
-    TabOrder = 8
-  end
-  object XEdit: TEdit
-    AnchorSideLeft.Control = XIn
-    AnchorSideLeft.Side = asrBottom
-    AnchorSideRight.Control = Owner
-    AnchorSideRight.Side = asrBottom
-    AnchorSideBottom.Control = XOut
-    AnchorSideBottom.Side = asrBottom
-    Left = 220
-    Height = 23
-    Top = 50
-    Width = 168
-    Anchors = [akLeft, akRight, akBottom]
-    BorderSpacing.Left = 8
-    BorderSpacing.Right = 8
-    BorderSpacing.Bottom = 12
-    ReadOnly = True
-    TabOrder = 3
-    Text = 'XEdit'
-  end
-  object YEdit: TEdit
-    AnchorSideLeft.Control = YIn
-    AnchorSideLeft.Side = asrBottom
-    AnchorSideRight.Control = Owner
-    AnchorSideRight.Side = asrBottom
-    AnchorSideBottom.Control = YOut
-    AnchorSideBottom.Side = asrBottom
-    Left = 220
-    Height = 23
-    Top = 134
-    Width = 168
-    Anchors = [akLeft, akRight, akBottom]
-    BorderSpacing.Left = 8
-    BorderSpacing.Right = 8
-    BorderSpacing.Bottom = 12
-    ReadOnly = True
-    TabOrder = 6
-    Text = 'Edit1'
-  end
-  object ZEdit: TEdit
-    AnchorSideLeft.Control = ZIn
-    AnchorSideLeft.Side = asrBottom
-    AnchorSideRight.Control = Owner
-    AnchorSideRight.Side = asrBottom
-    AnchorSideBottom.Control = ZOut
-    AnchorSideBottom.Side = asrBottom
-    Left = 220
-    Height = 23
-    Top = 218
-    Width = 168
-    Anchors = [akLeft, akRight, akBottom]
-    BorderSpacing.Left = 8
-    BorderSpacing.Right = 8
-    BorderSpacing.Bottom = 12
-    ReadOnly = True
-    TabOrder = 9
-    Text = 'Edit1'
-  end
-  object OptionsGroup: TGroupBox
-    AnchorSideLeft.Control = XEdit
-    AnchorSideTop.Control = ZOut
-    AnchorSideTop.Side = asrBottom
-    AnchorSideBottom.Control = Bevel1
-    Left = 222
-    Height = 45
-    Top = 277
-    Width = 150
-    AutoSize = True
-    BorderSpacing.Left = 2
-    BorderSpacing.Top = 24
-    BorderSpacing.Bottom = 8
-    Caption = 'Options:'
-    ClientHeight = 25
-    ClientWidth = 146
-    TabOrder = 10
-    object RanksChk: TCheckBox
-      Left = 12
-      Height = 19
       Top = 0
-      Width = 128
+      Width = 97
-      BorderSpacing.Left = 12
+      Caption = 'Available Variables'
+      ParentColor = False
+    end
+    object Label2: TLabel[6]
+      AnchorSideLeft.Control = XEdit
+      AnchorSideBottom.Control = XEdit
+      Left = 164
+      Height = 15
+      Top = 21
+      Width = 51
+      Anchors = [akLeft, akBottom]
+      BorderSpacing.Bottom = 2
+      Caption = 'X Variable'
+      ParentColor = False
+    end
+    object Label3: TLabel[7]
+      AnchorSideLeft.Control = YEdit
+      AnchorSideBottom.Control = YEdit
+      Left = 164
+      Height = 15
+      Top = 101
+      Width = 51
+      Anchors = [akLeft, akBottom]
+      BorderSpacing.Bottom = 2
+      Caption = 'Y Variable'
+      ParentColor = False
+    end
+    object Label4: TLabel[8]
+      AnchorSideLeft.Control = ZEdit
+      AnchorSideBottom.Control = ZEdit
+      Left = 164
+      Height = 15
+      Top = 181
+      Width = 51
+      Anchors = [akLeft, akBottom]
+      BorderSpacing.Bottom = 2
+      Caption = 'Z Variable'
+      ParentColor = False
+    end
+    object VarList: TListBox[9]
+      AnchorSideLeft.Control = ParamsPanel
+      AnchorSideTop.Control = Label1
+      AnchorSideTop.Side = asrBottom
+      AnchorSideRight.Control = XIn
+      AnchorSideBottom.Control = ButtonBevel
+      Left = 0
+      Height = 287
+      Top = 17
+      Width = 126
+      Anchors = [akTop, akLeft, akRight, akBottom]
+      BorderSpacing.Top = 2
       BorderSpacing.Right = 6
-      BorderSpacing.Bottom = 6
+      ItemHeight = 0
-      Caption = 'Show Ranked Scores'
+      OnDblClick = VarListDblClick
+      OnSelectionChange = VarListSelectionChange
       TabOrder = 0
     end
+    object XIn: TBitBtn[10]
+      AnchorSideLeft.Control = ParamsPanel
+      AnchorSideLeft.Side = asrCenter
+      AnchorSideTop.Control = VarList
+      Left = 132
+      Height = 26
+      Top = 17
+      Width = 26
+      Images = MainDataModule.ImageList
+      ImageIndex = 1
+      OnClick = XInClick
+      Spacing = 0
+      TabOrder = 1
+    end
+    object XOut: TBitBtn[11]
+      AnchorSideLeft.Control = ParamsPanel
+      AnchorSideLeft.Side = asrCenter
+      AnchorSideTop.Control = XIn
+      AnchorSideTop.Side = asrBottom
+      Left = 132
+      Height = 26
+      Top = 47
+      Width = 26
+      BorderSpacing.Top = 4
+      Images = MainDataModule.ImageList
+      ImageIndex = 0
+      OnClick = XOutClick
+      Spacing = 0
+      TabOrder = 2
+    end
+    object YIn: TBitBtn[12]
+      AnchorSideLeft.Control = ParamsPanel
+      AnchorSideLeft.Side = asrCenter
+      AnchorSideTop.Control = XOut
+      AnchorSideTop.Side = asrBottom
+      Left = 132
+      Height = 26
+      Top = 97
+      Width = 26
+      BorderSpacing.Top = 24
+      Images = MainDataModule.ImageList
+      ImageIndex = 1
+      OnClick = YInClick
+      Spacing = 0
+      TabOrder = 4
+    end
+    object YOut: TBitBtn[13]
+      AnchorSideLeft.Control = ParamsPanel
+      AnchorSideLeft.Side = asrCenter
+      AnchorSideTop.Control = YIn
+      AnchorSideTop.Side = asrBottom
+      Left = 132
+      Height = 26
+      Top = 127
+      Width = 26
+      BorderSpacing.Top = 4
+      Images = MainDataModule.ImageList
+      ImageIndex = 0
+      OnClick = YOutClick
+      Spacing = 0
+      TabOrder = 5
+    end
+    object ZIn: TBitBtn[14]
+      AnchorSideLeft.Control = ParamsPanel
+      AnchorSideLeft.Side = asrCenter
+      AnchorSideTop.Control = YOut
+      AnchorSideTop.Side = asrBottom
+      Left = 132
+      Height = 26
+      Top = 177
+      Width = 26
+      BorderSpacing.Top = 24
+      Images = MainDataModule.ImageList
+      ImageIndex = 1
+      OnClick = ZInClick
+      Spacing = 0
+      TabOrder = 7
+    end
+    object ZOut: TBitBtn[15]
+      AnchorSideLeft.Control = ParamsPanel
+      AnchorSideLeft.Side = asrCenter
+      AnchorSideTop.Control = ZIn
+      AnchorSideTop.Side = asrBottom
+      Left = 132
+      Height = 26
+      Top = 207
+      Width = 26
+      BorderSpacing.Top = 4
+      Images = MainDataModule.ImageList
+      ImageIndex = 0
+      OnClick = ZOutClick
+      Spacing = 0
+      TabOrder = 8
+    end
+    object XEdit: TEdit[16]
+      AnchorSideLeft.Control = XIn
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideRight.Control = ParamsPanel
+      AnchorSideRight.Side = asrBottom
+      AnchorSideBottom.Control = XOut
+      AnchorSideBottom.Side = asrBottom
+      Left = 164
+      Height = 23
+      Top = 38
+      Width = 127
+      Anchors = [akLeft, akRight, akBottom]
+      BorderSpacing.Left = 6
+      BorderSpacing.Bottom = 12
+      ReadOnly = True
+      TabOrder = 3
+      Text = 'XEdit'
+    end
+    object YEdit: TEdit[17]
+      AnchorSideLeft.Control = YIn
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideRight.Control = ParamsPanel
+      AnchorSideRight.Side = asrBottom
+      AnchorSideBottom.Control = YOut
+      AnchorSideBottom.Side = asrBottom
+      Left = 164
+      Height = 23
+      Top = 118
+      Width = 127
+      Anchors = [akLeft, akRight, akBottom]
+      BorderSpacing.Left = 6
+      BorderSpacing.Bottom = 12
+      ReadOnly = True
+      TabOrder = 6
+      Text = 'YEdit'
+    end
+    object ZEdit: TEdit[18]
+      AnchorSideLeft.Control = ZIn
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideRight.Control = ParamsPanel
+      AnchorSideRight.Side = asrBottom
+      AnchorSideBottom.Control = ZOut
+      AnchorSideBottom.Side = asrBottom
+      Left = 164
+      Height = 23
+      Top = 198
+      Width = 127
+      Anchors = [akLeft, akRight, akBottom]
+      BorderSpacing.Left = 6
+      BorderSpacing.Bottom = 12
+      ReadOnly = True
+      TabOrder = 9
+      Text = 'ZEdit'
+    end
+    object OptionsGroup: TGroupBox[19]
+      AnchorSideLeft.Control = ZOut
+      AnchorSideTop.Control = ZOut
+      AnchorSideTop.Side = asrBottom
+      Left = 134
+      Height = 45
+      Top = 257
+      Width = 150
+      AutoSize = True
+      BorderSpacing.Left = 2
+      BorderSpacing.Top = 24
+      BorderSpacing.Bottom = 8
+      Caption = 'Options:'
+      ClientHeight = 25
+      ClientWidth = 146
+      TabOrder = 10
+      object RanksChk: TCheckBox
+        Left = 12
+        Height = 19
+        Top = 0
+        Width = 128
+        BorderSpacing.Left = 12
+        BorderSpacing.Right = 6
+        BorderSpacing.Bottom = 6
+        Caption = 'Show Ranked Scores'
+        TabOrder = 0
+      end
+    end
   end
-  object ResetBtn: TButton
+  inherited ParamsSplitter: TSplitter
-    AnchorSideRight.Control = ComputeBtn
+    Height = 361
-    AnchorSideBottom.Control = Owner
-    AnchorSideBottom.Side = asrBottom
-    Left = 187
-    Height = 25
-    Top = 346
-    Width = 54
-    Anchors = [akRight, akBottom]
-    AutoSize = True
-    BorderSpacing.Left = 32
-    BorderSpacing.Top = 8
-    BorderSpacing.Right = 8
-    BorderSpacing.Bottom = 8
-    Caption = 'Reset'
-    OnClick = ResetBtnClick
-    TabOrder = 11
-  end
-  object ComputeBtn: TButton
-    AnchorSideRight.Control = CloseBtn
-    AnchorSideBottom.Control = Owner
-    AnchorSideBottom.Side = asrBottom
-    Left = 249
-    Height = 25
-    Top = 346
-    Width = 76
-    Anchors = [akRight, akBottom]
-    AutoSize = True
-    BorderSpacing.Left = 8
-    BorderSpacing.Top = 8
-    BorderSpacing.Right = 8
-    BorderSpacing.Bottom = 8
-    Caption = 'Compute'
-    OnClick = ComputeBtnClick
-    TabOrder = 12
-  end
-  object CloseBtn: TButton
-    AnchorSideRight.Control = Owner
-    AnchorSideRight.Side = asrBottom
-    AnchorSideBottom.Control = Owner
-    AnchorSideBottom.Side = asrBottom
-    Left = 333
-    Height = 25
-    Top = 346
-    Width = 55
-    Anchors = [akRight, akBottom]
-    AutoSize = True
-    BorderSpacing.Left = 8
-    BorderSpacing.Top = 8
-    BorderSpacing.Right = 8
-    BorderSpacing.Bottom = 8
-    Caption = 'Close'
-    ModalResult = 11
-    TabOrder = 13
-  end
-  object Bevel1: TBevel
-    AnchorSideLeft.Control = Owner
-    AnchorSideRight.Control = Owner
-    AnchorSideRight.Side = asrBottom
-    AnchorSideBottom.Control = CloseBtn
-    Left = 0
-    Height = 8
-    Top = 330
-    Width = 396
-    Anchors = [akLeft, akRight, akBottom]
-    BorderSpacing.Top = 2
-    Shape = bsBottomLine
   end
 end

applications/lazstats/source/forms/analysis/nonparametric/signtestunit.lfm

@@ -11,15 +11,19 @@ inherited SignTestFrm: TSignTestFrm
     ClientHeight = 329
     inherited CloseBtn: TButton
       Top = 304
+      TabOrder = 10
     end
     inherited ComputeBtn: TButton
       Top = 304
+      TabOrder = 9
     end
     inherited ResetBtn: TButton
       Top = 304
+      TabOrder = 8
     end
     inherited HelpBtn: TButton
       Top = 304
+      TabOrder = 7
     end
     inherited ButtonBevel: TBevel
       Top = 288
@@ -74,7 +78,7 @@ inherited SignTestFrm: TSignTestFrm
       ItemHeight = 0
       OnDblClick = VarListDblClick
       OnSelectionChange = VarListSelectionChange
-      TabOrder = 4
+      TabOrder = 0
     end
     object Var1In: TBitBtn[9]
       AnchorSideLeft.Control = ParamsPanel
@@ -88,7 +92,7 @@ inherited SignTestFrm: TSignTestFrm
       ImageIndex = 1
       OnClick = Var1InClick
       Spacing = 0
-      TabOrder = 5
+      TabOrder = 1
     end
     object Var1Out: TBitBtn[10]
       AnchorSideLeft.Control = ParamsPanel
@@ -104,7 +108,7 @@ inherited SignTestFrm: TSignTestFrm
       ImageIndex = 0
       OnClick = Var1OutClick
       Spacing = 0
-      TabOrder = 6
+      TabOrder = 2
     end
     object Var2In: TBitBtn[11]
       AnchorSideLeft.Control = ParamsPanel
@@ -120,7 +124,7 @@ inherited SignTestFrm: TSignTestFrm
       ImageIndex = 1
       OnClick = Var2InClick
       Spacing = 0
-      TabOrder = 7
+      TabOrder = 4
     end
     object Var2Out: TBitBtn[12]
       AnchorSideLeft.Control = ParamsPanel
@@ -136,7 +140,7 @@ inherited SignTestFrm: TSignTestFrm
       ImageIndex = 0
       OnClick = Var2OutClick
       Spacing = 0
-      TabOrder = 8
+      TabOrder = 5
     end
     object Var1Edit: TEdit[13]
       AnchorSideLeft.Control = Var1In
@@ -153,7 +157,7 @@ inherited SignTestFrm: TSignTestFrm
       BorderSpacing.Left = 8
       BorderSpacing.Bottom = 12
       ReadOnly = True
-      TabOrder = 9
+      TabOrder = 3
       Text = 'Var1Edit'
     end
     object Var2Edit: TEdit[14]
@@ -171,7 +175,7 @@ inherited SignTestFrm: TSignTestFrm
       BorderSpacing.Left = 8
       BorderSpacing.Bottom = 12
       ReadOnly = True
-      TabOrder = 10
+      TabOrder = 6
       Text = 'Var2Edit'
     end
   end

applications/lazstats/source/forms/analysis/nonparametric/spearmanunit.lfm

@@ -13,15 +13,19 @@ inherited SpearmanForm: TSpearmanForm
     ClientHeight = 331
     inherited CloseBtn: TButton
       Top = 306
+      TabOrder = 10
     end
     inherited ComputeBtn: TButton
       Top = 306
+      TabOrder = 9
     end
     inherited ResetBtn: TButton
       Top = 306
+      TabOrder = 8
     end
     inherited HelpBtn: TButton
       Top = 306
+      TabOrder = 7
     end
     inherited ButtonBevel: TBevel
       Top = 290
@@ -78,7 +82,7 @@ inherited SpearmanForm: TSpearmanForm
       ItemHeight = 0
       OnDblClick = VarListDblClick
       OnSelectionChange = VarListSelectionChange
-      TabOrder = 4
+      TabOrder = 0
     end
     object XIn: TBitBtn[9]
       AnchorSideLeft.Control = ParamsPanel
@@ -92,7 +96,7 @@ inherited SpearmanForm: TSpearmanForm
       ImageIndex = 1
       OnClick = XInClick
       Spacing = 0
-      TabOrder = 5
+      TabOrder = 1
     end
     object XOut: TBitBtn[10]
       AnchorSideLeft.Control = ParamsPanel
@@ -108,7 +112,7 @@ inherited SpearmanForm: TSpearmanForm
       ImageIndex = 0
       OnClick = XOutClick
       Spacing = 0
-      TabOrder = 6
+      TabOrder = 2
     end
     object YIn: TBitBtn[11]
       AnchorSideLeft.Control = ParamsPanel
@@ -124,7 +128,7 @@ inherited SpearmanForm: TSpearmanForm
       ImageIndex = 1
       OnClick = YInClick
       Spacing = 0
-      TabOrder = 7
+      TabOrder = 4
     end
     object YOut: TBitBtn[12]
       AnchorSideLeft.Control = ParamsPanel
@@ -140,7 +144,7 @@ inherited SpearmanForm: TSpearmanForm
       ImageIndex = 0
       OnClick = YOutClick
       Spacing = 0
-      TabOrder = 8
+      TabOrder = 5
     end
     object XEdit: TEdit[13]
       AnchorSideLeft.Control = XIn
@@ -157,7 +161,7 @@ inherited SpearmanForm: TSpearmanForm
       BorderSpacing.Left = 8
       BorderSpacing.Bottom = 12
       ReadOnly = True
-      TabOrder = 9
+      TabOrder = 3
       Text = 'XEdit'
     end
     object YEdit: TEdit[14]
@@ -175,7 +179,7 @@ inherited SpearmanForm: TSpearmanForm
       BorderSpacing.Left = 8
       BorderSpacing.Bottom = 12
       ReadOnly = True
-      TabOrder = 10
+      TabOrder = 6
       Text = 'YEdit'
     end
   end

applications/lazstats/source/forms/analysis/nonparametric/wilcoxonunit.lfm

@@ -13,15 +13,19 @@ inherited WilcoxonForm: TWilcoxonForm
     ClientHeight = 278
     inherited CloseBtn: TButton
       Top = 253
+      TabOrder = 10
     end
     inherited ComputeBtn: TButton
       Top = 253
+      TabOrder = 9
     end
     inherited ResetBtn: TButton
       Top = 253
+      TabOrder = 8
     end
     inherited HelpBtn: TButton
       Top = 253
+      TabOrder = 7
     end
     inherited ButtonBevel: TBevel
       Top = 237
@@ -76,7 +80,7 @@ inherited WilcoxonForm: TWilcoxonForm
       ItemHeight = 0
       OnDblClick = VarListDblClick
       OnSelectionChange = VarListSelectionChange
-      TabOrder = 4
+      TabOrder = 0
     end
     object Var1In: TBitBtn[9]
       AnchorSideLeft.Control = ParamsPanel
@@ -90,7 +94,7 @@ inherited WilcoxonForm: TWilcoxonForm
       ImageIndex = 1
       OnClick = Var1InClick
       Spacing = 0
-      TabOrder = 5
+      TabOrder = 1
     end
     object Var1Out: TBitBtn[10]
       AnchorSideLeft.Control = ParamsPanel
@@ -106,7 +110,7 @@ inherited WilcoxonForm: TWilcoxonForm
       ImageIndex = 0
       OnClick = Var1OutClick
       Spacing = 0
-      TabOrder = 6
+      TabOrder = 2
     end
     object Var2In: TBitBtn[11]
       AnchorSideLeft.Control = ParamsPanel
@@ -122,7 +126,7 @@ inherited WilcoxonForm: TWilcoxonForm
       ImageIndex = 1
       OnClick = Var2InClick
       Spacing = 0
-      TabOrder = 7
+      TabOrder = 4
     end
     object Var2Out: TBitBtn[12]
       AnchorSideLeft.Control = ParamsPanel
@@ -138,7 +142,7 @@ inherited WilcoxonForm: TWilcoxonForm
       ImageIndex = 0
       OnClick = Var2OutClick
       Spacing = 0
-      TabOrder = 8
+      TabOrder = 5
     end
     object Var1Edit: TEdit[13]
       AnchorSideLeft.Control = Var1In
@@ -156,7 +160,7 @@ inherited WilcoxonForm: TWilcoxonForm
       BorderSpacing.Left = 8
       BorderSpacing.Bottom = 12
       ReadOnly = True
-      TabOrder = 9
+      TabOrder = 3
       Text = 'Var1Edit'
     end
     object Var2Edit: TEdit[14]
@@ -174,7 +178,7 @@ inherited WilcoxonForm: TWilcoxonForm
       BorderSpacing.Left = 8
       BorderSpacing.Bottom = 12
       ReadOnly = True
-      TabOrder = 10
+      TabOrder = 6
       Text = 'Var2Edit'
     end
   end

applications/lazstats/source/forms/mainunit.pas

@@ -1904,9 +1904,9 @@ end;
 // Menu "Analysis" > "Nonparametric" > Kendall's Tau and Partial Tau"
 procedure TOS3MainFrm.mnuAnalysisNonPar_TauClick(Sender: TObject);
 begin
-  if KendallTauFrm = nil then
+  if KendallTauForm = nil then
-    Application.CreateForm(TKendallTauFrm, KendallTauFrm);
+    Application.CreateForm(TKendallTauForm, KendallTauForm);
-  KendallTauFrm.ShowModal;
+  KendallTauForm.Show;
 end;
 
 // Menu "Analysis" > "Nonparametric" > "Kaplan-Meier Survival Analysis"