Issue #1482: fix control dimensions and positions on column_selection dialog

This commit is contained in:
Ansgar Becker
2025-03-05 16:43:38 +01:00
parent 713de7ac1f
commit f45edf0732

View File

@ -18,11 +18,10 @@ object frmColumnSelection: TfrmColumnSelection
OnCreate = FormCreate OnCreate = FormCreate
OnDeactivate = FormDeactivate OnDeactivate = FormDeactivate
OnShow = FormShow OnShow = FormShow
LCLVersion = '3.8.0.0'
object btnCancel: TButton object btnCancel: TButton
Left = 76 Left = 146
Height = 31 Height = 31
Top = 202 Top = 264
Width = 94 Width = 94
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Cancel = True Cancel = True
@ -32,9 +31,9 @@ object frmColumnSelection: TfrmColumnSelection
OnClick = btnCancelClick OnClick = btnCancelClick
end end
object btnOK: TButton object btnOK: TButton
Left = -25 Left = 48
Height = 31 Height = 31
Top = 202 Top = 264
Width = 94 Width = 94
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'OK' Caption = 'OK'
@ -44,9 +43,9 @@ object frmColumnSelection: TfrmColumnSelection
end end
object chkSort: TCheckBox object chkSort: TCheckBox
Left = 10 Left = 10
Height = 17 Height = 22
Top = 152 Top = 200
Width = 160 Width = 230
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
Caption = 'Sort alphabetically' Caption = 'Sort alphabetically'
TabOrder = 2 TabOrder = 2
@ -54,29 +53,29 @@ object frmColumnSelection: TfrmColumnSelection
end end
object chkSelectAll: TCheckBox object chkSelectAll: TCheckBox
Left = 10 Left = 10
Height = 17 Height = 22
Hint = 'Select / Deselect all' Hint = 'Select / Deselect all'
Top = 8 Top = 8
Width = 49 Width = 34
Caption = 'All' Caption = 'All'
TabOrder = 3 TabOrder = 3
OnClick = chkSelectAllClick OnClick = chkSelectAllClick
end end
object chklistColumns: TCheckListBox object chklistColumns: TCheckListBox
Left = 10 Left = 10
Height = 102 Height = 153
Top = 39 Top = 39
Width = 160 Width = 230
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 21 ItemHeight = 0
TabOrder = 4 TabOrder = 4
OnClickCheck = chklistColumnsClickCheck OnClickCheck = chklistColumnsClickCheck
end end
object editFilter: TEditButton object editFilter: TEditButton
Left = 79 Left = 79
Height = 21 Height = 26
Top = 5 Top = 5
Width = 91 Width = 161
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
ButtonWidth = 29 ButtonWidth = 29
Images = MainForm.ImageListIcons8 Images = MainForm.ImageListIcons8
@ -91,9 +90,9 @@ object frmColumnSelection: TfrmColumnSelection
end end
object chkShowRowId: TCheckBox object chkShowRowId: TCheckBox
Left = 10 Left = 10
Height = 17 Height = 22
Top = 181 Top = 229
Width = 160 Width = 230
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
Caption = 'Show static row id column' Caption = 'Show static row id column'
TabOrder = 6 TabOrder = 6