trunk/design/IBDatabaseEdit.lfm

object IBDatabaseEditForm: TIBDatabaseEditForm
  Left = 488
  Height = 517
  Top = 125
  Width = 462
  BorderStyle = bsDialog
  BorderWidth = 5
  Caption = 'Database Connection Editor'
  ClientHeight = 517
  ClientWidth = 462
  HelpFile = 'ibx.hlp'
  OnCreate = FormCreate
  ParentFont = True
  Position = poScreenCenter
  LCLVersion = '1.8.3.0'
  object Panel1: TPanel
    Left = 5
    Height = 36
    Top = 476
    Width = 452
    Align = alBottom
    BevelOuter = bvNone
    ClientHeight = 36
    ClientWidth = 452
    TabOrder = 1
    object OKBtn: TButton
      Left = 83
      Height = 30
      Top = 6
      Width = 75
      Caption = '&OK'
      Default = True
      OnClick = OKBtnClick
      TabOrder = 0
    end
    object CancelBtn: TButton
      Left = 164
      Height = 30
      Top = 7
      Width = 74
      Cancel = True
      Caption = 'Cancel'
      ModalResult = 2
      TabOrder = 1
    end
    object Test: TButton
      Left = 244
      Height = 30
      Top = 6
      Width = 75
      Caption = '&Test'
      OnClick = TestClick
      TabOrder = 2
    end
  end
  object GroupBox1: TGroupBox
    Left = 5
    Height = 316
    Top = 160
    Width = 452
    Caption = 'Database Parameters'
    ClientHeight = 301
    ClientWidth = 450
    TabOrder = 0
    object Label2: TLabel
      Left = 24
      Height = 14
      Top = 9
      Width = 70
      Caption = '&User Name:'
      FocusControl = UserName
      ParentColor = False
    end
    object Label3: TLabel
      Left = 24
      Height = 14
      Top = 65
      Width = 59
      Caption = 'Pass&word:'
      FocusControl = Password
      ParentColor = False
    end
    object Label4: TLabel
      Left = 24
      Height = 14
      Top = 121
      Width = 52
      Caption = 'S&QLRole:'
      FocusControl = SQLRole
      ParentColor = False
    end
    object Label5: TLabel
      Left = 249
      Height = 14
      Top = 9
      Width = 54
      Caption = 'Se&ttings:'
      FocusControl = DatabaseParams
      ParentColor = False
    end
    object Label6: TLabel
      Left = 24
      Height = 14
      Top = 177
      Width = 87
      Caption = '&Character Set:'
      FocusControl = CharacterSet
      ParentColor = False
    end
    object UserName: TEdit
      Left = 24
      Height = 24
      Top = 27
      Width = 137
      OnEditingDone = UserNameEditingDone
      TabOrder = 0
    end
    object Password: TEdit
      Left = 24
      Height = 24
      Top = 83
      Width = 137
      OnEditingDone = PasswordEditingDone
      TabOrder = 1
    end
    object SQLRole: TEdit
      Left = 24
      Height = 24
      Top = 139
      Width = 134
      OnEditingDone = SQLRoleEditingDone
      TabOrder = 2
    end
    object DatabaseParams: TMemo
      Left = 249
      Height = 124
      Top = 27
      Width = 183
      OnEditingDone = DatabaseParamsEditingDone
      ScrollBars = ssAutoVertical
      TabOrder = 5
    end
    object LoginPrompt: TCheckBox
      Left = 24
      Height = 22
      Top = 235
      Width = 105
      Caption = 'Lo&gin Prompt'
      TabOrder = 4
    end
    object CharacterSet: TComboBox
      Left = 24
      Height = 27
      Top = 195
      Width = 134
      ItemHeight = 0
      Items.Strings = (
        'ASCII'
        'BIG_5'
        'CP943C'
        'CYRL'
        'DOS437'
        'DOS737'
        'DOS775'
        'DOS850'
        'DOS852'
        'DOS857'
        'DOS858'
        'DOS860'
        'DOS861'
        'DOS862'
        'DOS863'
        'DOS864'
        'DOS865'
        'DOS866'
        'DOS869'
        'EUCJ_0208'
        'GB18030'
        'GBK'
        'GB_2312'
        'ISO8859_1'
        'ISO8859_13'
        'ISO8859_2'
        'ISO8859_3'
        'ISO8859_4'
        'ISO8859_5'
        'ISO8859_6'
        'ISO8859_7'
        'ISO8859_8'
        'ISO8859_9'
        'KOI8R'
        'KOI8U'
        'KSC_5601'
        'NEXT'
        'NONE'
        'OCTETS'
        'SJIS_0208'
        'TIS620'
        'UNICODE_FSS'
        'UTF8'
        'WIN1250'
        'WIN1251'
        'WIN1252'
        'WIN1253'
        'WIN1254'
        'WIN1255'
        'WIN1256'
        'WIN1257'
        'WIN1258'
      )
      OnChange = CharacterSetChange
      TabOrder = 3
    end
    object UseSystemDefaultCS: TCheckBox
      Left = 209
      Height = 22
      Top = 200
      Width = 229
      Caption = 'Use System Default Character Set'
      OnChange = UseSystemDefaultCSChange
      TabOrder = 6
    end
  end
  object Label7: TLabel
    Left = 24
    Height = 14
    Top = 56
    Width = 43
    Caption = '&Server:'
    FocusControl = ServerName
    ParentColor = False
  end
  object ServerName: TEdit
    Left = 24
    Height = 24
    Top = 74
    Width = 144
    TabOrder = 2
  end
  object Label8: TLabel
    Left = 209
    Height = 14
    Top = 56
    Width = 52
    Caption = '&Protocol:'
    FocusControl = Protocol
    ParentColor = False
  end
  object Protocol: TComboBox
    Left = 209
    Height = 27
    Top = 74
    Width = 120
    ItemHeight = 0
    ItemIndex = 4
    Items.Strings = (
      'TCP'
      'NamedPipe'
      'SPX'
      'Local'
      'inet'
      'inet4'
      'inet6'
      'wnet'
      'xnet'
    )
    OnCloseUp = ProtocolCloseUp
    TabOrder = 3
    Text = 'inet'
  end
  object Label9: TLabel
    Left = 357
    Height = 14
    Top = 56
    Width = 48
    Caption = 'Port No.'
    ParentColor = False
  end
  object PortNo: TEdit
    Left = 357
    Height = 24
    Top = 77
    Width = 48
    TabOrder = 4
  end
  object Label1: TLabel
    Left = 24
    Height = 14
    Top = 106
    Width = 60
    Caption = '&Database:'
    FocusControl = DatabasePath
    ParentColor = False
  end
  object DatabasePath: TEdit
    Left = 24
    Height = 24
    Top = 124
    Width = 328
    TabOrder = 5
  end
  object Browse: TButton
    Left = 357
    Height = 30
    Top = 120
    Width = 75
    Caption = '&Browse'
    OnClick = BrowseClick
    TabOrder = 6
  end
  object ConnectionTypeBtn: TRadioGroup
    Left = 24
    Height = 41
    Top = 10
    Width = 408
    AutoFill = True
    Caption = 'Connection'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 2
    ClientHeight = 26
    ClientWidth = 406
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'Local'
      'Remote'
    )
    OnSelectionChanged = ConnectionTypeBtnSelectionChanged
    TabOrder = 7
  end
