pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazStats: Fix CrossTab form constraints and tab order.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7712 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-28 21:22:08 +00:00
parent 746509e94a
commit 72015121c4
1 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
applications/lazstats/source/forms/analysis/descriptive/crosstabunit.lfm
View File

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