ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/design/IBDatabaseEdit.lfm

Comparing ibx/trunk/design/IBDatabaseEdit.lfm (file contents):
Revision 39 by tony, Tue May 17 08:14:52 2016 UTC vs.
Revision 231 by tony, Mon Apr 16 08:32:21 2018 UTC

#	Line 3 | Line 3 | object IBDatabaseEditForm: TIBDatabaseEd
3		Height = 517
4		Top = 125
5		Width = 462
6	–	ActiveControl = LocalRbtn
6		BorderStyle = bsDialog
7		BorderWidth = 5
8	<	Caption = 'Database Component Editor'
8	>	Caption = 'Database Connection Editor'
9		ClientHeight = 517
10		ClientWidth = 462
11		HelpFile = 'ibx.hlp'
12		OnCreate = FormCreate
13		ParentFont = True
14		Position = poScreenCenter
15	<	LCLVersion = '1.6.0.4'
15	>	LCLVersion = '1.8.3.0'
16		object Panel1: TPanel
17		Left = 5
18		Height = 36
#	Line 23 | Line 22 | object IBDatabaseEditForm: TIBDatabaseEd
22		BevelOuter = bvNone
23		ClientHeight = 36
24		ClientWidth = 452
25	<	TabOrder = 2
25	>	TabOrder = 1
26		object OKBtn: TButton
27		Left = 83
28		Height = 30
#	Line 54 | Line 53 | object IBDatabaseEditForm: TIBDatabaseEd
53		TabOrder = 2
54		end
55		end
57	–	object GroupBox2: TGroupBox
58	–	Left = 5
59	–	Height = 179
60	–	Top = 5
61	–	Width = 452
62	–	Align = alTop
63	–	Caption = 'Connection'
64	–	ClientHeight = 163
65	–	ClientWidth = 450
66	–	TabOrder = 0
67	–	object Label1: TLabel
68	–	Left = 24
69	–	Height = 15
70	–	Top = 98
71	–	Width = 60
72	–	Caption = '&Database:'
73	–	FocusControl = DatabaseName
74	–	ParentColor = False
75	–	end
76	–	object Label7: TLabel
77	–	Left = 24
78	–	Height = 15
79	–	Top = 48
80	–	Width = 43
81	–	Caption = '&Server:'
82	–	Enabled = False
83	–	FocusControl = ServerName
84	–	ParentColor = False
85	–	end
86	–	object Label8: TLabel
87	–	Left = 209
88	–	Height = 15
89	–	Top = 48
90	–	Width = 52
91	–	Caption = '&Protocol:'
92	–	Enabled = False
93	–	FocusControl = Protocol
94	–	ParentColor = False
95	–	end
96	–	object DatabaseName: TEdit
97	–	Left = 24
98	–	Height = 25
99	–	Top = 116
100	–	Width = 414
101	–	TabOrder = 5
102	–	end
103	–	object LocalRbtn: TRadioButton
104	–	Left = 24
105	–	Height = 22
106	–	Top = 9
107	–	Width = 55
108	–	Caption = '&Local'
109	–	Checked = True
110	–	OnClick = LocalRbtnClick
111	–	TabOrder = 0
112	–	TabStop = True
113	–	end
114	–	object RemoteRbtn: TRadioButton
115	–	Left = 89
116	–	Height = 22
117	–	Top = 9
118	–	Width = 69
119	–	Caption = '&Remote'
120	–	OnClick = RemoteRbtnClick
121	–	TabOrder = 1
122	–	end
123	–	object Browse: TButton
124	–	Left = 353
125	–	Height = 30
126	–	Top = 66
127	–	Width = 75
128	–	Caption = '&Browse'
129	–	OnClick = BrowseClick
130	–	TabOrder = 2
131	–	end
132	–	object ServerName: TEdit
133	–	Left = 24
134	–	Height = 25
135	–	Top = 66
136	–	Width = 144
137	–	Enabled = False
138	–	TabOrder = 3
139	–	end
140	–	object Protocol: TComboBox
141	–	Left = 209
142	–	Height = 27
143	–	Top = 66
144	–	Width = 120
145	–	Enabled = False
146	–	ItemHeight = 0
147	–	Items.Strings = (
148	–	'TCP'
149	–	'NamedPipe'
150	–	'SPX'
151	–	)
152	–	TabOrder = 4
153	–	end
154	–	end
56		object GroupBox1: TGroupBox
57		Left = 5
58	<	Height = 292
59	<	Top = 184
58	>	Height = 316
59	>	Top = 160
60		Width = 452
160	–	Align = alClient
61		Caption = 'Database Parameters'
62	<	ClientHeight = 276
62	>	ClientHeight = 301
63		ClientWidth = 450
64	<	TabOrder = 1
64	>	TabOrder = 0
65		object Label2: TLabel
66		Left = 24
67	<	Height = 15
67	>	Height = 14
68		Top = 9
69		Width = 70
70		Caption = '&User Name:'
#	Line 173 | Line 73 | object IBDatabaseEditForm: TIBDatabaseEd
73		end
74		object Label3: TLabel
75		Left = 24
76	<	Height = 15
76	>	Height = 14
77		Top = 65
78		Width = 59
79		Caption = 'Pass&word:'
#	Line 182 | Line 82 | object IBDatabaseEditForm: TIBDatabaseEd
82		end
83		object Label4: TLabel
84		Left = 24
85	<	Height = 15
85	>	Height = 14
86		Top = 121
87		Width = 52
88		Caption = 'S&QLRole:'
#	Line 191 | Line 91 | object IBDatabaseEditForm: TIBDatabaseEd
91		end
92		object Label5: TLabel
93		Left = 249
94	<	Height = 15
94	>	Height = 14
95		Top = 9
96		Width = 54
97		Caption = 'Se&ttings:'
#	Line 200 | Line 100 | object IBDatabaseEditForm: TIBDatabaseEd
100		end
101		object Label6: TLabel
102		Left = 24
103	<	Height = 15
103	>	Height = 14
104		Top = 177
105		Width = 87
106		Caption = '&Character Set:'
#	Line 209 | Line 109 | object IBDatabaseEditForm: TIBDatabaseEd
109		end
110		object UserName: TEdit
111		Left = 24
112	<	Height = 25
112	>	Height = 24
113		Top = 27
114		Width = 137
115	<	OnChange = UserNameChange
216	<	OnExit = UserNameChange
115	>	OnEditingDone = UserNameEditingDone
116		TabOrder = 0
117		end
118		object Password: TEdit
119		Left = 24
120	<	Height = 25
120	>	Height = 24
121		Top = 83
122		Width = 137
123	<	OnChange = PasswordChange
225	<	OnExit = PasswordChange
123	>	OnEditingDone = PasswordEditingDone
124		TabOrder = 1
125		end
126		object SQLRole: TEdit
127		Left = 24
128	<	Height = 25
128	>	Height = 24
129		Top = 139
130		Width = 134
131	<	OnChange = SQLRoleChange
234	<	OnExit = SQLRoleChange
131	>	OnEditingDone = SQLRoleEditingDone
132		TabOrder = 2
133		end
134		object DatabaseParams: TMemo
#	Line 239 | Line 136 | object IBDatabaseEditForm: TIBDatabaseEd
136		Height = 124
137		Top = 27
138		Width = 183
139	+	OnEditingDone = DatabaseParamsEditingDone
140		ScrollBars = ssAutoVertical
141		TabOrder = 5
142		end
#	Line 256 | Line 154 | object IBDatabaseEditForm: TIBDatabaseEd
154		Top = 195
155		Width = 134
156		ItemHeight = 0
259	–	ItemIndex = 0
157		Items.Strings = (
261	–	'None'
158		'ASCII'
159		'BIG_5'
160		'CP943C'
#	Line 314 | Line 210 | object IBDatabaseEditForm: TIBDatabaseEd
210		)
211		OnChange = CharacterSetChange
212		TabOrder = 3
317	–	Text = 'None'
213		end
214		object UseSystemDefaultCS: TCheckBox
215		Left = 209
#	Line 326 | Line 221 | object IBDatabaseEditForm: TIBDatabaseEd
221		TabOrder = 6
222		end
223		end
224	+	object Label7: TLabel
225	+	Left = 24
226	+	Height = 14
227	+	Top = 56
228	+	Width = 43
229	+	Caption = '&Server:'
230	+	FocusControl = ServerName
231	+	ParentColor = False
232	+	end
233	+	object ServerName: TEdit
234	+	Left = 24
235	+	Height = 24
236	+	Top = 74
237	+	Width = 144
238	+	TabOrder = 2
239	+	end
240	+	object Label8: TLabel
241	+	Left = 209
242	+	Height = 14
243	+	Top = 56
244	+	Width = 52
245	+	Caption = '&Protocol:'
246	+	FocusControl = Protocol
247	+	ParentColor = False
248	+	end
249	+	object Protocol: TComboBox
250	+	Left = 209
251	+	Height = 27
252	+	Top = 74
253	+	Width = 120
254	+	ItemHeight = 0
255	+	ItemIndex = 4
256	+	Items.Strings = (
257	+	'TCP'
258	+	'NamedPipe'
259	+	'SPX'
260	+	'Local'
261	+	'inet'
262	+	'inet4'
263	+	'inet6'
264	+	'wnet'
265	+	'xnet'
266	+	)
267	+	OnCloseUp = ProtocolCloseUp
268	+	TabOrder = 3
269	+	Text = 'inet'
270	+	end
271	+	object Label9: TLabel
272	+	Left = 357
273	+	Height = 14
274	+	Top = 56
275	+	Width = 48
276	+	Caption = 'Port No.'
277	+	ParentColor = False
278	+	end
279	+	object PortNo: TEdit
280	+	Left = 357
281	+	Height = 24
282	+	Top = 77
283	+	Width = 48
284	+	TabOrder = 4
285	+	end
286	+	object Label1: TLabel
287	+	Left = 24
288	+	Height = 14
289	+	Top = 106
290	+	Width = 60
291	+	Caption = '&Database:'
292	+	FocusControl = DatabasePath
293	+	ParentColor = False
294	+	end
295	+	object DatabasePath: TEdit
296	+	Left = 24
297	+	Height = 24
298	+	Top = 124
299	+	Width = 328
300	+	TabOrder = 5
301	+	end
302	+	object Browse: TButton
303	+	Left = 357
304	+	Height = 30
305	+	Top = 120
306	+	Width = 75
307	+	Caption = '&Browse'
308	+	OnClick = BrowseClick
309	+	TabOrder = 6
310	+	end
311	+	object ConnectionTypeBtn: TRadioGroup
312	+	Left = 24
313	+	Height = 41
314	+	Top = 10
315	+	Width = 408
316	+	AutoFill = True
317	+	Caption = 'Connection'
318	+	ChildSizing.LeftRightSpacing = 6
319	+	ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
320	+	ChildSizing.EnlargeVertical = crsHomogenousChildResize
321	+	ChildSizing.ShrinkHorizontal = crsScaleChilds
322	+	ChildSizing.ShrinkVertical = crsScaleChilds
323	+	ChildSizing.Layout = cclLeftToRightThenTopToBottom
324	+	ChildSizing.ControlsPerLine = 2
325	+	ClientHeight = 26
326	+	ClientWidth = 406
327	+	Columns = 2
328	+	ItemIndex = 0
329	+	Items.Strings = (
330	+	'Local'
331	+	'Remote'
332	+	)
333	+	OnSelectionChanged = ConnectionTypeBtnSelectionChanged
334	+	TabOrder = 7
335	+	end
336		end

Diff Legend

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