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

Comparing ibx/trunk/examples/lookupcombobox/Unit1.lfm (file contents):
Revision 67 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 68 by tony, Tue Oct 17 10:07:58 2017 UTC

# Line 1 | Line 1
1   object Form1: TForm1
2 <  Left = 711
2 >  Left = 616
3    Height = 329
4    Top = 256
5    Width = 658
6    Caption = 'IBLookup Combo Box Demo'
7    ClientHeight = 329
8    ClientWidth = 658
9 +  DefaultMonitor = dmPrimary
10    OnClose = FormClose
11    OnShow = FormShow
12 <  LCLVersion = '1.6.0.4'
12 >  Position = poScreenCenter
13 >  LCLVersion = '1.8.0.4'
14    object Label1: TLabel
15      Left = 16
16 <    Height = 15
16 >    Height = 14
17      Top = 16
18 <    Width = 87
18 >    Width = 98
19      Caption = 'Employee Name'
20      ParentColor = False
21    end
22    object IBLookupComboEditBox1: TIBLookupComboEditBox
23      Left = 16
24 <    Height = 23
24 >    Height = 27
25      Top = 32
26      Width = 224
27      KeyField = 'EMP_NO'
# Line 31 | Line 33 | object Form1: TForm1
33      TabOrder = 0
34      AutoInsert = True
35      AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
36 <    ItemHeight = 15
36 >    ItemHeight = 0
37      KeyPressInterval = 600
38      OnCanAutoInsert = IBLookupComboEditBox1CanAutoInsert
39    end
40    object Label2: TLabel
41      Left = 16
42 <    Height = 15
42 >    Height = 14
43      Top = 79
44 <    Width = 90
44 >    Width = 103
45      Caption = 'Employee Details'
46      ParentColor = False
47    end
# Line 56 | Line 58 | object Form1: TForm1
58      TabOrder = 1
59      object Label3: TLabel
60        Left = 14
61 <      Height = 15
61 >      Height = 14
62        Top = 18
63 <      Width = 57
63 >      Width = 64
64        Caption = 'First Name'
65        ParentColor = False
66      end
67      object DBEdit1: TDBEdit
68        Left = 14
69 <      Height = 23
69 >      Height = 24
70        Top = 32
71        Width = 136
72        DataField = 'FIRST_NAME'
# Line 75 | Line 77 | object Form1: TForm1
77      end
78      object Label4: TLabel
79        Left = 168
80 <      Height = 15
80 >      Height = 14
81        Top = 18
82 <      Width = 56
82 >      Width = 64
83        Caption = 'Last Name'
84        ParentColor = False
85      end
86      object DBEdit2: TDBEdit
87        Left = 168
88 <      Height = 23
88 >      Height = 24
89        Top = 32
90        Width = 144
91        DataField = 'LAST_NAME'
# Line 93 | Line 95 | object Form1: TForm1
95        TabOrder = 1
96      end
97      object Label5: TLabel
98 <      Left = 553
99 <      Height = 15
98 >      Left = 547
99 >      Height = 14
100        Top = 120
101 <      Width = 18
101 >      Width = 24
102        Anchors = [akTop, akRight]
103        Caption = 'Ext.'
104        ParentColor = False
105      end
106      object DBEdit3: TDBEdit
107        Left = 547
108 <      Height = 23
108 >      Height = 24
109        Top = 136
110        Width = 48
111        DataField = 'PHONE_EXT'
# Line 115 | Line 117 | object Form1: TForm1
117      end
118      object Label6: TLabel
119        Left = 16
120 <      Height = 15
120 >      Height = 14
121        Top = 65
122 <      Width = 49
122 >      Width = 56
123        Caption = 'Hire Date'
124        ParentColor = False
125      end
126      object Label7: TLabel
127        Left = 172
128 <      Height = 15
128 >      Height = 14
129        Top = 65
130 <      Width = 31
130 >      Width = 37
131        Caption = 'Salary'
132        ParentColor = False
133      end
134      object DBEdit4: TDBEdit
135        Left = 168
136 <      Height = 23
136 >      Height = 24
137        Top = 80
138        Width = 144
139        DataField = 'SALARY'
# Line 142 | Line 144 | object Form1: TForm1
144      end
145      object Label8: TLabel
146        Left = 392
147 <      Height = 15
147 >      Height = 14
148        Top = 16
149 <      Width = 46
149 >      Width = 51
150        Caption = 'Location'
151        ParentColor = False
152      end
153      object Label9: TLabel
154        Left = 331
155 <      Height = 15
155 >      Height = 14
156        Top = 16
157 <      Width = 31
157 >      Width = 36
158        Caption = 'Grade'
159        ParentColor = False
160      end
161      object DBComboBox1: TDBComboBox
162        Left = 331
163 <      Height = 23
163 >      Height = 25
164        Top = 32
165        Width = 53
166        DataField = 'JOB_GRADE'
167        DataSource = EmployeeSource
168 <      ItemHeight = 15
168 >      ItemHeight = 0
169        Items.Strings = (
170          '1'
171          '2'
# Line 178 | Line 180 | object Form1: TForm1
180      end
181      object Label10: TLabel
182        Left = 333
183 <      Height = 15
183 >      Height = 14
184        Top = 65
185 <      Width = 44
185 >      Width = 48
186        Caption = 'Job Title'
187        ParentColor = False
188      end
189      object Label11: TLabel
190        Left = 17
191 <      Height = 15
191 >      Height = 14
192        Top = 122
193 <      Width = 63
193 >      Width = 73
194        Caption = 'Department'
195        ParentColor = False
196      end
197      object DBEdit5: TDBEdit
198        Left = 17
199 <      Height = 23
199 >      Height = 24
200        Top = 136
201        Width = 495
202        DataField = 'DEPT_PATH'
# Line 232 | Line 234 | object Form1: TForm1
234        TabOrder = 6
235        AutoInsert = False
236        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
237 <      ItemHeight = 15
237 >      ItemHeight = 0
238      end
239      object IBLookupComboEditBox3: TIBLookupComboEditBox
240        Left = 331
241 <      Height = 23
241 >      Height = 28
242        Top = 82
243        Width = 264
244        Anchors = [akTop, akLeft, akRight]
# Line 251 | Line 253 | object Form1: TForm1
253        TabOrder = 7
254        AutoInsert = False
255        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
256 <      ItemHeight = 15
256 >      ItemHeight = 0
257      end
258      object IBDateEdit1: TDBDateEdit
259        Left = 17
260 <      Height = 23
260 >      Height = 24
261        Top = 82
262        Width = 112
263        CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
262 –      OKCaption = 'OK'
263 –      CancelCaption = 'Cancel'
264        DateOrder = doNone
265        ButtonWidth = 23
266        AutoSelect = False
# Line 302 | Line 302 | object Form1: TForm1
302      TabOrder = 4
303    end
304    object IBDatabase1: TIBDatabase
305 <    Connected = True
305 >    Connected = False
306 >    CreateIfNotExists = False
307      AllowStreamedConnected = False
308      DatabaseName = 'localhost:employee'
309      Params.Strings = (
# Line 324 | Line 325 | object Form1: TForm1
325      top = 24
326    end
327    object Employees: TIBDataSet
328 +    AllowAutoActivateTransaction = False
329      Database = IBDatabase1
330      Transaction = IBTransaction1
331      AfterDelete = EmployeesAfterDelete
# Line 553 | Line 555 | object Form1: TForm1
555      top = 56
556    end
557    object Countries: TIBQuery
558 +    AllowAutoActivateTransaction = False
559      Database = IBDatabase1
560      Transaction = IBTransaction1
561      BeforeOpen = CountriesBeforeOpen
# Line 597 | Line 600 | object Form1: TForm1
600      top = 58
601    end
602    object JobCodes: TIBQuery
603 +    AllowAutoActivateTransaction = False
604      Database = IBDatabase1
605      Transaction = IBTransaction1
606      BeforeOpen = JobCodesBeforeOpen

Diff Legend

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