ViewVC Help

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

root/public/ibx/trunk/examples/employee/unit1.lfm

Comparing ibx/trunk/examples/employee/unit1.lfm (file contents):
Revision 37 by tony, Mon Feb 15 14:44:25 2016 UTC vs.
Revision 39 by tony, Tue May 17 08:14:52 2016 UTC

#	Line 2 | Line 2 | object Form1: TForm1
2		Left = 439
3		Height = 482
4		Top = 350
5	<	Width = 1002
5	>	Width = 932
6		Caption = 'Employee List'
7		ClientHeight = 482
8	<	ClientWidth = 1002
8	>	ClientWidth = 932
9		OnClose = FormClose
10		OnShow = FormShow
11	<	LCLVersion = '1.4.4.0'
11	>	LCLVersion = '1.6.0.4'
12		object Button1: TButton
13	<	Left = 915
13	>	Left = 845
14		Height = 25
15		Top = 48
16		Width = 75
#	Line 19 | Line 19 | object Form1: TForm1
19		TabOrder = 0
20		end
21		object Button2: TButton
22	<	Left = 915
22	>	Left = 845
23		Height = 25
24		Top = 86
25		Width = 75
#	Line 28 | Line 28 | object Form1: TForm1
28		TabOrder = 1
29		end
30		object Button3: TButton
31	<	Left = 915
31	>	Left = 845
32		Height = 25
33		Top = 125
34		Width = 75
#	Line 40 | Line 40 | object Form1: TForm1
40		Left = 17
41		Height = 15
42		Top = 14
43	<	Width = 74
43	>	Width = 87
44		Caption = 'Started Before'
45		ParentColor = False
46		end
47		object BeforeDate: TDateEdit
48		Left = 112
49	<	Height = 23
49	>	Height = 25
50		Top = 8
51		Width = 80
52		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
#	Line 63 | Line 63 | object Form1: TForm1
63		Left = 241
64		Height = 15
65		Top = 14
66	<	Width = 66
66	>	Width = 78
67		Caption = 'Started After'
68		ParentColor = False
69		end
70		object AfterDate: TDateEdit
71		Left = 333
72	<	Height = 23
72	>	Height = 25
73		Top = 8
74		Width = 80
75		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
#	Line 86 | Line 86 | object Form1: TForm1
86		Left = 12
87		Height = 434
88		Top = 42
89	<	Width = 880
89	>	Width = 810
90		Anchors = [akTop, akLeft, akRight, akBottom]
91		BevelOuter = bvNone
92		ClientHeight = 434
93	<	ClientWidth = 880
93	>	ClientWidth = 810
94		Color = clBackground
95		ParentColor = False
96		TabOrder = 5
#	Line 98 | Line 98 | object Form1: TForm1
98		Left = 0
99		Height = 384
100		Top = 0
101	<	Width = 880
101	>	Width = 810
102		Align = alClient
103		Color = clWindow
104		Columns = <
#	Line 200 | Line 200 | object Form1: TForm1
200		Left = 0
201		Height = 50
202		Top = 384
203	<	Width = 880
203	>	Width = 810
204		Align = alBottom
205		BevelOuter = bvNone
206		ClientHeight = 50
207	<	ClientWidth = 880
207	>	ClientWidth = 810
208		ParentColor = False
209		TabOrder = 1
210		object Button5: TButton
#	Line 229 | Line 229 | object Form1: TForm1
229		Left = 688
230		Height = 27
231		Top = 16
232	<	Width = 43
232	>	Width = 49
233		Alignment = taRightJustify
234		Anchors = [akTop, akLeft, akBottom]
235		DataField = 'TOTALSALARIES'
#	Line 245 | Line 245 | object Form1: TForm1
245		BevelOuter = bvNone
246		BorderWidth = 2
247		BorderStyle = bsSingle
248	<	ClientHeight = 76
249	<	ClientWidth = 780
248	>	ClientHeight = 78
249	>	ClientWidth = 782
250		Color = clWindow
251		ParentColor = False
252		TabOrder = 2
#	Line 255 | Line 255 | object Form1: TForm1
255		Left = 0
256		Height = 15
257		Top = 7
258	<	Width = 74
258	>	Width = 83
259		Caption = 'Employee No.'
260		ParentColor = False
261		end
262		object DBEdit1: TDBEdit
263		Left = 90
264	<	Height = 23
264	>	Height = 25
265		Top = 2
266		Width = 120
267		DataField = 'EMP_NO'
#	Line 274 | Line 274 | object Form1: TForm1
274		Left = 12
275		Height = 15
276		Top = 32
277	<	Width = 57
277	>	Width = 64
278		Caption = 'First Name'
279		ParentColor = False
280		end
281		object DBEdit2: TDBEdit
282		Left = 90
283	<	Height = 23
283	>	Height = 25
284		Top = 24
285		Width = 120
286		DataField = 'FIRST_NAME'
#	Line 293 | Line 293 | object Form1: TForm1
293		Left = 12
294		Height = 15
295		Top = 56
296	<	Width = 56
296	>	Width = 64
297		Caption = 'Last Name'
298		ParentColor = False
299		end
300		object DBEdit3: TDBEdit
301		Left = 90
302	<	Height = 23
302	>	Height = 25
303		Top = 46
304		Width = 120
305		DataField = 'LAST_NAME'
#	Line 312 | Line 312 | object Form1: TForm1
312		Left = 216
313		Height = 15
314		Top = 7
315	<	Width = 64
315	>	Width = 77
316		Caption = 'Date Started'
317		ParentColor = False
318		end
319		object IBDateEdit1: TDBDateEdit
320		Left = 300
321	<	Height = 23
321	>	Height = 25
322		Top = 2
323		Width = 104
324		CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
#	Line 337 | Line 337 | object Form1: TForm1
337		Left = 252
338		Height = 15
339		Top = 32
340	<	Width = 31
340	>	Width = 37
341		Caption = 'Salary'
342		ParentColor = False
343		end
344		object DBEdit4: TDBEdit
345		Left = 300
346	<	Height = 23
346	>	Height = 25
347		Top = 24
348		Width = 104
349		DataField = 'SALARY'
#	Line 353 | Line 353 | object Form1: TForm1
353		TabOrder = 5
354		end
355		object Label8: TLabel
356	<	Left = 712
356	>	Left = 708
357		Height = 15
358		Top = 54
359	<	Width = 18
359	>	Width = 24
360		Anchors = [akTop, akRight]
361		Caption = 'Ext.'
362		ParentColor = False
363		end
364		object DBEdit5: TDBEdit
365	<	Left = 730
366	<	Height = 23
365	>	Left = 732
366	>	Height = 25
367		Top = 48
368		Width = 40
369		DataField = 'PHONE_EXT'
#	Line 377 | Line 377 | object Form1: TForm1
377		Left = 536
378		Height = 15
379		Top = 7
380	<	Width = 46
380	>	Width = 51
381		Caption = 'Location'
382		ParentColor = False
383		end
#	Line 385 | Line 385 | object Form1: TForm1
385		Left = 413
386		Height = 15
387		Top = 9
388	<	Width = 52
388	>	Width = 59
389		Caption = 'Job Grade'
390		ParentColor = False
391		end
#	Line 397 | Line 397 | object Form1: TForm1
397		AutoSize = False
398		DataField = 'JOB_GRADE'
399		DataSource = EmployeeSource
400	<	ItemHeight = 15
400	>	ItemHeight = 0
401		Items.Strings = (
402		'1'
403		'2'
#	Line 414 | Line 414 | object Form1: TForm1
414		Left = 536
415		Height = 15
416		Top = 32
417	<	Width = 44
417	>	Width = 48
418		Caption = 'Job Title'
419		ParentColor = False
420		end
#	Line 422 | Line 422 | object Form1: TForm1
422		Left = 256
423		Height = 15
424		Top = 54
425	<	Width = 28
425	>	Width = 33
426		Caption = 'Dept.'
427		ParentColor = False
428		end
429		object SpeedButton1: TSpeedButton
430	<	Left = 678
430	>	Left = 680
431		Height = 25
432		Top = 48
433		Width = 23
#	Line 436 | Line 436 | object Form1: TForm1
436		end
437		object DBEdit6: TDBEdit
438		Left = 300
439	<	Height = 23
439	>	Height = 25
440		Top = 48
441	<	Width = 370
441	>	Width = 372
442		DataField = 'DEPT_PATH'
443		DataSource = EmployeeSource
444		ReadOnly = True
#	Line 451 | Line 451 | object Form1: TForm1
451		Left = 600
452		Height = 23
453		Top = 0
454	<	Width = 170
454	>	Width = 172
455		Anchors = [akTop, akLeft, akRight]
456		AutoSize = False
457		DataField = 'JOB_COUNTRY'
#	Line 465 | Line 465 | object Form1: TForm1
465		TabOrder = 8
466		AutoInsert = False
467		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
468	<	ItemHeight = 15
468	>	ItemHeight = 0
469		end
470		object IBLookupComboEditBox1: TIBLookupComboEditBox
471		Left = 600
472		Height = 23
473		Top = 24
474	<	Width = 170
474	>	Width = 172
475		Anchors = [akTop, akLeft, akRight]
476		AutoSize = False
477		DataField = 'JOB_CODE'
#	Line 485 | Line 485 | object Form1: TForm1
485		TabOrder = 9
486		AutoInsert = False
487		AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
488	<	ItemHeight = 15
488	>	ItemHeight = 0
489		end
490		end
491		end
#	Line 493 | Line 493 | object Form1: TForm1
493		Left = 456
494		Height = 15
495		Top = 14
496	<	Width = 67
496	>	Width = 79
497		Caption = 'Salary Range'
498		ParentColor = False
499		end
500		object SalaryRange: TComboBox
501		Left = 544
502	<	Height = 23
502	>	Height = 25
503		Top = 8
504		Width = 272
505	<	ItemHeight = 15
505	>	ItemHeight = 0
506		ItemIndex = 0
507		Items.Strings = (
508		'None Specified'
#	Line 526 | Line 526 | object Form1: TForm1
526		DefaultTransaction = IBTransaction1
527		IdleTimer = 0
528		TraceFlags = []
529	+	UseDefaultSystemCodePage = True
530		left = 832
531		top = 168
532		end
#	Line 946 | Line 947 | object Form1: TForm1
947		object JobGradeChangeTimer: TTimer
948		Interval = 0
949		OnTimer = JobGradeChangeTimerTimer
950	<	left = 928
951	<	top = 175
950	>	left = 777
951	>	top = 304
952		end
953		object JobCodeChangeTimer: TTimer
954		Interval = 0
955		OnTimer = JobCodeChangeTimerTimer
956	<	left = 927
957	<	top = 224
956	>	left = 776
957	>	top = 353
958		end
959		end

Diff Legend

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