Update Version 1.2

SW/AssessmentMgmt/Klassen/MySecurity.vb

@@ -342,7 +342,7 @@ Namespace Utils
                         ctl.Visible = False
                         ctl.Enabled = False
                     End If
-                Case "textbox", "label", "combobox", "checkbox", "toolstripbutton", "panel", "datetimepicker"
+                Case "textbox", "label", "combobox", "checkbox", "toolstripbutton", "panel", "datetimepicker", "toolstrip"
                     If read_only Then obj.Enabled = False
                     If invisible Then obj.Visible = False
                 Case "richtextbox"
@@ -371,6 +371,7 @@ Namespace Utils
                             Me.Objectanalysis_readonly(CTLX)
                         Next
                     End If
+
                 Case "c1truedbgrid"
                     Dim ctl As C1TrueDBGrid = obj
                     If SecurityObjectItem = "" Then
@@ -496,6 +497,20 @@ Namespace Utils
                     For Each xctl As Object In ctrl.Controls
                         Objectanalysis(xctl)
                     Next
+                Case "advtree"
+                    ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
+                    Dim ctrl As DevComponents.AdvTree.AdvTree = ctl
+                    Try
+
+                        If ctrl.ContextMenuStrip.Name <> "" Then
+                            Dim x As ContextMenuStrip = ctrl.ContextMenuStrip
+                            Objectanalysis(x)
+                        End If
+
+                    Catch ex As Exception
+
+                    End Try
+
                 Case "treeview"
                     ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
                     Dim ctrl As TreeView = ctl