ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibsqleditor.lfm
(Generate patch)

Comparing ibx/trunk/design/ibsqleditor.lfm (file contents):
Revision 19 by tony, Mon Jul 7 13:00:15 2014 UTC vs.
Revision 37 by tony, Mon Feb 15 14:44:25 2016 UTC

# Line 8 | Line 8 | object IBSQLEditorForm: TIBSQLEditorForm
8    ClientHeight = 425
9    ClientWidth = 716
10    OnShow = FormShow
11 <  LCLVersion = '1.2.2.0'
11 >  LCLVersion = '1.4.4.0'
12    object Label3: TLabel
13      Left = 288
14      Height = 15
# Line 49 | Line 49 | object IBSQLEditorForm: TIBSQLEditorForm
49    end
50    object QuoteFields: TCheckBox
51      Left = 16
52 <    Height = 24
52 >    Height = 22
53      Top = 392
54 <    Width = 127
54 >    Width = 125
55      Caption = '&Quote Identifiers'
56      TabOrder = 3
57    end
# Line 71 | Line 71 | object IBSQLEditorForm: TIBSQLEditorForm
71      Height = 337
72      Top = 27
73      Width = 251
74 <    ActivePage = ExecutePage
75 <    TabIndex = 4
74 >    ActivePage = SelectPage
75 >    TabIndex = 0
76      TabOrder = 5
77 +    TabPosition = tpLeft
78      object SelectPage: TTabSheet
79        Caption = 'Select'
80 <      ClientHeight = 300
81 <      ClientWidth = 243
80 >      ClientHeight = 331
81 >      ClientWidth = 184
82        OnShow = SelectPageShow
83        object Label1: TLabel
84          Left = 7
85 <        Height = 18
85 >        Height = 15
86          Top = 3
87 <        Width = 78
87 >        Width = 69
88          Caption = 'Table Name'
89          ParentColor = False
90        end
91        object Label2: TLabel
92          Left = 7
93 <        Height = 18
93 >        Height = 15
94          Top = 53
95 <        Width = 39
95 >        Width = 33
96          Caption = 'Fields'
97          ParentColor = False
98        end
99        object Label4: TLabel
100          Left = 7
101 <        Height = 18
101 >        Height = 15
102          Top = 231
103 <        Width = 87
103 >        Width = 77
104          Caption = 'Primary Keys'
105          ParentColor = False
106        end
107        object SelectTableNames: TComboBox
108          Left = 7
109 <        Height = 29
109 >        Height = 27
110          Top = 19
111          Width = 169
112 +        Anchors = [akTop, akLeft, akRight]
113 +        AutoComplete = True
114 +        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
115          ItemHeight = 0
116          OnCloseUp = SelectTableNamesCloseUp
117          TabOrder = 0
# Line 118 | Line 122 | object IBSQLEditorForm: TIBSQLEditorForm
122          Hint = 'Select Fields to include in Select Statement or leave unselected to select all'
123          Top = 69
124          Width = 169
125 +        Anchors = [akTop, akLeft, akRight]
126          ItemHeight = 0
127          MultiSelect = True
128          OnDblClick = SelectFieldsListDblClick
# Line 129 | Line 134 | object IBSQLEditorForm: TIBSQLEditorForm
134        end
135        object SelectPrimaryKeys: TListBox
136          Left = 7
137 <        Height = 46
137 >        Height = 77
138          Top = 247
139 <        Width = 159
140 <        Anchors = [akTop, akLeft, akBottom]
139 >        Width = 169
140 >        Anchors = [akTop, akLeft, akRight, akBottom]
141          ItemHeight = 0
142 <        ScrollWidth = 157
142 >        ScrollWidth = 167
143          TabOrder = 2
144          TopIndex = -1
145        end
146      end
147      object InsertPage: TTabSheet
148        Caption = 'Insert'
149 <      ClientHeight = 300
150 <      ClientWidth = 243
149 >      ClientHeight = 331
150 >      ClientWidth = 184
151        OnShow = InsertPageShow
152        object Label8: TLabel
153          Left = 7
154 <        Height = 18
154 >        Height = 15
155          Top = 3
156 <        Width = 78
156 >        Width = 69
157          Caption = 'Table Name'
158          ParentColor = False
159        end
160        object Label9: TLabel
161          Left = 7
162 <        Height = 18
162 >        Height = 15
163          Top = 53
164 <        Width = 39
164 >        Width = 33
165          Caption = 'Fields'
166          ParentColor = False
167        end
168        object InsertTableNames: TComboBox
169          Left = 7
170 <        Height = 29
170 >        Height = 27
171          Top = 19
172          Width = 169
173 +        Anchors = [akTop, akLeft, akRight]
174 +        AutoComplete = True
175 +        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
176          ItemHeight = 0
177          OnCloseUp = InsertTableNamesCloseUp
178          TabOrder = 0
179        end
180        object InsertFieldsList: TListBox
181          Left = 7
182 <        Height = 225
182 >        Height = 256
183          Hint = 'Select Fields to include in Insert  Statement or leave unselected to select all'
184          Top = 69
185          Width = 169
186 <        Anchors = [akTop, akLeft, akBottom]
186 >        Anchors = [akTop, akLeft, akRight, akBottom]
187          ItemHeight = 0
188          MultiSelect = True
189          OnDblClick = SelectFieldsListDblClick
# Line 188 | Line 196 | object IBSQLEditorForm: TIBSQLEditorForm
196      end
197      object ModifyPage: TTabSheet
198        Caption = 'Modify'
199 <      ClientHeight = 300
200 <      ClientWidth = 243
199 >      ClientHeight = 331
200 >      ClientWidth = 184
201        OnShow = ModifyPageShow
202        object Label10: TLabel
203          Left = 7
204 <        Height = 18
204 >        Height = 15
205          Top = 3
206 <        Width = 78
206 >        Width = 69
207          Caption = 'Table Name'
208          ParentColor = False
209        end
210        object Label11: TLabel
211          Left = 7
212 <        Height = 18
212 >        Height = 15
213          Top = 53
214 <        Width = 39
214 >        Width = 33
215          Caption = 'Fields'
216          ParentColor = False
217        end
218        object Label12: TLabel
219          Left = 7
220 <        Height = 18
220 >        Height = 15
221          Top = 228
222 <        Width = 87
222 >        Width = 77
223          Caption = 'Primary Keys'
224          ParentColor = False
225        end
226        object ModifyTableNames: TComboBox
227          Left = 7
228 <        Height = 29
228 >        Height = 27
229          Top = 19
230          Width = 169
231 +        Anchors = [akTop, akLeft, akRight]
232 +        AutoComplete = True
233 +        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
234          ItemHeight = 0
235          OnCloseUp = ModifyTableNamesCloseUp
236          TabOrder = 0
# Line 230 | Line 241 | object IBSQLEditorForm: TIBSQLEditorForm
241          Hint = 'Select Fields to include in Update Statement or leave unselected to select all'
242          Top = 69
243          Width = 169
244 +        Anchors = [akTop, akLeft, akRight]
245          ItemHeight = 0
246          MultiSelect = True
247          OnClick = SelectFieldsListDblClick
# Line 239 | Line 251 | object IBSQLEditorForm: TIBSQLEditorForm
251        end
252        object ModifyPrimaryKeys: TListBox
253          Left = 7
254 <        Height = 46
254 >        Height = 77
255          Top = 244
256 <        Width = 159
257 <        Anchors = [akTop, akLeft, akBottom]
256 >        Width = 169
257 >        Anchors = [akTop, akLeft, akRight, akBottom]
258          ItemHeight = 0
259          OnClick = SelectFieldsListDblClick
260 <        ScrollWidth = 157
260 >        ScrollWidth = 167
261          TabOrder = 2
262          TopIndex = -1
263        end
# Line 253 | Line 265 | object IBSQLEditorForm: TIBSQLEditorForm
265          Left = 5
266          Height = 22
267          Top = 181
268 <        Width = 161
268 >        Width = 150
269          Caption = 'Include Primary keys'
270          OnClick = IncludePrimaryKeysClick
271          TabOrder = 3
272        end
273        object Label5: TLabel
274          Left = 27
275 <        Height = 18
275 >        Height = 15
276          Top = 202
277 <        Width = 75
277 >        Width = 67
278          Caption = 'in Field List'
279          ParentColor = False
280        end
281      end
282      object DeletePage: TTabSheet
283        Caption = 'Delete'
284 <      ClientHeight = 300
285 <      ClientWidth = 243
284 >      ClientHeight = 331
285 >      ClientWidth = 184
286        OnShow = DeletePageShow
287        object Label14: TLabel
288          Left = 7
289 <        Height = 18
289 >        Height = 15
290          Top = 3
291 <        Width = 78
291 >        Width = 69
292          Caption = 'Table Name'
293          ParentColor = False
294        end
295        object Label15: TLabel
296          Left = 7
297 <        Height = 18
297 >        Height = 15
298          Top = 66
299 <        Width = 87
299 >        Width = 77
300          Caption = 'Primary Keys'
301          ParentColor = False
302        end
303        object DeleteTableNames: TComboBox
304          Left = 7
305 <        Height = 29
305 >        Height = 27
306          Top = 19
307          Width = 169
308 +        Anchors = [akTop, akLeft, akRight]
309 +        AutoComplete = True
310 +        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
311          ItemHeight = 0
312          OnCloseUp = DeleteTableNamesCloseUp
313          TabOrder = 0
# Line 301 | Line 316 | object IBSQLEditorForm: TIBSQLEditorForm
316          Left = 7
317          Height = 55
318          Top = 82
319 <        Width = 159
319 >        Width = 167
320 >        Anchors = [akTop, akLeft, akRight]
321          ItemHeight = 0
322          OnDblClick = SelectFieldsListDblClick
323 <        ScrollWidth = 157
323 >        ScrollWidth = 165
324          TabOrder = 1
325          TopIndex = -1
326        end
327      end
328      object ExecutePage: TTabSheet
329        Caption = 'Execute'
330 <      ClientHeight = 300
331 <      ClientWidth = 243
330 >      ClientHeight = 331
331 >      ClientWidth = 184
332        OnShow = ExecutePageShow
333        object Label16: TLabel
334          Left = 7
# Line 343 | Line 359 | object IBSQLEditorForm: TIBSQLEditorForm
359          Height = 27
360          Top = 19
361          Width = 169
362 +        Anchors = [akTop, akLeft, akRight]
363          ItemHeight = 0
364          OnCloseUp = ProcedureNamesCloseUp
365          TabOrder = 0
# Line 352 | Line 369 | object IBSQLEditorForm: TIBSQLEditorForm
369          Height = 80
370          Top = 82
371          Width = 164
372 +        Anchors = [akTop, akLeft, akRight]
373          IntegralHeight = True
374          ItemHeight = 0
375          ScrollWidth = 162
# Line 360 | Line 378 | object IBSQLEditorForm: TIBSQLEditorForm
378        end
379        object ProcOutputList: TListBox
380          Left = 10
381 <        Height = 66
381 >        Height = 97
382          Top = 201
383          Width = 160
384 <        Anchors = [akTop, akLeft, akBottom]
384 >        Anchors = [akTop, akLeft, akRight]
385          IntegralHeight = True
386          ItemHeight = 0
387          ScrollWidth = 158
# Line 373 | Line 391 | object IBSQLEditorForm: TIBSQLEditorForm
391        object SelectProcedure: TLabel
392          Left = 7
393          Height = 14
394 <        Top = 279
394 >        Top = 310
395          Width = 126
396          Anchors = [akLeft, akBottom]
397          Caption = 'Is ''Select Procedure'''
# Line 397 | Line 415 | object IBSQLEditorForm: TIBSQLEditorForm
415    end
416    object GenerateParams: TCheckBox
417      Left = 16
418 <    Height = 24
418 >    Height = 22
419      Top = 368
420 <    Width = 173
420 >    Width = 171
421      Caption = 'Allow DSQL Placeholders'
422      TabOrder = 7
423    end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines