From 72015121c45741404e09f7acfd2137697c9aebd4 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 28 Sep 2020 21:22:08 +0000
Subject: [PATCH] LazStats: Fix CrossTab form constraints and tab order.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7712 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../analysis/descriptive/crosstabunit.lfm      | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/applications/lazstats/source/forms/analysis/descriptive/crosstabunit.lfm b/applications/lazstats/source/forms/analysis/descriptive/crosstabunit.lfm
index 35b40aa37..c1fcd050a 100644
--- a/applications/lazstats/source/forms/analysis/descriptive/crosstabunit.lfm
+++ b/applications/lazstats/source/forms/analysis/descriptive/crosstabunit.lfm
@@ -49,11 +49,12 @@ inherited CrossTabFrm: TCrossTabFrm
       Width = 55
       Anchors = [akRight, akBottom]
       AutoSize = True
+      BorderSpacing.Left = 8
       BorderSpacing.Top = 8
       Caption = 'Close'
       ModalResult = 11
       OnClick = CloseBtnClick
-      TabOrder = 0
+      TabOrder = 7
     end
     object ResetBtn: TButton
       AnchorSideTop.Control = CloseBtn
@@ -64,10 +65,11 @@ inherited CrossTabFrm: TCrossTabFrm
       Width = 54
       Anchors = [akTop, akRight]
       AutoSize = True
+      BorderSpacing.Left = 8
       BorderSpacing.Right = 8
       Caption = 'Reset'
       OnClick = ResetBtnClick
-      TabOrder = 1
+      TabOrder = 5
     end
     object HelpBtn: TButton
       AnchorSideTop.Control = CloseBtn
@@ -81,7 +83,7 @@ inherited CrossTabFrm: TCrossTabFrm
       BorderSpacing.Right = 8
       Caption = 'Help'
       OnClick = HelpBtnClick
-      TabOrder = 2
+      TabOrder = 4
     end
     object ComputeBtn: TButton
       AnchorSideTop.Control = CloseBtn
@@ -98,7 +100,7 @@ inherited CrossTabFrm: TCrossTabFrm
       BorderSpacing.Right = 8
       Caption = 'Compute'
       OnClick = ComputeBtnClick
-      TabOrder = 3
+      TabOrder = 6
     end
     object Label1: TLabel
       AnchorSideLeft.Control = ParamsPanel
@@ -136,7 +138,7 @@ inherited CrossTabFrm: TCrossTabFrm
       MultiSelect = True
       OnDblClick = VarListDblClick
       OnSelectionChange = VarListSelectionChange
-      TabOrder = 4
+      TabOrder = 0
     end
     object SelList: TListBox
       AnchorSideLeft.Control = InBtn
@@ -157,7 +159,7 @@ inherited CrossTabFrm: TCrossTabFrm
       MultiSelect = True
       OnDblClick = SelListDblClick
       OnSelectionChange = VarListSelectionChange
-      TabOrder = 5
+      TabOrder = 3
     end
     object InBtn: TBitBtn
       AnchorSideLeft.Control = ParamsPanel
@@ -172,7 +174,7 @@ inherited CrossTabFrm: TCrossTabFrm
       ImageIndex = 1
       OnClick = InBtnClick
       Spacing = 0
-      TabOrder = 6
+      TabOrder = 1
     end
     object OutBtn: TBitBtn
       AnchorSideLeft.Control = ParamsPanel
@@ -189,7 +191,7 @@ inherited CrossTabFrm: TCrossTabFrm
       ImageIndex = 0
       OnClick = OutBtnClick
       Spacing = 0
-      TabOrder = 7
+      TabOrder = 2
     end
     object VertCenterBevel: TBevel
       AnchorSideLeft.Control = InBtn