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 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 118 by tony, Mon Jan 22 13:58:14 2018 UTC

# Line 1 | Line 1
1   object Form1: TForm1
2 <  Left = 811
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 <  LCLVersion = '1.6.0.4'
11 >  Position = poScreenCenter
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 65 | 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 92 | 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 158 | Line 172 | object Form1: TForm1
172        'rec_version'
173        'nowait'
174      )
175 <    left = 232
175 >    left = 272
176      top = 24
177    end
178    object Depts: TIBTable
# Line 171 | 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'
192 <    left = 314
192 >    left = 424
193      top = 24
194      object DeptsDEPT_NO: TIBStringField
195        DisplayWidth = 3
# Line 258 | Line 273 | object Form1: TForm1
273    end
274    object DataSource2: TDataSource
275      DataSet = Depts
276 <    left = 272
276 >    left = 360
277      top = 24
278    end
279    object Datasource1: TDataSource
280      DataSet = Employees
281 <    left = 368
281 >    left = 496
282      top = 24
283    end
284    object Employees: TIBTable
# Line 274 | Line 289 | object Form1: TForm1
289      BufferChunks = 1000
290      CachedUpdates = False
291      DataSetCloseAction = dcSaveChanges
292 +    GeneratorField.Generator = 'EMP_NO_GEN                                                                                                                  '
293 +    GeneratorField.Field = 'EMP_NO'
294 +    GeneratorField.ApplyOnEvent = gaeOnNewRecord
295      IndexFieldNames = 'DEPT_NO'
296      MasterFields = 'DEPT_NO'
297      MasterSource = DataSource2
298      TableName = 'EMPLOYEE'
299 <    left = 416
299 >    left = 576
300      top = 24
301      object EmployeesEMP_NO: TSmallintField
302        DisplayWidth = 10

Diff Legend

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