Code

.
.
.
Dim LoPointF As PointF = fcDiagramView.ClientToDoc(fcDiagramView.PointToClient(Control.MousePosition))
Dim LoContainerForTable As ClsMMContainerNode = AllowDropNodeOutsideOfContainer(LoPointF)

     If LoContainerForTable Is Nothing Then
          e.Cancel = True
          Debug.Print("setting TRUE")
     Else
          e.Cancel = False
          Debug.Print("setting FALSE")
          Me.fcDiagramView.CurrentCursor = Cursors.SizeAll
     End If
.
.
.



'examine possibility to drop node outside of container
Private Function AllowDropNodeOutsideOfContainer(ByVal LoCoordinate As PointF) As ClsMMContainerNode
Dim LoNodeUnderCursor As DiagramNode = Me.fcDiagram.GetNodeAt(LoCoordinate, True, True)

     If LoNodeUnderCursor IsNot Nothing AndAlso LoNodeUnderCursor.GetType.Name = "ClsMMContainerNode" Then
          Return LoNodeUnderCursor
     Else
          Return Nothing
     End If

End Function
 

Code

Me.fcDiagramView.CurrentCursor = Cursors.SizeAll
 

Code

'overrided sub - when a diagram item is dropped over this node
    Public Overrides Function OnDropOver(ByVal item As MindFusion.Diagramming.DiagramItem) As Boolean
        'only table is accepted for adding to container
        If AllowAddNodeToContainer(item) Then
            RaiseEvent a()
            Return MyBase.OnDropOver(item)
        Else
            Return False
        End If
    End Function
 

Code

'perform fitting of size of table for any types of modification
    Private Sub fcDiagram_NodeModifying(ByVal sender As Object, ByVal e As MindFusion.Diagramming.NodeValidationEventArgs) Handles fcDiagram.NodeModifying
        MoAmodFile.FileWasModified = True

        Select Case e.AdjustmentHandle
            Case AdjustmentHandles.ResizeBottomCenter, AdjustmentHandles.ResizeBottomLeft, _
                 AdjustmentHandles.ResizeBottomRight, AdjustmentHandles.ResizeMiddleLeft, AdjustmentHandles.ResizeMiddleRight, _
                 AdjustmentHandles.ResizeTopCenter, AdjustmentHandles.ResizeTopLeft, AdjustmentHandles.ResizeTopRight
                Select Case e.Node.GetType.Name
                    Case "ClsMMTableNode"
                        CType(e.Node, ClsMMTableNode).MMResizeAllToFitTable(False)
                    Case "ClsMMContainerNode"
                        CType(e.Node, ClsMMContainerNode).MMResizeHeightOfCaption()
                End Select
            Case AdjustmentHandles.Move
                Select Case e.Node.GetType.Name
                    Case "ClsMMTableNode"
                        Dim LoPointF As PointF = fcDiagramView.ClientToDoc(fcDiagramView.PointToClient(Control.MousePosition))
                        Dim LoContainerForTable As ClsMMContainerNode = AllowDropNodeOutsideOfContainer(LoPointF)

                        If LoContainerForTable Is Nothing Then
                            e.Cancel = True
                            Debug.Print("nastavujem TRUE")
                        Else
                            e.Cancel = False
                            Debug.Print("nastavujem FALSE")
                            Me.fcDiagramView.CurrentCursor = Cursors.SizeAll
                        End If

                        Debug.Print(e.Cancel)
                End Select
        End Select
    End Sub