--- ibx/trunk/examples/ibtreeview/Unit1.lfm	2017/10/03 14:08:11	67
+++ ibx/trunk/examples/ibtreeview/Unit1.lfm	2017/10/17 10:07:58	68
@@ -1,14 +1,16 @@
 object Form1: TForm1
-  Left = 636
+  Left = 552
   Height = 438
   Top = 437
   Width = 722
   Caption = 'TIBTreeView Example'
   ClientHeight = 438
   ClientWidth = 722
+  DefaultMonitor = dmPrimary
   OnClose = FormClose
   OnShow = FormShow
-  LCLVersion = '1.6.0.4'
+  Position = poScreenCenter
+  LCLVersion = '1.8.0.4'
   object Panel1: TPanel
     Left = 11
     Height = 367
@@ -27,7 +29,6 @@ object Form1: TForm1
       Align = alLeft
       TextField = 'DEPARTMENT'
       DataSource = DataSource1
-      DefaultItemHeight = 18
       DragMode = dmAutomatic
       Images = ImageList1
       HasChildField = 'CHILDCOUNT'
@@ -70,7 +71,7 @@ object Form1: TForm1
         TabOrder = 0
         object Label2: TLabel
           Left = 11
-          Height = 15
+          Height = 14
           Top = 16
           Width = 25
           Caption = 'Title'
@@ -78,7 +79,7 @@ object Form1: TForm1
         end
         object DBEdit1: TDBEdit
           Left = 11
-          Height = 25
+          Height = 24
           Top = 31
           Width = 373
           DataField = 'DEPARTMENT'
@@ -90,7 +91,7 @@ object Form1: TForm1
         end
         object Label3: TLabel
           Left = 13
-          Height = 15
+          Height = 14
           Top = 71
           Width = 51
           Caption = 'Location'
@@ -98,7 +99,7 @@ object Form1: TForm1
         end
         object DBEdit4: TDBEdit
           Left = 13
-          Height = 25
+          Height = 24
           Top = 86
           Width = 179
           DataField = 'LOCATION'
@@ -109,7 +110,7 @@ object Form1: TForm1
         end
         object Label4: TLabel
           Left = 219
-          Height = 15
+          Height = 14
           Top = 71
           Width = 44
           Caption = 'Budget'
@@ -117,7 +118,7 @@ object Form1: TForm1
         end
         object DBEdit2: TDBEdit
           Left = 219
-          Height = 25
+          Height = 24
           Top = 86
           Width = 165
           DataField = 'BUDGET'
@@ -129,7 +130,7 @@ object Form1: TForm1
         end
         object Label5: TLabel
           Left = 219
-          Height = 15
+          Height = 14
           Top = 121
           Width = 61
           Caption = 'Phone No.'
@@ -137,7 +138,7 @@ object Form1: TForm1
         end
         object DBEdit3: TDBEdit
           Left = 219
-          Height = 25
+          Height = 24
           Top = 136
           Width = 165
           DataField = 'PHONE_NO'
@@ -149,7 +150,7 @@ object Form1: TForm1
         end
         object Label6: TLabel
           Left = 12
-          Height = 15
+          Height = 14
           Top = 121
           Width = 52
           Caption = 'Manager'
@@ -174,7 +175,7 @@ object Form1: TForm1
         end
         object Label7: TLabel
           Left = 12
-          Height = 15
+          Height = 14
           Top = 172
           Width = 115
           Caption = 'Departmental Staff'
@@ -248,7 +249,7 @@ object Form1: TForm1
   end
   object Label1: TLabel
     Left = 11
-    Height = 15
+    Height = 14
     Top = 17
     Width = 79
     Caption = 'Departments'
@@ -276,6 +277,7 @@ object Form1: TForm1
   end
   object IBDatabase1: TIBDatabase
     Connected = False
+    CreateIfNotExists = False
     AllowStreamedConnected = False
     DatabaseName = 'localhost:employee'
     Params.Strings = (
@@ -301,6 +303,7 @@ object Form1: TForm1
     top = 136
   end
   object Departments: TIBDataSet
+    AllowAutoActivateTransaction = False
     Database = IBDatabase1
     Transaction = IBTransaction1
     AfterDelete = DepartmentsAfterDelete
@@ -448,6 +451,7 @@ object Form1: TForm1
     top = 48
   end
   object Managers: TIBQuery
+    AllowAutoActivateTransaction = False
     Database = IBDatabase1
     Transaction = IBTransaction1
     BufferChunks = 1000
@@ -469,6 +473,7 @@ object Form1: TForm1
     top = 221
   end
   object Staff: TIBQuery
+    AllowAutoActivateTransaction = False
     Database = IBDatabase1
     Transaction = IBTransaction1
     BufferChunks = 1000