Edit this page

OLE Drag and Drop

RadDiagram is capable of performing drag and drop operation using the native OLE drag and drop support. The example below handles a scenario in which shape elments are being dragged from one diagram control and dropped onto another.

Figure 1: Drag and Drop Between Two Diagrams

diagram-drag-and-drop-ole-drag-and-drop 001

In order to achieve the desired result the MouseDown, MouseMove and MouseUp events need to be handled in the first diagram. The drag operation will be started in the handler of the MouseMove event. The second diagram instance needs to be subscribed to the DragEnter and DragDrop events.

Subscribe to Events

public OleDragAndDropForm()
    this.radDiagram2.AllowDrop = true;
    this.radDiagram1.IsDraggingEnabled = false;
    this.radDiagram1.MouseMove += radDiagram1_MouseMove;
    this.radDiagram1.MouseDown += radDiagram1_MouseDown;
    this.radDiagram1.MouseUp += radDiagram1_MouseUp;
    this.radDiagram2.DragEnter += radDiagram2_DragEnter;
    this.radDiagram2.DragDrop += radDiagram2_DragDrop;

Public Sub New()
    Me.RadDiagram2.AllowDrop = True
    Me.RadDiagram1.IsDraggingEnabled = False
    AddHandler Me.RadDiagram1.MouseMove, AddressOf radDiagram1_MouseMove
    AddHandler Me.RadDiagram1.MouseDown, AddressOf radDiagram1_MouseDown
    AddHandler Me.RadDiagram1.MouseUp, AddressOf radDiagram1_MouseUp
    AddHandler Me.RadDiagram2.DragEnter, AddressOf radDiagram2_DragEnter
    AddHandler Me.RadDiagram2.DragDrop, AddressOf radDiagram2_DragDrop
End Sub

For the purpose of the example we will define a grid model object storing information about the shapes.

Handling Events

RadDiagram will accept the dragged data only if it is dropped on the diagram element. The PreviewDragDrop event handler will be responsible for reading the data and transforming it to a shape.

Drag and Drop Events

private void radDiagram2_DragDrop(object sender, DragEventArgs e)
    Telerik.WinControls.UI.RadDiagram diagram = sender as Telerik.WinControls.UI.RadDiagram;
    Point point = diagram.PointToClient(new Point(e.X, e.Y));
    RadDiagramShape draggedItem = e.Data.GetData(typeof(RadDiagramShape)) as RadDiagramShape;
    draggedItem.Position = point;
    this.mouseDownPosition = Point.Empty;
private void radDiagram2_DragEnter(object sender, DragEventArgs e)
    e.Effect = DragDropEffects.Copy;
private Point mouseDownPosition;
private void radDiagram1_MouseDown(object sender, MouseEventArgs e)
    this.mouseDownPosition = e.Location;
private void radDiagram1_MouseUp(object sender, MouseEventArgs e)
    this.mouseDownPosition = Point.Empty;
private void radDiagram1_MouseMove(object sender, MouseEventArgs e)
    if (!(e.Button == MouseButtons.Left))
    if (this.ShouldBeginDrag(this.mouseDownPosition, e.Location))
        RadDiagramShape draggedItem = this.radDiagram1.ElementTree.GetElementAtPoint(this.mouseDownPosition).Parent as RadDiagramShape;
        if (draggedItem != null)
            ((Telerik.WinControls.UI.RadDiagram)sender).DoDragDrop(draggedItem, DragDropEffects.Copy);
private bool ShouldBeginDrag(Point current, Point capture)
    Size dragSize = SystemInformation.DragSize;
    Rectangle dragRect = new Rectangle(capture.X - dragSize.Width / 2,
        capture.Y - dragSize.Height / 2, dragSize.Width, dragSize.Height);
    return !dragRect.Contains(current);

Private Sub radDiagram2_DragDrop(sender As Object, e As DragEventArgs)
    Dim diagram As Telerik.WinControls.UI.RadDiagram = TryCast(sender, Telerik.WinControls.UI.RadDiagram)
    Dim point As Point = diagram.PointToClient(New Point(e.X, e.Y))
    Dim draggedItem As RadDiagramShape = TryCast(e.Data.GetData(GetType(RadDiagramShape)), RadDiagramShape)
    draggedItem.Position = point
    Me.mouseDownPosition = point.Empty
End Sub
Private Sub radDiagram2_DragEnter(sender As Object, e As DragEventArgs)
    e.Effect = DragDropEffects.Copy
End Sub
Private mouseDownPosition As Point
Private Sub radDiagram1_MouseDown(sender As Object, e As MouseEventArgs)
    Me.mouseDownPosition = e.Location
End Sub
Private Sub radDiagram1_MouseUp(sender As Object, e As MouseEventArgs)
    Me.mouseDownPosition = Point.Empty
End Sub
Private Sub radDiagram1_MouseMove(sender As Object, e As MouseEventArgs)
    If Not (e.Button = MouseButtons.Left) Then
    End If
    If Me.ShouldBeginDrag(Me.mouseDownPosition, e.Location) Then
        Dim draggedItem As RadDiagramShape = TryCast(Me.RadDiagram1.ElementTree.GetElementAtPoint(Me.mouseDownPosition).Parent, RadDiagramShape)
        If draggedItem IsNot Nothing Then
            DirectCast(sender, Telerik.WinControls.UI.RadDiagram).DoDragDrop(draggedItem, DragDropEffects.Copy)
        End If
    End If
End Sub
Private Function ShouldBeginDrag(current As Point, capture As Point) As Boolean
    Dim dragSize As Size = SystemInformation.DragSize
    Dim dragRect As New Rectangle(capture.X - dragSize.Width / 2, capture.Y - dragSize.Height / 2, dragSize.Width, dragSize.Height)
    Return Not dragRect.Contains(current)
End Function

See Also