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

Comparing ibx/trunk/examples/dbcontrolgrid/unit1.lfm (file contents):
Revision 208 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

# Line 2 | Line 2 | object Form1: TForm1
2    Left = 613
3    Height = 575
4    Top = 199
5 <  Width = 1026
5 >  Width = 1018
6    Caption = 'Employee List'
7    ClientHeight = 575
8 <  ClientWidth = 1026
8 >  ClientWidth = 1018
9    DefaultMonitor = dmPrimary
10    OnClose = FormClose
11    OnShow = FormShow
12    Position = poDefault
13 <  LCLVersion = '1.8.1.0'
13 >  LCLVersion = '1.8.3.0'
14    object Button1: TButton
15 <    Left = 939
15 >    Left = 931
16      Height = 25
17      Top = 48
18      Width = 75
# Line 21 | Line 21 | object Form1: TForm1
21      TabOrder = 0
22    end
23    object Button3: TButton
24 <    Left = 939
24 >    Left = 931
25      Height = 25
26      Top = 80
27      Width = 75
# Line 75 | Line 75 | object Form1: TForm1
75      Left = 12
76      Height = 527
77      Top = 42
78 <    Width = 904
78 >    Width = 896
79      Anchors = [akTop, akLeft, akRight, akBottom]
80      BevelOuter = bvNone
81      ClientHeight = 527
82 <    ClientWidth = 904
82 >    ClientWidth = 896
83      ParentColor = False
84      TabOrder = 4
85      object DBControlGrid1: TDBControlGrid
86        Left = 0
87        Height = 477
88        Top = 0
89 <      Width = 904
89 >      Width = 896
90        Align = alClient
91        AlternateColor = clSkyBlue
92        AltColorStartNormal = True
# Line 98 | Line 98 | object Form1: TForm1
98        TabOrder = 1
99        ColWidths = (
100          12
101 <        890
101 >        882
102        )
103        object EmployeeEditorPanel: TPanel
104          Left = 12
105          Height = 84
106          Top = 0
107 <        Width = 890
107 >        Width = 882
108          Anchors = []
109          BevelOuter = bvNone
110          BorderWidth = 2
111          BorderStyle = bsSingle
112          ClientHeight = 82
113 <        ClientWidth = 888
113 >        ClientWidth = 880
114          Color = clWhite
115          ParentColor = False
116          TabOrder = 0
# Line 215 | Line 215 | object Form1: TForm1
215            TabOrder = 5
216          end
217          object Label8: TLabel
218 <          Left = 814
218 >          Left = 806
219            Height = 14
220            Top = 58
221            Width = 24
# Line 224 | Line 224 | object Form1: TForm1
224            ParentColor = False
225          end
226          object DBEdit5: TDBEdit
227 <          Left = 838
227 >          Left = 830
228            Height = 24
229            Top = 54
230            Width = 40
# Line 289 | Line 289 | object Form1: TForm1
289            ParentColor = False
290          end
291          object SpeedButton1: TSpeedButton
292 <          Left = 786
292 >          Left = 778
293            Height = 25
294            Top = 54
295            Width = 23
# Line 300 | Line 300 | object Form1: TForm1
300            Left = 300
301            Height = 24
302            Top = 54
303 <          Width = 478
303 >          Width = 470
304            DataField = 'DEPT_PATH'
305            DataSource = EmployeeSource
306            ReadOnly = True
# Line 352 | Line 352 | object Form1: TForm1
352        Left = 0
353        Height = 50
354        Top = 477
355 <      Width = 904
355 >      Width = 896
356        Align = alBottom
357        BevelOuter = bvNone
358        ClientHeight = 50
359 <      ClientWidth = 904
359 >      ClientWidth = 896
360        ParentColor = False
361        TabOrder = 0
362        object Button5: TButton
# Line 378 | Line 378 | object Form1: TForm1
378          TabOrder = 1
379        end
380        object DBText1: TDBText
381 <        Left = 832
381 >        Left = 824
382          Height = 27
383          Top = 16
384          Width = 49
# Line 498 | Line 498 | object Form1: TForm1
498      BeforeOpen = EmployeesBeforeOpen
499      BufferChunks = 1000
500      CachedUpdates = False
501 +    EnableStatistics = False
502      GenerateParamNames = False
503      GeneratorField.ApplyOnEvent = gaeOnNewRecord
504 +    MasterDetailDelay = 0
505      SQL.Strings = (
506        'Select sum(Salary) as TotalSalaries'
507        'From EMPLOYEE'
# Line 544 | Line 546 | object Form1: TForm1
546      BeforeOpen = EmployeesBeforeOpen
547      BufferChunks = 1000
548      CachedUpdates = False
549 +    EnableStatistics = False
550      DeleteSQL.Strings = (
551        'Delete From EMPLOYEE A'
552        'Where A.EMP_NO = :EMP_NO'
# Line 608 | Line 611 | object Form1: TForm1
611      GeneratorField.Field = 'EMP_NO'
612      GeneratorField.ApplyOnEvent = gaeOnNewRecord
613      GenerateParamNames = False
614 +    MasterDetailDelay = 0
615      DataSetCloseAction = dcSaveChanges
616      AfterTransactionEnd = EmployeesAfterTransactionEnd
617      left = 872

Diff Legend

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