Skip to content

Commit 6cc530b

Browse files
ansgarbeckeransgarbecker
committed
fix: missing control anchors on copy-table dialog
1 parent 4215aee commit 6cc530b

File tree

2 files changed

+585
-581
lines changed

2 files changed

+585
-581
lines changed

‎source/copytable.lfm‎

Lines changed: 69 additions & 65 deletions
Original file line numberDiff line numberDiff line change
@@ -3,102 +3,132 @@ object CopyTableForm: TCopyTableForm
33
Height = 380
44
Top = 115
55
Width = 455
6+
AutoSize = True
67
Caption = 'Copy Table...'
78
ClientHeight = 380
89
ClientWidth = 455
910
Color = clBtnFace
1011
DesignTimePPI = 120
12+
Position = poMainFormCenter
1113
OnClose = FormClose
1214
OnCreate = FormCreate
1315
OnDestroy = FormDestroy
1416
OnResize = FormResize
1517
OnShow = FormShow
16-
Position = poMainFormCenter
1718
object lblNewTablename: TLabel
19+
AnchorSideLeft.Control = Owner
1820
AnchorSideTop.Control = Owner
19-
Left = 10
21+
Left = 6
2022
Height = 20
2123
Top = 6
2224
Width = 179
23-
BorderSpacing.Around = 6
25+
BorderSpacing.Left = 6
26+
BorderSpacing.Top = 6
2427
Caption = 'Copy "%s" to new db.table:'
2528
end
2629
object lblItems: TLabel
30+
AnchorSideLeft.Control = comboDatabase
2731
AnchorSideTop.Control = editNewTablename
2832
AnchorSideTop.Side = asrBottom
29-
Left = 10
33+
Left = 6
3034
Height = 20
3135
Top = 66
3236
Width = 211
33-
BorderSpacing.Around = 6
37+
BorderSpacing.Top = 6
3438
Caption = 'Elements to create in new table:'
3539
end
3640
object lblWhere: TLabel
41+
AnchorSideLeft.Control = TreeElements
3742
AnchorSideTop.Side = asrBottom
3843
AnchorSideBottom.Control = MemoFilter
39-
Left = 10
44+
Left = 6
4045
Height = 20
41-
Top = 216
46+
Top = 220
4247
Width = 212
4348
Anchors = [akLeft, akBottom]
44-
BorderSpacing.Around = 6
49+
BorderSpacing.Bottom = 6
4550
Caption = 'WHERE clause for data copying:'
4651
end
4752
object editNewTablename: TEdit
53+
AnchorSideLeft.Control = comboDatabase
54+
AnchorSideLeft.Side = asrBottom
4855
AnchorSideTop.Control = lblNewTablename
4956
AnchorSideTop.Side = asrBottom
50-
Left = 199
57+
AnchorSideRight.Control = Owner
58+
AnchorSideRight.Side = asrBottom
59+
Left = 193
5160
Height = 28
5261
Top = 32
53-
Width = 246
54-
BorderSpacing.Around = 6
62+
Width = 256
63+
Anchors = [akTop, akLeft, akRight]
64+
BorderSpacing.Left = 6
65+
BorderSpacing.Top = 6
66+
BorderSpacing.Right = 6
5567
TabOrder = 1
5668
OnChange = editNewTablenameChange
5769
end
5870
object btnCancel: TButton
59-
Left = 341
71+
AnchorSideRight.Control = Owner
72+
AnchorSideRight.Side = asrBottom
73+
AnchorSideBottom.Control = Owner
74+
AnchorSideBottom.Side = asrBottom
75+
Left = 345
6076
Height = 31
61-
Top = 339
77+
Top = 343
6278
Width = 104
6379
Anchors = [akRight, akBottom]
80+
BorderSpacing.Right = 6
81+
BorderSpacing.Bottom = 6
6482
Cancel = True
6583
Caption = 'Cancel'
6684
ModalResult = 2
6785
TabOrder = 5
6886
end
6987
object comboDatabase: TComboBox
88+
AnchorSideLeft.Control = lblNewTablename
7089
AnchorSideTop.Control = lblNewTablename
7190
AnchorSideTop.Side = asrBottom
72-
Left = 10
91+
Left = 6
7392
Height = 28
7493
Top = 32
7594
Width = 181
76-
BorderSpacing.Around = 6
95+
BorderSpacing.Top = 6
7796
ItemHeight = 20
7897
Style = csDropDownList
7998
TabOrder = 0
8099
end
81100
object btnOK: TButton
82-
Left = 230
101+
AnchorSideRight.Control = btnCancel
102+
AnchorSideBottom.Control = Owner
103+
AnchorSideBottom.Side = asrBottom
104+
Left = 235
83105
Height = 31
84-
Top = 339
106+
Top = 343
85107
Width = 104
86108
Anchors = [akRight, akBottom]
109+
BorderSpacing.Right = 6
110+
BorderSpacing.Bottom = 6
87111
Caption = 'OK'
88112
Default = True
89113
ModalResult = 1
90114
TabOrder = 4
91115
OnClick = btnOKClick
92116
end
93117
object TreeElements: TLazVirtualStringTree
118+
AnchorSideLeft.Control = comboDatabase
94119
AnchorSideTop.Control = lblItems
95120
AnchorSideTop.Side = asrBottom
96-
Left = 10
97-
Height = 106
121+
AnchorSideRight.Control = Owner
122+
AnchorSideRight.Side = asrBottom
123+
AnchorSideBottom.Control = btnRecentFilters
124+
Left = 6
125+
Height = 112
98126
Top = 92
99-
Width = 435
127+
Width = 443
100128
Anchors = [akTop, akLeft, akRight, akBottom]
101-
BorderSpacing.Around = 6
129+
BorderSpacing.Top = 6
130+
BorderSpacing.Right = 6
131+
BorderSpacing.Bottom = 6
102132
Header.AutoSizeIndex = 0
103133
Header.Columns = <>
104134
Header.MainColumn = -1
@@ -114,12 +144,16 @@ object CopyTableForm: TCopyTableForm
114144
OnInitNode = TreeElementsInitNode
115145
end
116146
inline MemoFilter: TSynEdit
147+
AnchorSideLeft.Control = TreeElements
148+
AnchorSideRight.Control = Owner
149+
AnchorSideRight.Side = asrBottom
117150
AnchorSideBottom.Control = btnOK
118-
Left = 10
151+
Left = 6
119152
Height = 91
120-
Top = 242
121-
Width = 435
122-
BorderSpacing.Around = 6
153+
Top = 246
154+
Width = 443
155+
BorderSpacing.Right = 6
156+
BorderSpacing.Bottom = 6
123157
Anchors = [akLeft, akRight, akBottom]
124158
Font.Color = clGrayText
125159
Font.Height = -16
@@ -129,7 +163,7 @@ object CopyTableForm: TCopyTableForm
129163
ParentColor = False
130164
ParentFont = False
131165
TabOrder = 3
132-
Gutter.Width = 72
166+
Gutter.Width = 0
133167
Gutter.MouseActions = <>
134168
RightGutter.Width = 0
135169
RightGutter.MouseActions = <>
@@ -160,51 +194,21 @@ object CopyTableForm: TCopyTableForm
160194
LineHighlightColor.Background = clNone
161195
LineHighlightColor.Foreground = clNone
162196
inline SynLeftGutterPartList1: TSynGutterPartList
163-
object SynGutterMarks1: TSynGutterMarks
164-
Width = 30
165-
MouseActions = <>
166-
end
167-
object SynGutterLineNumber1: TSynGutterLineNumber
168-
Width = 21
169-
MouseActions = <>
170-
MarkupInfo.Background = clBtnFace
171-
MarkupInfo.Foreground = clNone
172-
DigitCount = 2
173-
ShowOnlyLineNumbersMultiplesOf = 1
174-
ZeroStart = False
175-
LeadingZeros = False
176-
end
177-
object SynGutterChanges1: TSynGutterChanges
178-
Width = 5
179-
MouseActions = <>
180-
ModifiedColor = 59900
181-
SavedColor = clGreen
182-
end
183-
object SynGutterSeparator1: TSynGutterSeparator
184-
Width = 3
185-
MouseActions = <>
186-
MarkupInfo.Background = clWhite
187-
MarkupInfo.Foreground = clGray
188-
end
189-
object SynGutterCodeFolding1: TSynGutterCodeFolding
190-
Width = 13
191-
MouseActions = <>
192-
MarkupInfo.Background = clNone
193-
MarkupInfo.Foreground = clGray
194-
MouseActionsExpanded = <>
195-
MouseActionsCollapsed = <>
196-
end
197197
end
198198
end
199199
object btnRecentFilters: TSpeedButton
200200
AnchorSideTop.Side = asrBottom
201+
AnchorSideRight.Control = Owner
202+
AnchorSideRight.Side = asrBottom
201203
AnchorSideBottom.Control = MemoFilter
202-
Left = 310
203-
Height = 28
204-
Top = 208
205-
Width = 135
204+
Left = 333
205+
Height = 30
206+
Top = 210
207+
Width = 116
206208
Anchors = [akRight, akBottom]
207-
BorderSpacing.Around = 6
209+
AutoSize = True
210+
BorderSpacing.Right = 6
211+
BorderSpacing.Bottom = 6
208212
Caption = 'Recent filters'
209213
Images = MainForm.ImageListMain
210214
ImageIndex = 108

0 commit comments

Comments
 (0)