@@ -3,6 +3,7 @@ object frmColumnSelection: TfrmColumnSelection
33 Height = 304
44 Top = 0
55 Width = 250
6+ AutoSize = True
67 BorderStyle = bsSizeToolWin
78 Caption = 'Select columns'
89 ClientHeight = 304
@@ -17,97 +18,121 @@ object frmColumnSelection: TfrmColumnSelection
1718 OnDestroy = FormDestroy
1819 OnShow = FormShow
1920 object btnCancel: TButton
20- Left = 146
21- Height = 31
22- Top = 264
23- Width = 94
21+ AnchorSideRight.Control = Owner
22+ AnchorSideRight.Side = asrBottom
23+ AnchorSideBottom.Control = Owner
24+ AnchorSideBottom.Side = asrBottom
25+ Left = 144
26+ Height = 30
27+ Top = 268
28+ Width = 100
2429 Anchors = [akRight, akBottom]
30+ AutoSize = True
2531 BorderSpacing.Around = 6
2632 Cancel = True
2733 Caption = 'Cancel'
34+ Constraints.MinWidth = 100
2835 ModalResult = 2
29- TabOrder = 0
36+ TabOrder = 6
3037 OnClick = btnCancelClick
3138 end
3239 object btnOK: TButton
33- Left = 48
34- Height = 31
35- Top = 264
36- Width = 94
40+ AnchorSideRight.Control = btnCancel
41+ AnchorSideBottom.Control = Owner
42+ AnchorSideBottom.Side = asrBottom
43+ Left = 38
44+ Height = 30
45+ Top = 268
46+ Width = 100
3747 Anchors = [akRight, akBottom]
48+ AutoSize = True
3849 BorderSpacing.Around = 6
3950 Caption = 'OK'
51+ Constraints.MinWidth = 100
4052 Default = True
41- TabOrder = 1
53+ TabOrder = 5
4254 OnClick = btnOKClick
4355 end
4456 object chkSort: TCheckBox
57+ AnchorSideLeft.Control = Owner
4558 AnchorSideTop.Control = chklistColumns
4659 AnchorSideTop.Side = asrBottom
47- Left = 10
60+ AnchorSideBottom.Control = chkShowRowId
61+ Left = 6
4862 Height = 24
49- Top = 198
50- Width = 230
51- Anchors = [akLeft, akRight, akBottom]
63+ Top = 208
64+ Width = 145
65+ Anchors = [akLeft, akBottom]
5266 BorderSpacing.Around = 6
5367 Caption = 'Sort alphabetically'
54- TabOrder = 2
68+ TabOrder = 3
5569 OnClick = PopulateList
5670 end
5771 object chkSelectAll: TCheckBox
72+ AnchorSideLeft.Control = Owner
5873 AnchorSideTop.Control = Owner
59- Left = 10
74+ Left = 6
6075 Height = 24
6176 Hint = 'Select / Deselect all'
6277 Top = 6
6378 Width = 39
6479 BorderSpacing.Around = 6
6580 Caption = 'All'
66- TabOrder = 3
81+ TabOrder = 0
6782 OnClick = chkSelectAllClick
6883 end
6984 object chklistColumns: TCheckListBox
85+ AnchorSideLeft.Control = Owner
7086 AnchorSideTop.Control = editFilter
7187 AnchorSideTop.Side = asrBottom
72- Left = 10
73- Height = 152
88+ AnchorSideRight.Control = Owner
89+ AnchorSideRight.Side = asrBottom
90+ AnchorSideBottom.Control = chkSort
91+ Left = 6
92+ Height = 162
7493 Top = 40
75- Width = 230
94+ Width = 238
7695 Anchors = [akTop, akLeft, akRight, akBottom]
7796 BorderSpacing.Around = 6
7897 ItemHeight = 0
79- TabOrder = 4
98+ TabOrder = 2
8099 OnClickCheck = chklistColumnsClickCheck
81100 end
82101 object editFilter: TEditButton
102+ AnchorSideLeft.Control = chkSelectAll
103+ AnchorSideLeft.Side = asrBottom
83104 AnchorSideTop.Control = Owner
84- Left = 79
105+ AnchorSideRight.Control = Owner
106+ AnchorSideRight.Side = asrBottom
107+ Left = 51
85108 Height = 28
86109 Top = 6
87- Width = 161
110+ Width = 193
88111 Anchors = [akTop, akLeft, akRight]
89112 BorderSpacing.Around = 6
90113 ButtonWidth = 29
91114 Images = MainForm.ImageListMain
92115 ImageIndex = 146
93116 MaxLength = 0
94117 NumGlyphs = 1
95- OnButtonClick = editFilterButtonClick
96- OnChange = PopulateList
97118 PasswordChar = #0
98- TabOrder = 5
119+ TabOrder = 1
99120 TextHint = 'Filter'
121+ OnButtonClick = editFilterButtonClick
122+ OnChange = PopulateList
100123 end
101124 object chkShowRowId: TCheckBox
125+ AnchorSideLeft.Control = Owner
102126 AnchorSideTop.Control = chkSort
103127 AnchorSideTop.Side = asrBottom
104- Left = 10
128+ AnchorSideBottom.Control = btnOK
129+ Left = 6
105130 Height = 24
106- Top = 227
107- Width = 230
108- Anchors = [akLeft, akRight, akBottom]
131+ Top = 238
132+ Width = 195
133+ Anchors = [akLeft, akBottom]
109134 BorderSpacing.Around = 6
110135 Caption = 'Show static row id column'
111- TabOrder = 6
136+ TabOrder = 4
112137 end
113138end
0 commit comments