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 23 by tony, Fri Mar 13 10:26:52 2015 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.0.1'
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 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 320 | Line 320 | object Form1: TForm1
320          Left = 300
321          Height = 25
322          Top = 2
323 <        Width = 80
323 >        Width = 104
324          CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
325          OKCaption = 'OK'
326          CancelCaption = 'Cancel'
327          DateOrder = doNone
328          ButtonWidth = 23
329 +        AutoSelect = False
330          NumGlyphs = 1
331          MaxLength = 0
332          TabOrder = 3
# Line 390 | Line 391 | object Form1: TForm1
391        end
392        object JobGradeDBComboBox: TDBComboBox
393          Left = 480
394 <        Height = 25
394 >        Height = 23
395          Top = 2
396          Width = 48
397          AutoSize = False
# Line 448 | Line 449 | object Form1: TForm1
449        end
450        object IBLookupComboEditBox2: TIBLookupComboEditBox
451          Left = 600
452 <        Height = 25
452 >        Height = 23
453          Top = 0
454          Width = 172
455          Anchors = [akTop, akLeft, akRight]
# Line 468 | Line 469 | object Form1: TForm1
469        end
470        object IBLookupComboEditBox1: TIBLookupComboEditBox
471          Left = 600
472 <        Height = 25
472 >        Height = 23
473          Top = 24
474          Width = 172
475          Anchors = [akTop, akLeft, akRight]
# Line 520 | Line 521 | object Form1: TForm1
521      DatabaseName = 'employee'
522      Params.Strings = (
523        'user_name=SYSDBA'
524 <      'lc_ctype=UTF-8'
524 >      'lc_ctype=UTF8'
525      )
526      DefaultTransaction = IBTransaction1
527      IdleTimer = 0
528      TraceFlags = []
529 +    UseDefaultSystemCodePage = True
530      left = 832
531      top = 168
532    end
# Line 594 | Line 596 | object Form1: TForm1
596        'From EMPLOYEE'
597      )
598      Params = <>
599 +    DataSetCloseAction = dcDiscardChanges
600      left = 872
601      top = 376
602      object TotalsQueryTOTALSALARIES: TIBBCDField
# Line 682 | Line 685 | object Form1: TForm1
685      GeneratorField.Field = 'EMP_NO'
686      GeneratorField.ApplyOnEvent = gaeOnNewRecord
687      GenerateParamNames = False
688 +    DataSetCloseAction = dcSaveChanges
689      AfterTransactionEnd = EmployeesAfterTransactionEnd
690 +    OnValidatePost = EmployeesValidatePost
691      left = 872
692      top = 336
693      object EmployeesEMP_NO: TSmallintField
# Line 858 | Line 863 | object Form1: TForm1
863          Name = 'JOB_GRADE'
864          ParamType = ptInput
865        end>
866 +    DataSetCloseAction = dcDiscardChanges
867      left = 872
868      top = 296
869      ParamData = <    
# Line 901 | Line 907 | object Form1: TForm1
907          Name = 'JOB_GRADE'
908          ParamType = ptInput
909        end>
910 +    DataSetCloseAction = dcDiscardChanges
911      left = 872
912      top = 256
913      ParamData = <    
# Line 928 | Line 935 | object Form1: TForm1
935        'Order by Upper(Department)'
936      )
937      Params = <>
938 +    DataSetCloseAction = dcDiscardChanges
939      left = 872
940      top = 210
941    end
# Line 936 | Line 944 | object Form1: TForm1
944      left = 832
945      top = 208
946    end
947 +  object JobGradeChangeTimer: TTimer
948 +    Interval = 0
949 +    OnTimer = JobGradeChangeTimerTimer
950 +    left = 777
951 +    top = 304
952 +  end
953 +  object JobCodeChangeTimer: TTimer
954 +    Interval = 0
955 +    OnTimer = JobCodeChangeTimerTimer
956 +    left = 776
957 +    top = 353
958 +  end
959   end

Diff Legend

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