end
Revision:	231
Committed:	Mon Apr 16 08:32:21 2018 UTC (6 years, 7 months ago) by tony
File size:	6646 byte(s)
Log Message:	Fixes merged
#	User	Rev	Content
1	tony	5	object IBDatabaseEditForm: TIBDatabaseEditForm
2	tony	7	Left = 488
3			Height = 517
4	tony	5	Top = 125
5			Width = 462
6			BorderStyle = bsDialog
7			BorderWidth = 5
8	tony	231	Caption = 'Database Connection Editor'
9	tony	7	ClientHeight = 517
10	tony	5	ClientWidth = 462
11			HelpFile = 'ibx.hlp'
12			OnCreate = FormCreate
13			ParentFont = True
14			Position = poScreenCenter
15	tony	231	LCLVersion = '1.8.3.0'
16	tony	5	object Panel1: TPanel
17			Left = 5
18			Height = 36
19	tony	7	Top = 476
20	tony	5	Width = 452
21			Align = alBottom
22			BevelOuter = bvNone
23			ClientHeight = 36
24			ClientWidth = 452
25	tony	231	TabOrder = 1
26	tony	5	object OKBtn: TButton
27	tony	7	Left = 83
28			Height = 30
29			Top = 6
30	tony	5	Width = 75
31	tony	7	Caption = '&OK'
32	tony	5	Default = True
33			OnClick = OKBtnClick
34			TabOrder = 0
35			end
36			object CancelBtn: TButton
37	tony	7	Left = 164
38			Height = 30
39	tony	5	Top = 7
40			Width = 74
41			Cancel = True
42			Caption = 'Cancel'
43			ModalResult = 2
44			TabOrder = 1
45			end
46			object Test: TButton
47	tony	7	Left = 244
48			Height = 30
49	tony	5	Top = 6
50			Width = 75
51			Caption = '&Test'
52			OnClick = TestClick
53			TabOrder = 2
54			end
55			end
56			object GroupBox1: TGroupBox
57			Left = 5
58	tony	231	Height = 316
59			Top = 160
60	tony	5	Width = 452
61			Caption = 'Database Parameters'
62	tony	231	ClientHeight = 301
63	tony	33	ClientWidth = 450
64	tony	231	TabOrder = 0
65	tony	5	object Label2: TLabel
66	tony	7	Left = 24
67	tony	67	Height = 14
68	tony	7	Top = 9
69	tony	33	Width = 70
70	tony	5	Caption = '&User Name:'
71			FocusControl = UserName
72			ParentColor = False
73			end
74			object Label3: TLabel
75	tony	7	Left = 24
76	tony	67	Height = 14
77	tony	7	Top = 65
78	tony	33	Width = 59
79	tony	5	Caption = 'Pass&word:'
80			FocusControl = Password
81			ParentColor = False
82			end
83			object Label4: TLabel
84			Left = 24
85	tony	67	Height = 14
86	tony	7	Top = 121
87	tony	33	Width = 52
88	tony	5	Caption = 'S&QLRole:'
89			FocusControl = SQLRole
90			ParentColor = False
91			end
92			object Label5: TLabel
93			Left = 249
94	tony	67	Height = 14
95	tony	7	Top = 9
96	tony	33	Width = 54
97	tony	5	Caption = 'Se&ttings:'
98			FocusControl = DatabaseParams
99			ParentColor = False
100			end
101			object Label6: TLabel
102	tony	7	Left = 24
103	tony	67	Height = 14
104	tony	7	Top = 177
105	tony	33	Width = 87
106	tony	5	Caption = '&Character Set:'
107			FocusControl = CharacterSet
108			ParentColor = False
109			end
110			object UserName: TEdit
111			Left = 24
112	tony	67	Height = 24
113	tony	7	Top = 27
114	tony	5	Width = 137
115	tony	231	OnEditingDone = UserNameEditingDone
116	tony	5	TabOrder = 0
117			end
118			object Password: TEdit
119	tony	7	Left = 24
120	tony	67	Height = 24
121	tony	7	Top = 83
122	tony	5	Width = 137
123	tony	231	OnEditingDone = PasswordEditingDone
124	tony	5	TabOrder = 1
125			end
126			object SQLRole: TEdit
127	tony	7	Left = 24
128	tony	67	Height = 24
129	tony	7	Top = 139
130	tony	5	Width = 134
131	tony	231	OnEditingDone = SQLRoleEditingDone
132	tony	5	TabOrder = 2
133			end
134			object DatabaseParams: TMemo
135	tony	7	Left = 249
136	tony	5	Height = 124
137	tony	7	Top = 27
138	tony	5	Width = 183
139	tony	231	OnEditingDone = DatabaseParamsEditingDone
140	tony	7	ScrollBars = ssAutoVertical
141	tony	5	TabOrder = 5
142			end
143			object LoginPrompt: TCheckBox
144	tony	7	Left = 24
145	tony	5	Height = 22
146	tony	7	Top = 235
147	tony	33	Width = 105
148	tony	5	Caption = 'Lo&gin Prompt'
149			TabOrder = 4
150			end
151			object CharacterSet: TComboBox
152	tony	7	Left = 24
153	tony	33	Height = 27
154	tony	7	Top = 195
155	tony	5	Width = 134
156			ItemHeight = 0
157			Items.Strings = (
158	tony	39	'ASCII'
159			'BIG_5'
160			'CP943C'
161			'CYRL'
162			'DOS437'
163			'DOS737'
164			'DOS775'
165			'DOS850'
166			'DOS852'
167			'DOS857'
168			'DOS858'
169			'DOS860'
170			'DOS861'
171			'DOS862'
172			'DOS863'
173			'DOS864'
174			'DOS865'
175			'DOS866'
176			'DOS869'
177			'EUCJ_0208'
178			'GB18030'
179			'GBK'
180			'GB_2312'
181			'ISO8859_1'
182			'ISO8859_13'
183			'ISO8859_2'
184			'ISO8859_3'
185			'ISO8859_4'
186			'ISO8859_5'
187			'ISO8859_6'
188			'ISO8859_7'
189			'ISO8859_8'
190			'ISO8859_9'
191			'KOI8R'
192			'KOI8U'
193			'KSC_5601'
194			'NEXT'
195			'NONE'
196			'OCTETS'
197			'SJIS_0208'
198			'TIS620'
199			'UNICODE_FSS'
200			'UTF8'
201			'WIN1250'
202			'WIN1251'
203			'WIN1252'
204			'WIN1253'
205			'WIN1254'
206			'WIN1255'
207			'WIN1256'
208			'WIN1257'
209			'WIN1258'
210	tony	5	)
211	tony	7	OnChange = CharacterSetChange
212	tony	5	TabOrder = 3
213			end
214	tony	39	object UseSystemDefaultCS: TCheckBox
215			Left = 209
216			Height = 22
217			Top = 200
218			Width = 229
219			Caption = 'Use System Default Character Set'
220			OnChange = UseSystemDefaultCSChange
221			TabOrder = 6
222			end
223	tony	5	end
224	tony	231	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	tony	5	end