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 263 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 272 by tony, Mon Feb 4 13:34:37 2019 UTC

# Line 3 | Line 3 | object Form1: TForm1
3    Height = 453
4    Top = 397
5    Width = 943
6 +  Align = alTop
7    Caption = 'IB Tables Example'
8    ClientHeight = 453
9    ClientWidth = 943
10    DefaultMonitor = dmPrimary
11    OnShow = FormShow
12    Position = poScreenCenter
13 <  LCLVersion = '2.0.0.2'
13 >  LCLVersion = '2.0.0.3'
14    object Panel1: TPanel
15      Left = 0
16      Height = 453
# Line 63 | Line 64 | object Form1: TForm1
64        Top = 1
65        Width = 5
66      end
67 <    object IBDynamicGrid2: TIBDynamicGrid
67 >    object Panel3: TPanel
68        Left = 176
69        Height = 451
70        Top = 1
71        Width = 766
72        Align = alClient
73 <      Color = clWindow
74 <      Columns = <      
75 <        item
75 <          Title.Alignment = taCenter
76 <          Title.Caption = 'Last Name'
77 <          Width = 150
78 <          FieldName = 'LAST_NAME'
79 <          AutoSizeColumn = True
80 <          InitialSortColumn = False
81 <          DBLookupProperties.ItemHeight = 0
82 <          DBLookupProperties.ItemWidth = 0
83 <          DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
84 <        end      
85 <        item
86 <          Title.Alignment = taCenter
87 <          Title.Caption = 'First Name'
88 <          Width = 150
89 <          FieldName = 'FIRST_NAME'
90 <          AutoSizeColumn = False
91 <          InitialSortColumn = False
92 <          DBLookupProperties.ItemHeight = 0
93 <          DBLookupProperties.ItemWidth = 0
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
112 <          FieldName = 'EMP_NO'
113 <          AutoSizeColumn = False
114 <          InitialSortColumn = False
115 <          DBLookupProperties.ItemHeight = 0
116 <          DBLookupProperties.ItemWidth = 0
117 <          DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
118 <        end      
119 <        item
120 <          Title.Alignment = taCenter
121 <          Title.Caption = 'Hire Date'
122 <          Width = 120
123 <          FieldName = 'HIRE_DATE'
124 <          AutoSizeColumn = False
125 <          InitialSortColumn = False
126 <          DBLookupProperties.ItemHeight = 0
127 <          DBLookupProperties.ItemWidth = 0
128 <          DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
129 <        end      
130 <        item
131 <          Title.Alignment = taCenter
132 <          Title.Caption = 'Salary'
133 <          Width = 100
134 <          FieldName = 'SALARY'
135 <          AutoSizeColumn = False
136 <          InitialSortColumn = False
137 <          DBLookupProperties.ItemHeight = 0
138 <          DBLookupProperties.ItemWidth = 0
139 <          DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
140 <        end>
141 <      DataSource = Datasource1
142 <      Scrollbars = ssAutoVertical
73 >      BevelOuter = bvNone
74 >      ClientHeight = 451
75 >      ClientWidth = 766
76        TabOrder = 2
77 <      ExpandEditorPanelBelowRow = False
78 <      Descending = False
79 <      EditorBorderStyle = bsSingle
80 <      DefaultPositionAtEnd = False
77 >      object Panel4: TPanel
78 >        Left = 0
79 >        Height = 20
80 >        Top = 0
81 >        Width = 766
82 >        Align = alTop
83 >        BevelOuter = bvNone
84 >        ClientHeight = 20
85 >        ClientWidth = 766
86 >        TabOrder = 0
87 >        object CheckBox1: TCheckBox
88 >          Left = 517
89 >          Height = 22
90 >          Top = 0
91 >          Width = 239
92 >          Anchors = [akTop, akRight]
93 >          Caption = 'Show only Salaries Below $100,000'
94 >          OnChange = CheckBox1Change
95 >          TabOrder = 0
96 >        end
97 >      end
98 >      object IBDynamicGrid2: TIBDynamicGrid
99 >        Left = 0
100 >        Height = 431
101 >        Top = 20
102 >        Width = 766
103 >        Align = alClient
104 >        Color = clWindow
105 >        Columns = <        
106 >          item
107 >            Title.Alignment = taCenter
108 >            Title.Caption = 'Last Name'
109 >            Width = 150
110 >            FieldName = 'LAST_NAME'
111 >            AutoSizeColumn = True
112 >            InitialSortColumn = False
113 >            DBLookupProperties.ItemHeight = 0
114 >            DBLookupProperties.ItemWidth = 0
115 >            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
116 >          end        
117 >          item
118 >            Title.Alignment = taCenter
119 >            Title.Caption = 'First Name'
120 >            Width = 150
121 >            FieldName = 'FIRST_NAME'
122 >            AutoSizeColumn = False
123 >            InitialSortColumn = False
124 >            DBLookupProperties.ItemHeight = 0
125 >            DBLookupProperties.ItemWidth = 0
126 >            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
127 >          end        
128 >          item
129 >            ReadOnly = True
130 >            Title.Alignment = taCenter
131 >            Title.Caption = 'Full Name'
132 >            Width = 120
133 >            FieldName = 'FULL_NAME'
134 >            AutoSizeColumn = True
135 >            InitialSortColumn = False
136 >            DBLookupProperties.ItemHeight = 0
137 >            DBLookupProperties.ItemWidth = 0
138 >            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
139 >          end        
140 >          item
141 >            Title.Alignment = taCenter
142 >            Title.Caption = 'Emp No.'
143 >            Width = 80
144 >            FieldName = 'EMP_NO'
145 >            AutoSizeColumn = False
146 >            InitialSortColumn = False
147 >            DBLookupProperties.ItemHeight = 0
148 >            DBLookupProperties.ItemWidth = 0
149 >            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
150 >          end        
151 >          item
152 >            Title.Alignment = taCenter
153 >            Title.Caption = 'Hire Date'
154 >            Width = 120
155 >            FieldName = 'HIRE_DATE'
156 >            AutoSizeColumn = False
157 >            InitialSortColumn = False
158 >            DBLookupProperties.ItemHeight = 0
159 >            DBLookupProperties.ItemWidth = 0
160 >            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
161 >          end        
162 >          item
163 >            Title.Alignment = taCenter
164 >            Title.Caption = 'Salary'
165 >            Width = 100
166 >            FieldName = 'SALARY'
167 >            AutoSizeColumn = False
168 >            InitialSortColumn = False
169 >            DBLookupProperties.ItemHeight = 0
170 >            DBLookupProperties.ItemWidth = 0
171 >            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
172 >          end>
173 >        DataSource = Datasource1
174 >        Scrollbars = ssAutoVertical
175 >        TabOrder = 1
176 >        ExpandEditorPanelBelowRow = False
177 >        Descending = False
178 >        EditorBorderStyle = bsSingle
179 >        DefaultPositionAtEnd = False
180 >      end
181      end
182    end
183    object IBDatabase1: TIBDatabase
# Line 162 | Line 195 | object Form1: TForm1
195      TraceFlags = []
196      UseDefaultSystemCodePage = False
197      left = 184
198 <    top = 24
198 >    top = 56
199    end
200    object IBTransaction1: TIBTransaction
201      Active = False
# Line 173 | Line 206 | object Form1: TForm1
206        'nowait'
207      )
208      left = 272
209 <    top = 24
209 >    top = 56
210    end
211    object Depts: TIBTable
212      AllowAutoActivateTransaction = True
# Line 192 | Line 225 | object Form1: TForm1
225      ReadOnly = True
226      TableName = 'DEPARTMENT'
227      left = 424
228 <    top = 24
228 >    top = 56
229      object DeptsDEPT_NO: TIBStringField
230        DisplayWidth = 3
231        FieldKind = fkData
# Line 276 | Line 309 | object Form1: TForm1
309    object DataSource2: TDataSource
310      DataSet = Depts
311      left = 360
312 <    top = 24
312 >    top = 56
313    end
314    object Datasource1: TDataSource
315      DataSet = Employees
316      left = 496
317 <    top = 24
317 >    top = 56
318    end
319    object Employees: TIBTable
320      AllowAutoActivateTransaction = False
# Line 292 | Line 325 | object Form1: TForm1
325      CachedUpdates = False
326      DataSetCloseAction = dcSaveChanges
327      EnableStatistics = False
328 +    Filtered = True
329      GeneratorField.Generator = 'EMP_NO_GEN                                                                                                                  '
330      GeneratorField.Field = 'EMP_NO'
331      GeneratorField.ApplyOnEvent = gaeOnNewRecord
# Line 301 | Line 335 | object Form1: TForm1
335      MasterDetailDelay = 300
336      TableName = 'EMPLOYEE'
337      left = 576
338 <    top = 24
338 >    top = 56
339      object EmployeesEMP_NO: TSmallintField
340        DisplayWidth = 10
341        FieldKind = fkData

Diff Legend

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