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 21 by tony, Thu Feb 26 10:33:34 2015 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.6.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 = InsertPage
75 <    TabIndex = 1
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
# Line 108 | Line 109 | object IBSQLEditorForm: TIBSQLEditorForm
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
# Line 120 | 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 131 | 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
# Line 167 | Line 170 | object IBSQLEditorForm: TIBSQLEditorForm
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
# Line 175 | Line 179 | object IBSQLEditorForm: TIBSQLEditorForm
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 192 | 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
# Line 224 | Line 228 | object IBSQLEditorForm: TIBSQLEditorForm
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
# Line 236 | 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 245 | 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
264        object IncludePrimaryKeys: TCheckBox
265          Left = 5
266 <        Height = 24
266 >        Height = 22
267          Top = 181
268 <        Width = 152
268 >        Width = 150
269          Caption = 'Include Primary keys'
270          OnClick = IncludePrimaryKeysClick
271          TabOrder = 3
# Line 275 | Line 281 | object IBSQLEditorForm: TIBSQLEditorForm
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
# Line 299 | Line 305 | object IBSQLEditorForm: TIBSQLEditorForm
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
# Line 309 | 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 351 | 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 360 | 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 368 | 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 381 | 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 405 | 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