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

Comparing ibx/trunk/examples/ibtable/Unit1.lfm (file contents):
Revision 68 by tony, Tue Oct 17 10:07:58 2017 UTC vs.
Revision 107 by tony, Thu Jan 18 14:37:40 2018 UTC

# Line 2 | Line 2 | object Form1: TForm1
2    Left = 457
3    Height = 453
4    Top = 397
5 <  Width = 817
5 >  Width = 943
6    Caption = 'IB Tables Example'
7    ClientHeight = 453
8 <  ClientWidth = 817
8 >  ClientWidth = 943
9    DefaultMonitor = dmPrimary
10    OnShow = FormShow
11    Position = poScreenCenter
12 <  LCLVersion = '1.8.0.4'
12 >  LCLVersion = '1.8.1.0'
13    object Panel1: TPanel
14      Left = 0
15      Height = 453
16      Top = 0
17 <    Width = 817
17 >    Width = 943
18      Align = alClient
19      ClientHeight = 453
20 <    ClientWidth = 817
20 >    ClientWidth = 943
21      TabOrder = 0
22      object Panel2: TPanel
23        Left = 1
# Line 67 | Line 67 | object Form1: TForm1
67        Left = 176
68        Height = 451
69        Top = 1
70 <      Width = 640
70 >      Width = 766
71        Align = alClient
72        Color = clWindow
73        Columns = <      
# Line 94 | Line 94 | object Form1: TForm1
94            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
95          end      
96          item
97 +          ReadOnly = True
98 +          Title.Alignment = taCenter
99 +          Title.Caption = 'Full Name'
100 +          Width = 120
101 +          FieldName = 'FULL_NAME'
102 +          AutoSizeColumn = True
103 +          InitialSortColumn = False
104 +          DBLookupProperties.ItemHeight = 0
105 +          DBLookupProperties.ItemWidth = 0
106 +          DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
107 +        end      
108 +        item
109            Title.Alignment = taCenter
110            Title.Caption = 'Emp No.'
111            Width = 80
# Line 173 | Line 185 | object Form1: TForm1
185      BufferChunks = 1000
186      CachedUpdates = False
187      DataSetCloseAction = dcSaveChanges
188 +    GeneratorField.ApplyOnEvent = gaeOnNewRecord
189      IndexFieldNames = 'DEPT_NO'
190      ReadOnly = True
191      TableName = 'DEPARTMENT'
# Line 276 | Line 289 | object Form1: TForm1
289      BufferChunks = 1000
290      CachedUpdates = False
291      DataSetCloseAction = dcSaveChanges
292 +    GeneratorField.Generator = 'CUST_NO_GEN                                                                                                                 '
293 +    GeneratorField.Field = 'EMP_NO'
294 +    GeneratorField.ApplyOnEvent = gaeOnNewRecord
295      IndexFieldNames = 'DEPT_NO'
296      MasterFields = 'DEPT_NO'
297      MasterSource = DataSource2

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines