ViewVC Help

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

root/public/ibx/trunk/examples/lookupcombobox/Unit1.lfm

Comparing ibx/trunk/examples/lookupcombobox/Unit1.lfm (file contents):
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC

#	Line 1 | Line 1
1		object Form1: TForm1
2	<	Left = 711
2	>	Left = 616
3		Height = 329
4		Top = 256
5		Width = 658
6		Caption = 'IBLookup Combo Box Demo'
7		ClientHeight = 329
8		ClientWidth = 658
9	+	DefaultMonitor = dmPrimary
10		OnClose = FormClose
11		OnShow = FormShow
12	<	LCLVersion = '1.6.0.4'
12	>	Position = poScreenCenter
13	>	LCLVersion = '1.8.1.0'
14		object Label1: TLabel
15		Left = 16
16	<	Height = 15
16	>	Height = 14
17		Top = 16
18	<	Width = 87
18	>	Width = 98
19		Caption = 'Employee Name'
20		ParentColor = False
21		end
22		object IBLookupComboEditBox1: TIBLookupComboEditBox
23		Left = 16
24	<	Height = 23
24	>	Height = 27
25		Top = 32
26		Width = 224
27		KeyField = 'EMP_NO'
#	Line 31 | Line 33 | object Form1: TForm1
33		TabOrder = 0
34		AutoInsert = True
35		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
36	<	ItemHeight = 15
36	>	ItemHeight = 0
37		KeyPressInterval = 600
38		OnCanAutoInsert = IBLookupComboEditBox1CanAutoInsert
39		end
40		object Label2: TLabel
41		Left = 16
42	<	Height = 15
42	>	Height = 14
43		Top = 79
44	<	Width = 90
44	>	Width = 103
45		Caption = 'Employee Details'
46		ParentColor = False
47		end
#	Line 56 | Line 58 | object Form1: TForm1
58		TabOrder = 1
59		object Label3: TLabel
60		Left = 14
61	<	Height = 15
61	>	Height = 14
62		Top = 18
63	<	Width = 57
63	>	Width = 64
64		Caption = 'First Name'
65		ParentColor = False
66		end
67		object DBEdit1: TDBEdit
68		Left = 14
69	<	Height = 23
69	>	Height = 24
70		Top = 32
71		Width = 136
72		DataField = 'FIRST_NAME'
#	Line 75 | Line 77 | object Form1: TForm1
77		end
78		object Label4: TLabel
79		Left = 168
80	<	Height = 15
80	>	Height = 14
81		Top = 18
82	<	Width = 56
82	>	Width = 64
83		Caption = 'Last Name'
84		ParentColor = False
85		end
86		object DBEdit2: TDBEdit
87		Left = 168
88	<	Height = 23
88	>	Height = 24
89		Top = 32
90		Width = 144
91		DataField = 'LAST_NAME'
#	Line 93 | Line 95 | object Form1: TForm1
95		TabOrder = 1
96		end
97		object Label5: TLabel
98	<	Left = 553
99	<	Height = 15
98	>	Left = 547
99	>	Height = 14
100		Top = 120
101	<	Width = 18
101	>	Width = 24
102		Anchors = [akTop, akRight]
103		Caption = 'Ext.'
104		ParentColor = False
105		end
106		object DBEdit3: TDBEdit
107		Left = 547
108	<	Height = 23
108	>	Height = 24
109		Top = 136
110		Width = 48
111		DataField = 'PHONE_EXT'
#	Line 115 | Line 117 | object Form1: TForm1
117		end
118		object Label6: TLabel
119		Left = 16
120	<	Height = 15
120	>	Height = 14
121		Top = 65
122	<	Width = 49
122	>	Width = 56
123		Caption = 'Hire Date'
124		ParentColor = False
125		end
126		object Label7: TLabel
127		Left = 172
128	<	Height = 15
128	>	Height = 14
129		Top = 65
130	<	Width = 31
130	>	Width = 37
131		Caption = 'Salary'
132		ParentColor = False
133		end
134		object DBEdit4: TDBEdit
135		Left = 168
136	<	Height = 23
136	>	Height = 24
137		Top = 80
138		Width = 144
139		DataField = 'SALARY'
#	Line 142 | Line 144 | object Form1: TForm1
144		end
145		object Label8: TLabel
146		Left = 392
147	<	Height = 15
147	>	Height = 14
148		Top = 16
149	<	Width = 46
149	>	Width = 51
150		Caption = 'Location'
151		ParentColor = False
152		end
153		object Label9: TLabel
154		Left = 331
155	<	Height = 15
155	>	Height = 14
156		Top = 16
157	<	Width = 31
157	>	Width = 36
158		Caption = 'Grade'
159		ParentColor = False
160		end
161		object DBComboBox1: TDBComboBox
162		Left = 331
163	<	Height = 23
163	>	Height = 28
164		Top = 32
165		Width = 53
166		DataField = 'JOB_GRADE'
167		DataSource = EmployeeSource
168	<	ItemHeight = 15
168	>	ItemHeight = 0
169		Items.Strings = (
170		'1'
171		'2'
#	Line 178 | Line 180 | object Form1: TForm1
180		end
181		object Label10: TLabel
182		Left = 333
183	<	Height = 15
183	>	Height = 14
184		Top = 65
185	<	Width = 44
185	>	Width = 48
186		Caption = 'Job Title'
187		ParentColor = False
188		end
189		object Label11: TLabel
190		Left = 17
191	<	Height = 15
191	>	Height = 14
192		Top = 122
193	<	Width = 63
193	>	Width = 73
194		Caption = 'Department'
195		ParentColor = False
196		end
197		object DBEdit5: TDBEdit
198		Left = 17
199	<	Height = 23
199	>	Height = 24
200		Top = 136
201		Width = 495
202		DataField = 'DEPT_PATH'
#	Line 232 | Line 234 | object Form1: TForm1
234		TabOrder = 6
235		AutoInsert = False
236		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
237	<	ItemHeight = 15
237	>	ItemHeight = 0
238		end
239		object IBLookupComboEditBox3: TIBLookupComboEditBox
240		Left = 331
241	<	Height = 23
241	>	Height = 28
242		Top = 82
243		Width = 264
244		Anchors = [akTop, akLeft, akRight]
#	Line 251 | Line 253 | object Form1: TForm1
253		TabOrder = 7
254		AutoInsert = False
255		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
256	<	ItemHeight = 15
256	>	ItemHeight = 0
257		end
258		object IBDateEdit1: TDBDateEdit
259		Left = 17
260	<	Height = 23
260	>	Height = 24
261		Top = 82
262		Width = 112
263		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
262	–	OKCaption = 'OK'
263	–	CancelCaption = 'Cancel'
264		DateOrder = doNone
265		ButtonWidth = 23
266		AutoSelect = False
#	Line 302 | Line 302 | object Form1: TForm1
302		TabOrder = 4
303		end
304		object IBDatabase1: TIBDatabase
305	<	Connected = True
305	>	Connected = False
306	>	CreateIfNotExists = False
307		AllowStreamedConnected = False
308		DatabaseName = 'localhost:employee'
309		Params.Strings = (
#	Line 314 | Line 315 | object Form1: TForm1
315		IdleTimer = 0
316		TraceFlags = []
317		UseDefaultSystemCodePage = False
318	<	left = 328
319	<	top = 24
318	>	left = 224
319	>	top = 18
320		end
321		object IBTransaction1: TIBTransaction
322		Active = False
323		DefaultDatabase = IBDatabase1
324	<	left = 296
325	<	top = 24
324	>	left = 136
325	>	top = 18
326		end
327		object Employees: TIBDataSet
328	+	AllowAutoActivateTransaction = False
329		Database = IBDatabase1
330		Transaction = IBTransaction1
331		AfterDelete = EmployeesAfterDelete
#	Line 390 | Line 392 | object Form1: TForm1
392		GenerateParamNames = False
393		DataSetCloseAction = dcSaveChanges
394		AfterTransactionEnd = EmployeesAfterTransactionEnd
395	<	left = 496
396	<	top = 16
395	>	left = 376
396	>	top = 264
397		object EmployeesEMP_NO: TSmallintField
398		DisplayWidth = 10
399		FieldKind = fkData
#	Line 544 | Line 546 | object Form1: TForm1
546		object EmployeeSource: TDataSource
547		DataSet = Employees
548		OnDataChange = EmployeeSourceDataChange
549	<	left = 462
550	<	top = 16
549	>	left = 272
550	>	top = 264
551		end
552		object ApplicationProperties1: TApplicationProperties
553		OnIdle = ApplicationProperties1Idle
554	<	left = 328
555	<	top = 56
554	>	left = 152
555	>	top = 280
556		end
557		object Countries: TIBQuery
558	+	AllowAutoActivateTransaction = False
559		Database = IBDatabase1
560		Transaction = IBTransaction1
561		BeforeOpen = CountriesBeforeOpen
#	Line 577 | Line 580 | object Form1: TForm1
580		ParamType = ptInput
581		end>
582		DataSetCloseAction = dcDiscardChanges
583	<	left = 425
584	<	top = 56
583	>	left = 616
584	>	top = 16
585		ParamData = <
586		item
587		DataType = ftUnknown
#	Line 593 | Line 596 | object Form1: TForm1
596		end
597		object CountriesSource: TDataSource
598		DataSet = Countries
599	<	left = 392
600	<	top = 58
599	>	left = 528
600	>	top = 18
601		end
602		object JobCodes: TIBQuery
603	+	AllowAutoActivateTransaction = False
604		Database = IBDatabase1
605		Transaction = IBTransaction1
606		BeforeOpen = JobCodesBeforeOpen
#	Line 616 | Line 620 | object Form1: TForm1
620		ParamType = ptInput
621		end>
622		DataSetCloseAction = dcDiscardChanges
623	<	left = 425
623	>	left = 416
624		top = 18
625		ParamData = <
626		item
#	Line 627 | Line 631 | object Form1: TForm1
631		end
632		object JobCodeSource: TDataSource
633		DataSet = JobCodes
634	<	left = 392
634	>	left = 328
635		top = 18
636		end
637		end

Diff Legend

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