ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibsqleditor.lfm
Revision: 64
Committed: Thu Jun 29 11:11:22 2017 UTC (6 years, 9 months ago) by tony
File size: 10290 byte(s)
Log Message:
IBLookupComboEditBox: Avoid race condition when autocompleting text that occasionally results in autocomplete ignoring prefix text.

File Contents

# Content
1 object IBSQLEditorForm: TIBSQLEditorForm
2 Left = 402
3 Height = 425
4 Top = 369
5 Width = 716
6 ActiveControl = PageControl
7 Caption = 'IBSQL Editor'
8 ClientHeight = 425
9 ClientWidth = 716
10 DesignTimePPI = 92
11 OnShow = FormShow
12 LCLVersion = '1.8.0.2'
13 object Label3: TLabel
14 Left = 288
15 Height = 14
16 Top = 8
17 Width = 24
18 Caption = 'SQL'
19 ParentColor = False
20 end
21 object SQLText: TMemo
22 Left = 288
23 Height = 335
24 Top = 27
25 Width = 418
26 Anchors = [akTop, akLeft, akRight, akBottom]
27 ScrollBars = ssAutoBoth
28 TabOrder = 0
29 end
30 object GenerateBtn: TButton
31 Left = 267
32 Height = 30
33 Top = 374
34 Width = 104
35 Anchors = [akRight, akBottom]
36 Caption = 'Generate SQL'
37 OnClick = GenerateBtnClick
38 TabOrder = 1
39 end
40 object Button2: TButton
41 Left = 627
42 Height = 30
43 Top = 374
44 Width = 72
45 Anchors = [akRight, akBottom]
46 Cancel = True
47 Caption = 'Cancel'
48 ModalResult = 2
49 TabOrder = 2
50 end
51 object QuoteFields: TCheckBox
52 Left = 16
53 Height = 22
54 Top = 392
55 Width = 125
56 Caption = '&Quote Identifiers'
57 TabOrder = 3
58 end
59 object Button1: TButton
60 Left = 539
61 Height = 30
62 Top = 373
63 Width = 72
64 Anchors = [akRight, akBottom]
65 Caption = 'OK'
66 Default = True
67 ModalResult = 1
68 TabOrder = 4
69 end
70 object PageControl: TPageControl
71 Left = 16
72 Height = 337
73 Top = 27
74 Width = 256
75 ActivePage = SelectPage
76 TabIndex = 0
77 TabOrder = 5
78 TabPosition = tpLeft
79 object SelectPage: TTabSheet
80 Caption = 'Select'
81 ClientHeight = 331
82 ClientWidth = 189
83 OnShow = SelectPageShow
84 object Label1: TLabel
85 Left = 7
86 Height = 14
87 Top = 3
88 Width = 69
89 Caption = 'Table Name'
90 ParentColor = False
91 end
92 object Label2: TLabel
93 Left = 7
94 Height = 14
95 Top = 53
96 Width = 33
97 Caption = 'Fields'
98 ParentColor = False
99 end
100 object Label4: TLabel
101 Left = 7
102 Height = 14
103 Top = 231
104 Width = 77
105 Caption = 'Primary Keys'
106 ParentColor = False
107 end
108 object SelectTableNames: TComboBox
109 Left = 7
110 Height = 27
111 Top = 19
112 Width = 174
113 Anchors = [akTop, akLeft, akRight]
114 AutoComplete = True
115 AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
116 ItemHeight = 0
117 OnCloseUp = SelectTableNamesCloseUp
118 TabOrder = 0
119 end
120 object SelectFieldsList: TListBox
121 Left = 7
122 Height = 136
123 Hint = 'Select Fields to include in Select Statement or leave unselected to select all'
124 Top = 69
125 Width = 174
126 Anchors = [akTop, akLeft, akRight]
127 ItemHeight = 0
128 MultiSelect = True
129 OnDblClick = SelectFieldsListDblClick
130 ParentShowHint = False
131 ScrollWidth = 172
132 ShowHint = True
133 TabOrder = 1
134 TopIndex = -1
135 end
136 object SelectPrimaryKeys: TListBox
137 Left = 7
138 Height = 77
139 Top = 247
140 Width = 174
141 Anchors = [akTop, akLeft, akRight, akBottom]
142 ItemHeight = 0
143 ScrollWidth = 172
144 TabOrder = 2
145 TopIndex = -1
146 end
147 end
148 object InsertPage: TTabSheet
149 Caption = 'Insert'
150 ClientHeight = 331
151 ClientWidth = 189
152 OnShow = InsertPageShow
153 object Label8: TLabel
154 Left = 7
155 Height = 15
156 Top = 3
157 Width = 69
158 Caption = 'Table Name'
159 ParentColor = False
160 end
161 object Label9: TLabel
162 Left = 7
163 Height = 15
164 Top = 53
165 Width = 33
166 Caption = 'Fields'
167 ParentColor = False
168 end
169 object InsertTableNames: TComboBox
170 Left = 7
171 Height = 27
172 Top = 19
173 Width = 169
174 Anchors = [akTop, akLeft, akRight]
175 AutoComplete = True
176 AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
177 ItemHeight = 0
178 OnCloseUp = InsertTableNamesCloseUp
179 TabOrder = 0
180 end
181 object InsertFieldsList: TListBox
182 Left = 7
183 Height = 256
184 Hint = 'Select Fields to include in Insert Statement or leave unselected to select all'
185 Top = 69
186 Width = 169
187 Anchors = [akTop, akLeft, akRight, akBottom]
188 ItemHeight = 0
189 MultiSelect = True
190 OnDblClick = SelectFieldsListDblClick
191 ParentShowHint = False
192 ScrollWidth = 167
193 ShowHint = True
194 TabOrder = 1
195 TopIndex = -1
196 end
197 end
198 object ModifyPage: TTabSheet
199 Caption = 'Modify'
200 ClientHeight = 331
201 ClientWidth = 189
202 OnShow = ModifyPageShow
203 object Label10: TLabel
204 Left = 7
205 Height = 15
206 Top = 3
207 Width = 69
208 Caption = 'Table Name'
209 ParentColor = False
210 end
211 object Label11: TLabel
212 Left = 7
213 Height = 15
214 Top = 53
215 Width = 33
216 Caption = 'Fields'
217 ParentColor = False
218 end
219 object Label12: TLabel
220 Left = 7
221 Height = 15
222 Top = 228
223 Width = 77
224 Caption = 'Primary Keys'
225 ParentColor = False
226 end
227 object ModifyTableNames: TComboBox
228 Left = 7
229 Height = 27
230 Top = 19
231 Width = 169
232 Anchors = [akTop, akLeft, akRight]
233 AutoComplete = True
234 AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
235 ItemHeight = 0
236 OnCloseUp = ModifyTableNamesCloseUp
237 TabOrder = 0
238 end
239 object ModifyFieldsList: TListBox
240 Left = 7
241 Height = 104
242 Hint = 'Select Fields to include in Update Statement or leave unselected to select all'
243 Top = 69
244 Width = 169
245 Anchors = [akTop, akLeft, akRight]
246 ItemHeight = 0
247 MultiSelect = True
248 OnClick = SelectFieldsListDblClick
249 ScrollWidth = 167
250 TabOrder = 1
251 TopIndex = -1
252 end
253 object ModifyPrimaryKeys: TListBox
254 Left = 7
255 Height = 77
256 Top = 244
257 Width = 169
258 Anchors = [akTop, akLeft, akRight, akBottom]
259 ItemHeight = 0
260 OnClick = SelectFieldsListDblClick
261 ScrollWidth = 167
262 TabOrder = 2
263 TopIndex = -1
264 end
265 object IncludePrimaryKeys: TCheckBox
266 Left = 5
267 Height = 22
268 Top = 181
269 Width = 150
270 Caption = 'Include Primary keys'
271 OnClick = IncludePrimaryKeysClick
272 TabOrder = 3
273 end
274 object Label5: TLabel
275 Left = 27
276 Height = 15
277 Top = 202
278 Width = 67
279 Caption = 'in Field List'
280 ParentColor = False
281 end
282 end
283 object DeletePage: TTabSheet
284 Caption = 'Delete'
285 ClientHeight = 331
286 ClientWidth = 189
287 OnShow = DeletePageShow
288 object Label14: TLabel
289 Left = 7
290 Height = 15
291 Top = 3
292 Width = 69
293 Caption = 'Table Name'
294 ParentColor = False
295 end
296 object Label15: TLabel
297 Left = 7
298 Height = 15
299 Top = 66
300 Width = 77
301 Caption = 'Primary Keys'
302 ParentColor = False
303 end
304 object DeleteTableNames: TComboBox
305 Left = 7
306 Height = 27
307 Top = 19
308 Width = 169
309 Anchors = [akTop, akLeft, akRight]
310 AutoComplete = True
311 AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
312 ItemHeight = 0
313 OnCloseUp = DeleteTableNamesCloseUp
314 TabOrder = 0
315 end
316 object DeletePrimaryKeys: TListBox
317 Left = 7
318 Height = 55
319 Top = 82
320 Width = 167
321 Anchors = [akTop, akLeft, akRight]
322 ItemHeight = 0
323 OnDblClick = SelectFieldsListDblClick
324 ScrollWidth = 165
325 TabOrder = 1
326 TopIndex = -1
327 end
328 end
329 object ExecutePage: TTabSheet
330 Caption = 'Execute'
331 ClientHeight = 331
332 ClientWidth = 189
333 OnShow = ExecutePageShow
334 object Label16: TLabel
335 Left = 7
336 Height = 15
337 Top = 3
338 Width = 100
339 Caption = 'Procedure Name'
340 ParentColor = False
341 end
342 object Label17: TLabel
343 Left = 10
344 Height = 15
345 Top = 61
346 Width = 104
347 Caption = 'Input Parameters'
348 ParentColor = False
349 end
350 object Label18: TLabel
351 Left = 11
352 Height = 15
353 Top = 181
354 Width = 114
355 Caption = 'Output Parameters'
356 ParentColor = False
357 end
358 object ProcedureNames: TComboBox
359 Left = 7
360 Height = 27
361 Top = 19
362 Width = 169
363 Anchors = [akTop, akLeft, akRight]
364 ItemHeight = 0
365 OnCloseUp = ProcedureNamesCloseUp
366 TabOrder = 0
367 end
368 object ProcInputList: TListBox
369 Left = 6
370 Height = 80
371 Top = 82
372 Width = 164
373 Anchors = [akTop, akLeft, akRight]
374 IntegralHeight = True
375 ItemHeight = 0
376 ScrollWidth = 162
377 TabOrder = 1
378 TopIndex = -1
379 end
380 object ProcOutputList: TListBox
381 Left = 10
382 Height = 97
383 Top = 201
384 Width = 160
385 Anchors = [akTop, akLeft, akRight]
386 IntegralHeight = True
387 ItemHeight = 0
388 ScrollWidth = 158
389 TabOrder = 2
390 TopIndex = -1
391 end
392 object SelectProcedure: TLabel
393 Left = 7
394 Height = 14
395 Top = 310
396 Width = 126
397 Anchors = [akLeft, akBottom]
398 Caption = 'Is ''Select Procedure'''
399 Font.Height = -11
400 Font.Style = [fsBold]
401 ParentColor = False
402 ParentFont = False
403 Visible = False
404 end
405 end
406 end
407 object TestBtn: TButton
408 Left = 403
409 Height = 30
410 Top = 374
411 Width = 66
412 Anchors = [akRight, akBottom]
413 Caption = 'Test'
414 OnClick = TestBtnClick
415 TabOrder = 6
416 end
417 object GenerateParams: TCheckBox
418 Left = 16
419 Height = 22
420 Top = 368
421 Width = 171
422 Caption = 'Allow DSQL Placeholders'
423 TabOrder = 7
424 end
425 object IBTransaction1: TIBTransaction
426 Active = False
427 left = 200
428 top = 391
429 end
430 end