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

Comparing ibx/trunk/design/ibmodifysqleditor.lfm (file contents):
Revision 5 by tony, Fri Feb 18 16:26:16 2011 UTC vs.
Revision 67 by tony, Tue Oct 3 14:08:11 2017 UTC

# Line 1 | Line 1
1   object IBModifySQLEditorForm: TIBModifySQLEditorForm
2 <  Left = 330
2 >  Left = 508
3    Height = 438
4 <  Top = 215
4 >  Top = 250
5    Width = 749
6  ActiveControl = TableNamesCombo
6    Caption = 'Modify SQL Editor'
7    ClientHeight = 438
8    ClientWidth = 749
9    OnShow = FormShow
10 <  LCLVersion = '0.9.28.2'
11 <  object Label1: TLabel
13 <    Left = 16
14 <    Height = 19
15 <    Top = 16
16 <    Width = 87
17 <    Caption = 'Table Name'
18 <    ParentColor = False
19 <  end
20 <  object Label2: TLabel
21 <    Left = 19
22 <    Height = 19
23 <    Top = 84
24 <    Width = 41
25 <    Caption = 'Fields'
26 <    ParentColor = False
27 <  end
10 >  Position = poScreenCenter
11 >  LCLVersion = '1.8.0.4'
12    object Label3: TLabel
13      Left = 279
14 <    Height = 19
14 >    Height = 14
15      Top = 16
16 <    Width = 29
16 >    Width = 24
17      Caption = 'SQL'
18      ParentColor = False
19    end
36  object Label4: TLabel
37    Left = 23
38    Height = 19
39    Top = 285
40    Width = 93
41    Caption = 'Primary Keys'
42    ParentColor = False
43  end
20    object SQLText: TMemo
21      Left = 279
22      Height = 328
23      Top = 36
24      Width = 439
25 <    ScrollBars = ssVertical
25 >    Anchors = [akTop, akLeft, akRight, akBottom]
26 >    ScrollBars = ssAutoBoth
27      TabOrder = 0
28    end
29    object Button1: TButton
30      Left = 552
31      Height = 30
32 <    Top = 380
32 >    Top = 379
33      Width = 72
34 +    Anchors = [akRight, akBottom]
35      Caption = 'OK'
36      Default = True
37      ModalResult = 1
# Line 64 | Line 42 | object IBModifySQLEditorForm: TIBModifyS
42      Height = 30
43      Top = 380
44      Width = 72
45 +    Anchors = [akRight, akBottom]
46      Cancel = True
47      Caption = 'Cancel'
48      ModalResult = 2
49      TabOrder = 2
50    end
51 <  object TableNamesCombo: TComboBox
73 <    Left = 23
74 <    Height = 30
75 <    Top = 38
76 <    Width = 201
77 <    ItemHeight = 0
78 <    OnCloseUp = TableNamesComboCloseUp
79 <    ParentColor = True
80 <    TabOrder = 3
81 <  end
82 <  object FieldList: TListBox
83 <    Left = 21
84 <    Height = 170
85 <    Hint = 'Select Fields to include in Update Statement, or leave unselected to select all'
86 <    Top = 102
87 <    Width = 204
88 <    ItemHeight = 0
89 <    MultiSelect = True
90 <    OnDblClick = FieldListDblClick
91 <    ParentShowHint = False
92 <    ShowHint = True
93 <    TabOrder = 4
94 <    TopIndex = -1
95 <  end
96 <  object Button3: TButton
51 >  object GenerateBtn: TButton
52      Left = 280
53      Height = 30
54      Top = 380
55 <    Width = 112
56 <    AutoSize = True
55 >    Width = 101
56 >    Anchors = [akRight, akBottom]
57      Caption = 'Generate SQL'
58 <    OnClick = Button3Click
59 <    TabOrder = 5
58 >    OnClick = GenerateBtnClick
59 >    TabOrder = 3
60    end
61 <  object Button4: TButton
61 >  object TestBtn: TButton
62      Left = 416
63      Height = 30
64      Top = 380
65      Width = 66
66 +    Anchors = [akRight, akBottom]
67      Caption = 'Test'
68 <    OnClick = Button4Click
69 <    TabOrder = 6
68 >    OnClick = TestBtnClick
69 >    TabOrder = 4
70    end
71    object QuoteFields: TCheckBox
72      Left = 16
73      Height = 22
74 <    Top = 380
75 <    Width = 144
74 >    Top = 400
75 >    Width = 125
76      Caption = '&Quote Identifiers'
77 <    TabOrder = 7
77 >    TabOrder = 5
78 >  end
79 >  object GenerateParams: TCheckBox
80 >    Left = 16
81 >    Height = 22
82 >    Top = 376
83 >    Width = 171
84 >    Caption = 'Allow DSQL Placeholders'
85 >    TabOrder = 6
86    end
87 <  object PrimaryKeyList: TListBox
88 <    Left = 23
89 <    Height = 59
90 <    Top = 304
91 <    Width = 200
92 <    ItemHeight = 0
93 <    OnDblClick = PrimaryKeyListDblClick
94 <    TabOrder = 8
95 <    TopIndex = -1
87 >  object PageControl: TPageControl
88 >    Left = 18
89 >    Height = 346
90 >    Top = 18
91 >    Width = 238
92 >    ActivePage = ExecutePage
93 >    TabIndex = 1
94 >    TabOrder = 7
95 >    object ModifyPage: TTabSheet
96 >      Caption = 'Update'
97 >      ClientHeight = 314
98 >      ClientWidth = 232
99 >      OnShow = ModifyPageShow
100 >      object Label1: TLabel
101 >        Left = 8
102 >        Height = 15
103 >        Top = 8
104 >        Width = 69
105 >        Caption = 'Table Name'
106 >        ParentColor = False
107 >      end
108 >      object TableNamesCombo: TComboBox
109 >        Left = 8
110 >        Height = 27
111 >        Top = 22
112 >        Width = 201
113 >        AutoComplete = True
114 >        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
115 >        ItemHeight = 0
116 >        OnCloseUp = TableNamesComboCloseUp
117 >        TabOrder = 0
118 >      end
119 >      object Label2: TLabel
120 >        Left = 8
121 >        Height = 15
122 >        Top = 56
123 >        Width = 33
124 >        Caption = 'Fields'
125 >        ParentColor = False
126 >      end
127 >      object FieldList: TListBox
128 >        Left = 8
129 >        Height = 120
130 >        Hint = 'Select Fields to include in Update Statement, or leave unselected to select all'
131 >        Top = 72
132 >        Width = 200
133 >        ItemHeight = 0
134 >        MultiSelect = True
135 >        OnDblClick = FieldListDblClick
136 >        ParentShowHint = False
137 >        ScrollWidth = 198
138 >        ShowHint = True
139 >        TabOrder = 1
140 >        TopIndex = -1
141 >      end
142 >      object IncludePrimaryKeys: TCheckBox
143 >        Left = 8
144 >        Height = 22
145 >        Top = 200
146 >        Width = 221
147 >        Caption = 'Include Primary keys in Field List'
148 >        Checked = True
149 >        OnClick = TableNamesComboCloseUp
150 >        State = cbChecked
151 >        TabOrder = 2
152 >      end
153 >      object Label4: TLabel
154 >        Left = 8
155 >        Height = 15
156 >        Top = 229
157 >        Width = 77
158 >        Caption = 'Primary Keys'
159 >        ParentColor = False
160 >      end
161 >      object PrimaryKeyList: TListBox
162 >        Left = 8
163 >        Height = 59
164 >        Top = 248
165 >        Width = 200
166 >        ItemHeight = 0
167 >        OnDblClick = PrimaryKeyListDblClick
168 >        ScrollWidth = 198
169 >        TabOrder = 3
170 >        TopIndex = -1
171 >      end
172 >    end
173 >    object ExecutePage: TTabSheet
174 >      Caption = 'Execute'
175 >      ClientHeight = 314
176 >      ClientWidth = 232
177 >      OnShow = ExecutePageShow
178 >      object Label16: TLabel
179 >        Left = 7
180 >        Height = 14
181 >        Top = 8
182 >        Width = 100
183 >        Caption = 'Procedure Name'
184 >        ParentColor = False
185 >      end
186 >      object ProcedureNames: TComboBox
187 >        Left = 7
188 >        Height = 27
189 >        Top = 24
190 >        Width = 201
191 >        ItemHeight = 0
192 >        OnCloseUp = ProcedureNamesCloseUp
193 >        ParentColor = True
194 >        TabOrder = 0
195 >      end
196 >      object Label17: TLabel
197 >        Left = 7
198 >        Height = 14
199 >        Top = 56
200 >        Width = 104
201 >        Caption = 'Input Parameters'
202 >        ParentColor = False
203 >      end
204 >      object ProcInputList: TListBox
205 >        Left = 8
206 >        Height = 103
207 >        Top = 72
208 >        Width = 198
209 >        IntegralHeight = True
210 >        ItemHeight = 0
211 >        ScrollWidth = 196
212 >        TabOrder = 1
213 >        TopIndex = -1
214 >      end
215 >      object ProcOutputList: TListBox
216 >        Left = 7
217 >        Height = 80
218 >        Top = 200
219 >        Width = 198
220 >        IntegralHeight = True
221 >        ItemHeight = 0
222 >        ScrollWidth = 196
223 >        TabOrder = 2
224 >        TopIndex = -1
225 >      end
226 >      object Label18: TLabel
227 >        Left = 7
228 >        Height = 14
229 >        Top = 184
230 >        Width = 114
231 >        Caption = 'Output Parameters'
232 >        ParentColor = False
233 >      end
234 >      object ExecuteOnlyIndicator: TLabel
235 >        Left = 10
236 >        Height = 14
237 >        Top = 293
238 >        Width = 89
239 >        Caption = 'Execute Only'
240 >        Font.Style = [fsBold]
241 >        ParentColor = False
242 >        ParentFont = False
243 >        Visible = False
244 >      end
245 >    end
246 >  end
247 >  object IBTransaction1: TIBTransaction
248 >    Active = False
249 >    left = 209
250 >    top = 388
251    end
252   end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines