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

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