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

Comparing ibx/trunk/examples/ibtreeview/Unit1.lfm (file contents):
Revision 310 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 311 by tony, Mon Aug 24 09:32:58 2020 UTC

# Line 10 | Line 10 | object Form1: TForm1
10    OnClose = FormClose
11    OnShow = FormShow
12    Position = poScreenCenter
13 <  LCLVersion = '1.6.4.0'
13 >  LCLVersion = '2.0.11.0'
14    object Panel1: TPanel
15      Left = 11
16      Height = 367
# Line 29 | Line 29 | object Form1: TForm1
29        Align = alLeft
30        TextField = 'DEPARTMENT'
31        DataSource = DataSource1
32      DefaultItemHeight = 16
32        DragMode = dmAutomatic
33        Images = ImageList1
34        HasChildField = 'CHILDCOUNT'
# Line 73 | Line 72 | object Form1: TForm1
72          TabOrder = 0
73          object Label2: TLabel
74            Left = 11
75 <          Height = 13
75 >          Height = 15
76            Top = 16
77 <          Width = 20
77 >          Width = 25
78            Caption = 'Title'
79            ParentColor = False
80          end
81          object DBEdit1: TDBEdit
82            Left = 11
83 <          Height = 21
83 >          Height = 25
84            Top = 31
85            Width = 373
86            DataField = 'DEPARTMENT'
# Line 93 | Line 92 | object Form1: TForm1
92          end
93          object Label3: TLabel
94            Left = 13
95 <          Height = 13
95 >          Height = 15
96            Top = 71
97 <          Width = 40
97 >          Width = 51
98            Caption = 'Location'
99            ParentColor = False
100          end
101          object DBEdit4: TDBEdit
102            Left = 13
103 <          Height = 21
103 >          Height = 25
104            Top = 86
105            Width = 179
106            DataField = 'LOCATION'
# Line 112 | Line 111 | object Form1: TForm1
111          end
112          object Label4: TLabel
113            Left = 219
114 <          Height = 13
114 >          Height = 15
115            Top = 71
116 <          Width = 34
116 >          Width = 44
117            Caption = 'Budget'
118            ParentColor = False
119          end
120          object DBEdit2: TDBEdit
121            Left = 219
122 <          Height = 21
122 >          Height = 25
123            Top = 86
124            Width = 165
125            DataField = 'BUDGET'
# Line 132 | Line 131 | object Form1: TForm1
131          end
132          object Label5: TLabel
133            Left = 219
134 <          Height = 13
134 >          Height = 15
135            Top = 121
136 <          Width = 50
136 >          Width = 61
137            Caption = 'Phone No.'
138            ParentColor = False
139          end
140          object DBEdit3: TDBEdit
141            Left = 219
142 <          Height = 21
142 >          Height = 25
143            Top = 136
144            Width = 165
145            DataField = 'PHONE_NO'
# Line 152 | Line 151 | object Form1: TForm1
151          end
152          object Label6: TLabel
153            Left = 12
154 <          Height = 13
154 >          Height = 15
155            Top = 121
156 <          Width = 42
156 >          Width = 52
157            Caption = 'Manager'
158            ParentColor = False
159          end
160          object IBLookupComboEditBox1: TIBLookupComboEditBox
161            Left = 13
162 <          Height = 21
162 >          Height = 27
163            Top = 136
164            Width = 180
165            DataField = 'MNGR_NO'
# Line 173 | Line 172 | object Form1: TForm1
172            TabOrder = 4
173            AutoInsert = False
174            AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
175 <          ItemHeight = 13
175 >          ItemHeight = 0
176          end
177          object Label7: TLabel
178            Left = 12
179 <          Height = 13
179 >          Height = 15
180            Top = 172
181 <          Width = 92
181 >          Width = 115
182            Caption = 'Departmental Staff'
183            ParentColor = False
184          end
# Line 251 | Line 250 | object Form1: TForm1
250    end
251    object Label1: TLabel
252      Left = 11
253 <    Height = 13
253 >    Height = 15
254      Top = 17
255 <    Width = 62
255 >    Width = 79
256      Caption = 'Departments'
257      ParentColor = False
258    end
# Line 313 | Line 312 | object Form1: TForm1
312      AfterInsert = DepartmentsAfterInsert
313      BufferChunks = 1000
314      CachedUpdates = False
315 +    CaseSensitiveParameterNames = False
316 +    EnableStatistics = False
317      DeleteSQL.Strings = (
318        'Delete From DEPARTMENT A'
319        'Where A.DEPT_NO = :DEPT_NO'
# Line 354 | Line 355 | object Form1: TForm1
355      GeneratorField.Field = 'DEPT_NO'
356      GeneratorField.ApplyOnEvent = gaeOnNewRecord
357      GenerateParamNames = False
358 +    MasterDetailDelay = 0
359      DataSetCloseAction = dcSaveChanges
360      AfterTransactionEnd = DepartmentsAfterTransactionEnd
361      left = 144
# Line 438 | Line 440 | object Form1: TForm1
440        ReadOnly = False
441        Required = False
442      end
443 <    object DepartmentsCHILDCOUNT: TIntegerField
442 <      DisplayWidth = 10
443 >    object DepartmentsIMAGEINDEX: TIBIntegerField
444        FieldKind = fkData
445 <      FieldName = 'CHILDCOUNT'
445 >      FieldName = 'IMAGEINDEX'
446        Index = 7
447        LookupCache = False
448        ProviderFlags = [pfInUpdate, pfInWhere]
449        ReadOnly = False
450        Required = True
451      end
452 <    object DepartmentsIMAGEINDEX: TIBIntegerField
452 >    object DepartmentsCHILDCOUNT: TIBLargeIntField
453        FieldKind = fkData
454 <      FieldName = 'IMAGEINDEX'
454 >      FieldName = 'CHILDCOUNT'
455        Index = 8
456        LookupCache = False
457        ProviderFlags = [pfInUpdate, pfInWhere]
# Line 474 | Line 475 | object Form1: TForm1
475      Transaction = IBTransaction1
476      BufferChunks = 1000
477      CachedUpdates = False
478 +    CaseSensitiveParameterNames = False
479 +    EnableStatistics = False
480      GenerateParamNames = False
481      GeneratorField.ApplyOnEvent = gaeOnNewRecord
482 +    MasterDetailDelay = 0
483      SQL.Strings = (
484        'Select A.EMP_NO, A.FULL_NAME From EMPLOYEE A'
485        'order by 2'
# Line 496 | Line 500 | object Form1: TForm1
500      Transaction = IBTransaction1
501      BufferChunks = 1000
502      CachedUpdates = False
503 +    CaseSensitiveParameterNames = False
504      DataSource = DataSource1
505 +    EnableStatistics = False
506      GenerateParamNames = False
507      GeneratorField.ApplyOnEvent = gaeOnNewRecord
508 +    MasterDetailDelay = 0
509      SQL.Strings = (
510        'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME From EMPLOYEE A'
511        'Where A.DEPT_NO =:DEPT_NO'

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines