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 209 by tony, Wed Mar 14 12:48:51 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.3.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 +    EnableStatistics = False
189 +    GeneratorField.ApplyOnEvent = gaeOnNewRecord
190      IndexFieldNames = 'DEPT_NO'
191 +    MasterDetailDelay = 500
192      ReadOnly = True
193      TableName = 'DEPARTMENT'
194 <    left = 314
194 >    left = 424
195      top = 24
196      object DeptsDEPT_NO: TIBStringField
197        DisplayWidth = 3
# Line 258 | Line 275 | object Form1: TForm1
275    end
276    object DataSource2: TDataSource
277      DataSet = Depts
278 <    left = 272
278 >    left = 360
279      top = 24
280    end
281    object Datasource1: TDataSource
282      DataSet = Employees
283 <    left = 368
283 >    left = 496
284      top = 24
285    end
286    object Employees: TIBTable
# Line 274 | Line 291 | object Form1: TForm1
291      BufferChunks = 1000
292      CachedUpdates = False
293      DataSetCloseAction = dcSaveChanges
294 +    EnableStatistics = False
295 +    GeneratorField.Generator = 'EMP_NO_GEN                                                                                                                  '
296 +    GeneratorField.Field = 'EMP_NO'
297 +    GeneratorField.ApplyOnEvent = gaeOnNewRecord
298      IndexFieldNames = 'DEPT_NO'
299      MasterFields = 'DEPT_NO'
300      MasterSource = DataSource2
301 +    MasterDetailDelay = 300
302      TableName = 'EMPLOYEE'
303 <    left = 416
303 >    left = 576
304      top = 24
305      object EmployeesEMP_NO: TSmallintField
306        DisplayWidth = 10

Diff Legend

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