--- ibx/trunk/examples/lookupcombobox/Unit1.lfm	2017/10/03 14:08:11	67
+++ ibx/trunk/examples/lookupcombobox/Unit1.lfm	2017/10/17 10:07:58	68
@@ -1,25 +1,27 @@
 object Form1: TForm1
-  Left = 711
+  Left = 616
   Height = 329
   Top = 256
   Width = 658
   Caption = 'IBLookup Combo Box Demo'
   ClientHeight = 329
   ClientWidth = 658
+  DefaultMonitor = dmPrimary
   OnClose = FormClose
   OnShow = FormShow
-  LCLVersion = '1.6.0.4'
+  Position = poScreenCenter
+  LCLVersion = '1.8.0.4'
   object Label1: TLabel
     Left = 16
-    Height = 15
+    Height = 14
     Top = 16
-    Width = 87
+    Width = 98
     Caption = 'Employee Name'
     ParentColor = False
   end
   object IBLookupComboEditBox1: TIBLookupComboEditBox
     Left = 16
-    Height = 23
+    Height = 27
     Top = 32
     Width = 224
     KeyField = 'EMP_NO'
@@ -31,15 +33,15 @@ object Form1: TForm1
     TabOrder = 0
     AutoInsert = True
     AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
-    ItemHeight = 15
+    ItemHeight = 0
     KeyPressInterval = 600
     OnCanAutoInsert = IBLookupComboEditBox1CanAutoInsert
   end
   object Label2: TLabel
     Left = 16
-    Height = 15
+    Height = 14
     Top = 79
-    Width = 90
+    Width = 103
     Caption = 'Employee Details'
     ParentColor = False
   end
@@ -56,15 +58,15 @@ object Form1: TForm1
     TabOrder = 1
     object Label3: TLabel
       Left = 14
-      Height = 15
+      Height = 14
       Top = 18
-      Width = 57
+      Width = 64
       Caption = 'First Name'
       ParentColor = False
     end
     object DBEdit1: TDBEdit
       Left = 14
-      Height = 23
+      Height = 24
       Top = 32
       Width = 136
       DataField = 'FIRST_NAME'
@@ -75,15 +77,15 @@ object Form1: TForm1
     end
     object Label4: TLabel
       Left = 168
-      Height = 15
+      Height = 14
       Top = 18
-      Width = 56
+      Width = 64
       Caption = 'Last Name'
       ParentColor = False
     end
     object DBEdit2: TDBEdit
       Left = 168
-      Height = 23
+      Height = 24
       Top = 32
       Width = 144
       DataField = 'LAST_NAME'
@@ -93,17 +95,17 @@ object Form1: TForm1
       TabOrder = 1
     end
     object Label5: TLabel
-      Left = 553
-      Height = 15
+      Left = 547
+      Height = 14
       Top = 120
-      Width = 18
+      Width = 24
       Anchors = [akTop, akRight]
       Caption = 'Ext.'
       ParentColor = False
     end
     object DBEdit3: TDBEdit
       Left = 547
-      Height = 23
+      Height = 24
       Top = 136
       Width = 48
       DataField = 'PHONE_EXT'
@@ -115,23 +117,23 @@ object Form1: TForm1
     end
     object Label6: TLabel
       Left = 16
-      Height = 15
+      Height = 14
       Top = 65
-      Width = 49
+      Width = 56
       Caption = 'Hire Date'
       ParentColor = False
     end
     object Label7: TLabel
       Left = 172
-      Height = 15
+      Height = 14
       Top = 65
-      Width = 31
+      Width = 37
       Caption = 'Salary'
       ParentColor = False
     end
     object DBEdit4: TDBEdit
       Left = 168
-      Height = 23
+      Height = 24
       Top = 80
       Width = 144
       DataField = 'SALARY'
@@ -142,28 +144,28 @@ object Form1: TForm1
     end
     object Label8: TLabel
       Left = 392
-      Height = 15
+      Height = 14
       Top = 16
-      Width = 46
+      Width = 51
       Caption = 'Location'
       ParentColor = False
     end
     object Label9: TLabel
       Left = 331
-      Height = 15
+      Height = 14
       Top = 16
-      Width = 31
+      Width = 36
       Caption = 'Grade'
       ParentColor = False
     end
     object DBComboBox1: TDBComboBox
       Left = 331
-      Height = 23
+      Height = 25
       Top = 32
       Width = 53
       DataField = 'JOB_GRADE'
       DataSource = EmployeeSource
-      ItemHeight = 15
+      ItemHeight = 0
       Items.Strings = (
         '1'
         '2'
@@ -178,23 +180,23 @@ object Form1: TForm1
     end
     object Label10: TLabel
       Left = 333
-      Height = 15
+      Height = 14
       Top = 65
-      Width = 44
+      Width = 48
       Caption = 'Job Title'
       ParentColor = False
     end
     object Label11: TLabel
       Left = 17
-      Height = 15
+      Height = 14
       Top = 122
-      Width = 63
+      Width = 73
       Caption = 'Department'
       ParentColor = False
     end
     object DBEdit5: TDBEdit
       Left = 17
-      Height = 23
+      Height = 24
       Top = 136
       Width = 495
       DataField = 'DEPT_PATH'
@@ -232,11 +234,11 @@ object Form1: TForm1
       TabOrder = 6
       AutoInsert = False
       AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
-      ItemHeight = 15
+      ItemHeight = 0
     end
     object IBLookupComboEditBox3: TIBLookupComboEditBox
       Left = 331
-      Height = 23
+      Height = 28
       Top = 82
       Width = 264
       Anchors = [akTop, akLeft, akRight]
@@ -251,16 +253,14 @@ object Form1: TForm1
       TabOrder = 7
       AutoInsert = False
       AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
-      ItemHeight = 15
+      ItemHeight = 0
     end
     object IBDateEdit1: TDBDateEdit
       Left = 17
-      Height = 23
+      Height = 24
       Top = 82
       Width = 112
       CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
-      OKCaption = 'OK'
-      CancelCaption = 'Cancel'
       DateOrder = doNone
       ButtonWidth = 23
       AutoSelect = False
@@ -302,7 +302,8 @@ object Form1: TForm1
     TabOrder = 4
   end
   object IBDatabase1: TIBDatabase
-    Connected = True
+    Connected = False
+    CreateIfNotExists = False
     AllowStreamedConnected = False
     DatabaseName = 'localhost:employee'
     Params.Strings = (
@@ -324,6 +325,7 @@ object Form1: TForm1
     top = 24
   end
   object Employees: TIBDataSet
+    AllowAutoActivateTransaction = False
     Database = IBDatabase1
     Transaction = IBTransaction1
     AfterDelete = EmployeesAfterDelete
@@ -553,6 +555,7 @@ object Form1: TForm1
     top = 56
   end
   object Countries: TIBQuery
+    AllowAutoActivateTransaction = False
     Database = IBDatabase1
     Transaction = IBTransaction1
     BeforeOpen = CountriesBeforeOpen
@@ -597,6 +600,7 @@ object Form1: TForm1
     top = 58
   end
   object JobCodes: TIBQuery
+    AllowAutoActivateTransaction = False
     Database = IBDatabase1
     Transaction = IBTransaction1
     BeforeOpen = JobCodesBeforeOpen