--- ibx/trunk/examples/DBAdmin/MainFormUnit.lfm	2018/03/15 11:02:09	212
+++ ibx/trunk/examples/DBAdmin/MainFormUnit.lfm	2018/03/15 12:53:41	213
@@ -65,12 +65,12 @@ object MainForm: TMainForm
     Height = 548
     Top = 26
     Width = 939
-    ActivePage = AttachmentsTab
+    ActivePage = AccessRightsTab
     Align = alClient
     MultiLine = True
     ParentShowHint = False
     ShowHint = True
-    TabIndex = 2
+    TabIndex = 7
     TabOrder = 2
     Options = [nboMultiLine]
     object Properties: TTabSheet
@@ -2015,7 +2015,7 @@ object MainForm: TMainForm
       OnShow = AccessRightsTabShow
       object AccessRightsTreeView: TIBTreeView
         Left = 0
-        Height = 519
+        Height = 516
         Top = 0
         Width = 300
         Align = alLeft
@@ -2028,20 +2028,22 @@ object MainForm: TMainForm
         KeyField = 'ID'
         ParentField = 'PARENT'
         PopupMenu = AccessRightsPopup
+        ReadOnly = True
         TabOrder = 0
         OnSelectionChanged = AccessRightsTreeViewSelectionChanged
+        Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
       end
       object Splitter5: TSplitter
         Left = 300
-        Height = 519
+        Height = 516
         Top = 0
         Width = 5
       end
       object SubjectAccessRightsGrid: TIBDynamicGrid
         Left = 305
-        Height = 519
+        Height = 516
         Top = 0
-        Width = 626
+        Width = 628
         Align = alClient
         Color = clWindow
         Columns = <