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 67 by tony, Tue Oct 3 14:08:11 2017 UTC

# Line 1 | Line 1
1   object IBSQLEditorForm: TIBSQLEditorForm
2 <  Left = 402
2 >  Left = 2090
3    Height = 425
4 <  Top = 369
4 >  Top = 382
5    Width = 716
6    ActiveControl = PageControl
7    Caption = 'IBSQL Editor'
8    ClientHeight = 425
9    ClientWidth = 716
10    OnShow = FormShow
11 <  LCLVersion = '1.2.6.0'
11 >  Position = poScreenCenter
12 >  LCLVersion = '1.8.0.4'
13    object Label3: TLabel
14      Left = 288
15 <    Height = 15
15 >    Height = 14
16      Top = 8
17      Width = 24
18      Caption = 'SQL'
# Line 49 | Line 50 | object IBSQLEditorForm: TIBSQLEditorForm
50    end
51    object QuoteFields: TCheckBox
52      Left = 16
53 <    Height = 24
53 >    Height = 22
54      Top = 392
55 <    Width = 127
55 >    Width = 125
56      Caption = '&Quote Identifiers'
57      TabOrder = 3
58    end
# Line 70 | Line 71 | object IBSQLEditorForm: TIBSQLEditorForm
71      Left = 16
72      Height = 337
73      Top = 27
74 <    Width = 251
75 <    ActivePage = InsertPage
76 <    TabIndex = 1
74 >    Width = 256
75 >    ActivePage = SelectPage
76 >    TabIndex = 0
77      TabOrder = 5
78 +    TabPosition = tpLeft
79      object SelectPage: TTabSheet
80        Caption = 'Select'
81 <      ClientHeight = 300
82 <      ClientWidth = 243
81 >      ClientHeight = 331
82 >      ClientWidth = 189
83        OnShow = SelectPageShow
84        object Label1: TLabel
85          Left = 7
86 <        Height = 15
86 >        Height = 14
87          Top = 3
88          Width = 69
89          Caption = 'Table Name'
# Line 89 | Line 91 | object IBSQLEditorForm: TIBSQLEditorForm
91        end
92        object Label2: TLabel
93          Left = 7
94 <        Height = 15
94 >        Height = 14
95          Top = 53
96          Width = 33
97          Caption = 'Fields'
# Line 97 | Line 99 | object IBSQLEditorForm: TIBSQLEditorForm
99        end
100        object Label4: TLabel
101          Left = 7
102 <        Height = 15
102 >        Height = 14
103          Top = 231
104          Width = 77
105          Caption = 'Primary Keys'
# Line 107 | Line 109 | object IBSQLEditorForm: TIBSQLEditorForm
109          Left = 7
110          Height = 27
111          Top = 19
112 <        Width = 169
112 >        Width = 174
113 >        Anchors = [akTop, akLeft, akRight]
114          AutoComplete = True
115          AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
116          ItemHeight = 0
# Line 119 | Line 122 | object IBSQLEditorForm: TIBSQLEditorForm
122          Height = 136
123          Hint = 'Select Fields to include in Select Statement or leave unselected to select all'
124          Top = 69
125 <        Width = 169
125 >        Width = 174
126 >        Anchors = [akTop, akLeft, akRight]
127          ItemHeight = 0
128          MultiSelect = True
129          OnDblClick = SelectFieldsListDblClick
130          ParentShowHint = False
131 <        ScrollWidth = 167
131 >        ScrollWidth = 172
132          ShowHint = True
133          TabOrder = 1
134          TopIndex = -1
135        end
136        object SelectPrimaryKeys: TListBox
137          Left = 7
138 <        Height = 46
138 >        Height = 77
139          Top = 247
140 <        Width = 159
141 <        Anchors = [akTop, akLeft, akBottom]
140 >        Width = 174
141 >        Anchors = [akTop, akLeft, akRight, akBottom]
142          ItemHeight = 0
143 <        ScrollWidth = 157
143 >        ScrollWidth = 172
144          TabOrder = 2
145          TopIndex = -1
146        end
147      end
148      object InsertPage: TTabSheet
149        Caption = 'Insert'
150 <      ClientHeight = 300
151 <      ClientWidth = 243
150 >      ClientHeight = 331
151 >      ClientWidth = 189
152        OnShow = InsertPageShow
153        object Label8: TLabel
154          Left = 7
# Line 167 | Line 171 | object IBSQLEditorForm: TIBSQLEditorForm
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
# Line 175 | Line 180 | object IBSQLEditorForm: TIBSQLEditorForm
180        end
181        object InsertFieldsList: TListBox
182          Left = 7
183 <        Height = 225
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, akBottom]
187 >        Anchors = [akTop, akLeft, akRight, akBottom]
188          ItemHeight = 0
189          MultiSelect = True
190          OnDblClick = SelectFieldsListDblClick
# Line 192 | Line 197 | object IBSQLEditorForm: TIBSQLEditorForm
197      end
198      object ModifyPage: TTabSheet
199        Caption = 'Modify'
200 <      ClientHeight = 300
201 <      ClientWidth = 243
200 >      ClientHeight = 331
201 >      ClientWidth = 189
202        OnShow = ModifyPageShow
203        object Label10: TLabel
204          Left = 7
# Line 224 | Line 229 | object IBSQLEditorForm: TIBSQLEditorForm
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
# Line 236 | Line 242 | object IBSQLEditorForm: TIBSQLEditorForm
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
# Line 245 | Line 252 | object IBSQLEditorForm: TIBSQLEditorForm
252        end
253        object ModifyPrimaryKeys: TListBox
254          Left = 7
255 <        Height = 46
255 >        Height = 77
256          Top = 244
257 <        Width = 159
258 <        Anchors = [akTop, akLeft, akBottom]
257 >        Width = 169
258 >        Anchors = [akTop, akLeft, akRight, akBottom]
259          ItemHeight = 0
260          OnClick = SelectFieldsListDblClick
261 <        ScrollWidth = 157
261 >        ScrollWidth = 167
262          TabOrder = 2
263          TopIndex = -1
264        end
265        object IncludePrimaryKeys: TCheckBox
266          Left = 5
267 <        Height = 24
267 >        Height = 22
268          Top = 181
269 <        Width = 152
269 >        Width = 150
270          Caption = 'Include Primary keys'
271          OnClick = IncludePrimaryKeysClick
272          TabOrder = 3
# Line 275 | Line 282 | object IBSQLEditorForm: TIBSQLEditorForm
282      end
283      object DeletePage: TTabSheet
284        Caption = 'Delete'
285 <      ClientHeight = 300
286 <      ClientWidth = 243
285 >      ClientHeight = 331
286 >      ClientWidth = 189
287        OnShow = DeletePageShow
288        object Label14: TLabel
289          Left = 7
# Line 299 | Line 306 | object IBSQLEditorForm: TIBSQLEditorForm
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
# Line 309 | Line 317 | object IBSQLEditorForm: TIBSQLEditorForm
317          Left = 7
318          Height = 55
319          Top = 82
320 <        Width = 159
320 >        Width = 167
321 >        Anchors = [akTop, akLeft, akRight]
322          ItemHeight = 0
323          OnDblClick = SelectFieldsListDblClick
324 <        ScrollWidth = 157
324 >        ScrollWidth = 165
325          TabOrder = 1
326          TopIndex = -1
327        end
328      end
329      object ExecutePage: TTabSheet
330        Caption = 'Execute'
331 <      ClientHeight = 300
332 <      ClientWidth = 243
331 >      ClientHeight = 331
332 >      ClientWidth = 189
333        OnShow = ExecutePageShow
334        object Label16: TLabel
335          Left = 7
# Line 351 | Line 360 | object IBSQLEditorForm: TIBSQLEditorForm
360          Height = 27
361          Top = 19
362          Width = 169
363 +        Anchors = [akTop, akLeft, akRight]
364          ItemHeight = 0
365          OnCloseUp = ProcedureNamesCloseUp
366          TabOrder = 0
# Line 360 | Line 370 | object IBSQLEditorForm: TIBSQLEditorForm
370          Height = 80
371          Top = 82
372          Width = 164
373 +        Anchors = [akTop, akLeft, akRight]
374          IntegralHeight = True
375          ItemHeight = 0
376          ScrollWidth = 162
# Line 368 | Line 379 | object IBSQLEditorForm: TIBSQLEditorForm
379        end
380        object ProcOutputList: TListBox
381          Left = 10
382 <        Height = 66
382 >        Height = 97
383          Top = 201
384          Width = 160
385 <        Anchors = [akTop, akLeft, akBottom]
385 >        Anchors = [akTop, akLeft, akRight]
386          IntegralHeight = True
387          ItemHeight = 0
388          ScrollWidth = 158
# Line 381 | Line 392 | object IBSQLEditorForm: TIBSQLEditorForm
392        object SelectProcedure: TLabel
393          Left = 7
394          Height = 14
395 <        Top = 279
395 >        Top = 310
396          Width = 126
397          Anchors = [akLeft, akBottom]
398          Caption = 'Is ''Select Procedure'''
# Line 405 | Line 416 | object IBSQLEditorForm: TIBSQLEditorForm
416    end
417    object GenerateParams: TCheckBox
418      Left = 16
419 <    Height = 24
419 >    Height = 22
420      Top = 368
421 <    Width = 173
421 >    Width = 171
422      Caption = 'Allow DSQL Placeholders'
423      TabOrder = 7
424    end

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines