jj__25_01_16

app/DD-Record-Organiser/ClassControlCommandsUI.vb

@@ -31,7 +31,7 @@ Public Class ClassControlCommandsUI
         Dim SQL As String = "SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = " & FormId & " and SCREEN_ID = 1"
         Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
 
-
+        _CtrlBuilder.MasterPanel.SuspendLayout()
 
         For Each dr As DataRow In DT.Rows
 
@@ -249,6 +249,9 @@ Public Class ClassControlCommandsUI
                                             dr.Item("CONTROL_SQLCOMMAND_1"),
                                             parent)
             End Select
+
+            _CtrlBuilder.MasterPanel.ResumeLayout()
+
             ' ContextMenuStrip zuweisen
             ' MasterDataID im ContextMenuStrip Speichern
             If dr.Item("CTRLSCR_MASTER_DATA_ID") <> 0 Then