From 2af62f166761a172829a216f0415b9bbcba06c10 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 16 Dec 2020 23:09:17 +0000
Subject: [PATCH] LazStats: Fix tab order.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7933 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../analysis/correlation/autocorunit.lfm      |  4 +-
 .../analysis/correlation/smoothingunit.lfm    | 78 ++++++++++---------
 2 files changed, 43 insertions(+), 39 deletions(-)

diff --git a/applications/lazstats/source/forms/analysis/correlation/autocorunit.lfm b/applications/lazstats/source/forms/analysis/correlation/autocorunit.lfm
index 0aa625268..a178dfa49 100644
--- a/applications/lazstats/source/forms/analysis/correlation/autocorunit.lfm
+++ b/applications/lazstats/source/forms/analysis/correlation/autocorunit.lfm
@@ -401,7 +401,7 @@ inherited AutoCorrForm: TAutoCorrForm
         AutoSize = True
         Caption = 'Parameters...'
         OnClick = SmoothingParamsBtnClick
-        TabOrder = 1
+        TabOrder = 0
       end
       object AutoRegSmoothChk: TCheckBox
         Left = 12
@@ -410,7 +410,7 @@ inherited AutoCorrForm: TAutoCorrForm
         Width = 149
         BorderSpacing.Top = 8
         Caption = 'Auto-regression smooth'
-        TabOrder = 0
+        TabOrder = 1
       end
     end
     object GroupBox5: TGroupBox[19]
diff --git a/applications/lazstats/source/forms/analysis/correlation/smoothingunit.lfm b/applications/lazstats/source/forms/analysis/correlation/smoothingunit.lfm
index 8f578b506..98f9e8763 100644
--- a/applications/lazstats/source/forms/analysis/correlation/smoothingunit.lfm
+++ b/applications/lazstats/source/forms/analysis/correlation/smoothingunit.lfm
@@ -11,7 +11,41 @@ inherited SmoothingForm: TSmoothingForm
     Width = 296
     ClientHeight = 447
     ClientWidth = 296
-    object OKBtn: TButton[0]
+    inherited CloseBtn: TButton
+      AnchorSideRight.Control = HelpBtn
+      AnchorSideRight.Side = asrTop
+      Left = -88
+      Top = 422
+      ModalResult = 11
+      TabOrder = 5
+      Visible = False
+    end
+    inherited ComputeBtn: TButton
+      AnchorSideRight.Control = OKBtn
+      Left = 88
+      Top = 422
+      Anchors = [akTop]
+      TabOrder = 8
+      Visible = False
+    end
+    inherited ResetBtn: TButton
+      Left = 26
+      Top = 422
+      TabOrder = 7
+      Visible = False
+    end
+    inherited HelpBtn: TButton
+      Left = -33
+      Top = 422
+      TabOrder = 6
+      Visible = False
+    end
+    inherited ButtonBevel: TBevel
+      AnchorSideBottom.Control = OKBtn
+      Top = 406
+      Width = 296
+    end
+    object OKBtn: TButton[5]
       AnchorSideRight.Control = ParamsPanel
       AnchorSideRight.Side = asrBottom
       AnchorSideBottom.Control = ParamsPanel
@@ -26,37 +60,7 @@ inherited SmoothingForm: TSmoothingForm
       BorderSpacing.Top = 8
       Caption = 'OK'
       ModalResult = 1
-      TabOrder = 9
-    end
-    inherited CloseBtn: TButton[1]
-      AnchorSideRight.Control = HelpBtn
-      AnchorSideRight.Side = asrTop
-      Left = -88
-      Top = 422
-      ModalResult = 11
-      Visible = False
-    end
-    inherited ComputeBtn: TButton[2]
-      AnchorSideRight.Control = OKBtn
-      Left = 88
-      Top = 422
-      Anchors = [akTop]
-      Visible = False
-    end
-    inherited ResetBtn: TButton[3]
-      Left = 26
-      Top = 422
-      Visible = False
-    end
-    inherited HelpBtn: TButton[4]
-      Left = -33
-      Top = 422
-      Visible = False
-    end
-    inherited ButtonBevel: TBevel[5]
-      AnchorSideBottom.Control = OKBtn
-      Top = 406
-      Width = 296
+      TabOrder = 10
     end
     object DataSmoothingChkLB: TCheckListBox[6]
       AnchorSideLeft.Control = ParamsPanel
@@ -82,7 +86,7 @@ inherited SmoothingForm: TSmoothingForm
       )
       ItemHeight = 17
       OnSelectionChange = DataSmoothingChkLBSelectionChange
-      TabOrder = 4
+      TabOrder = 2
       Data = {
         06000000000000000000
       }
@@ -109,7 +113,7 @@ inherited SmoothingForm: TSmoothingForm
       BorderSpacing.Bottom = 8
       Caption = 'Center on Mean'
       OnChange = MeanChkChange
-      TabOrder = 5
+      TabOrder = 0
     end
     object ResidChk: TCheckBox[9]
       AnchorSideLeft.Control = MeanChk
@@ -122,7 +126,7 @@ inherited SmoothingForm: TSmoothingForm
       BorderSpacing.Left = 16
       Caption = 'Residual plot'
       OnChange = ResidChkChange
-      TabOrder = 6
+      TabOrder = 1
     end
     object Bevel1: TBevel[10]
       AnchorSideLeft.Control = ParamsPanel
@@ -153,7 +157,7 @@ inherited SmoothingForm: TSmoothingForm
       Caption = 'NotebookGroup'
       ClientHeight = 168
       ClientWidth = 292
-      TabOrder = 7
+      TabOrder = 4
       object Notebook: TNotebook
         AnchorSideLeft.Control = NotebookGroup
         AnchorSideTop.Control = NotebookGroup
@@ -454,7 +458,7 @@ inherited SmoothingForm: TSmoothingForm
       BorderSpacing.Right = 8
       Caption = 'Cancel'
       ModalResult = 2
-      TabOrder = 10
+      TabOrder = 9
     end
   end
   inherited ParamsSplitter: TSplitter