MS_13.10.2015

app/DD-Record-Organiser/frmLevel_Designer.vb

@@ -221,8 +221,6 @@
 
         For Each dr As DataRow In dt.Rows
 
-            Console.WriteLine("LOADING CONTROL: " & dr.Item("CONTROL_ID"))
-
             Dim parent As GroupBox = Nothing
             If (dr.Item("CONTROL_PARENT_ID") <> 0) Then
                 Dim parentname As String = GetName_for_ControlID(dr.Item("CONTROL_PARENT_ID"), CURRENT_FORM_ID)
@@ -457,9 +455,6 @@
             CtrlBuilder.CurrentControl = sender
             CtrlBuilder.BeginLocation = e.Location
 
-            Console.Write("BEGIN")
-            Console.WriteLine(CtrlBuilder.BeginLocation.ToString)
-
             ' Set the mode flag to signal the MouseMove event handler that it
             ' needs to now calculate new positions for our control
             m_Moving = True
@@ -472,9 +467,6 @@
             'end_location = e.Location
             CtrlBuilder.EndLocation = e.Location
 
-            Console.Write("END")
-            Console.WriteLine(CtrlBuilder.EndLocation.ToString)
-
             frmTool_ControlProperties.Instance.UpdateControlLocation(CtrlBuilder.CurrentControl)
             ClassControlCommands.UpdateControlPosition(CtrlBuilder.CurrentControl.Location.X,
                                                        CtrlBuilder.CurrentControl.Location.Y,
@@ -504,7 +496,6 @@
                     Dim p As Control = control.Parent
                     Dim newPos As Point = New Point(NowCursor.X - p.Location.X - e.Location.X,
                                                     NowCursor.Y - p.Location.Y - e.Location.Y)
-                    Console.WriteLine("newpos: " & newPos.ToString)
 
                     ' Verhindert, dass das Control links+oben außerhalb der Groupbox geschoben wird = unerreichbar
                     If newPos.X < 0 Or newPos.Y < 0 Then