jj_02_02_16

app/DD-Record-Organiser/frmLevel_Designer.vb

@@ -621,44 +621,6 @@
             m_Moving = False
         End Try
 
-
-
-        'Try
-        '    'If akt_ctrl Is Nothing Then
-        '    If CtrlBuilder.CurrentControl Is Nothing Then
-        '        Exit Sub
-        '    End If
-        '    'Check which mode we're in. If we're supposed to be moving
-        '    'our control
-        '    If m_Moving = True Then
-        '        Me.Cursor = Cursors.Hand
-        '        Me.Refresh()
-        '        Dim LastCursor As Point
-
-        '        ' ADDED 18.11
-        '        Dim control As Control = DirectCast(sender, Control)
-        '        ' get the screen position of the mouse pointer and map it
-        '        ' to the position relative to the top-left corner of our
-        '        ' parent container
-        '        Dim NowCursor As Point = New Point(Cursor.Position.X,
-        '                                           Cursor.Position.Y)
-        '        Dim clientPosition As Point = CtrlBuilder.GetCursorPosition()
-
-        '        If Point.op_Inequality(NowCursor, LastCursor) Then
-        '            Console.WriteLine("MOUSE: " & clientPosition.X & " " & clientPosition.Y)
-        '            Console.WriteLine("CNTRL: " & clientPosition.X - CtrlBuilder.BeginLocation.X & " " & clientPosition.Y - CtrlBuilder.BeginLocation.Y)
-
-        '            control.Location = New Point(clientPosition.X - CtrlBuilder.BeginLocation.X,
-        '                                         clientPosition.Y - CtrlBuilder.BeginLocation.Y)
-
-        '        End If
-        '    End If
-
-        'Catch ex As Exception
-        '    MsgBox(ex.Message, MsgBoxStyle.Exclamation, "MovableLabel_MouseMove")
-        '    m_Moving = False
-        'End Try
-
     End Sub
 #End Region