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

Comparing ibx/trunk/design/IBDatabaseEdit.lfm (file contents):
Revision 67 by tony, Tue Oct 3 14:08:11 2017 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.8.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 = 164
65 –    ClientWidth = 450
66 –    TabOrder = 0
67 –    object Label1: TLabel
68 –      Left = 24
69 –      Height = 14
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 = 14
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 = 14
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 = 24
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 = 24
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 = 277
62 >    ClientHeight = 301
63      ClientWidth = 450
64 <    TabOrder = 1
64 >    TabOrder = 0
65      object Label2: TLabel
66        Left = 24
67        Height = 14
# Line 212 | Line 112 | object IBDatabaseEditForm: TIBDatabaseEd
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
# Line 221 | Line 120 | object IBDatabaseEditForm: TIBDatabaseEd
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
# Line 230 | Line 128 | object IBDatabaseEditForm: TIBDatabaseEd
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