Drag and Drop element - get target TileGroupElement

[Marek Kruk]

Hi,
in my scenario I need to know target TileGroupElement of drag and drop operation.
I try to use PreviewDragOver event:

AddHandler RadPanorama1.PanoramaElement.DragDropService.PreviewDragOver, AddressOf PreviewDragOver

and

Private Sub PreviewDragOver(sender As Object, e As RadDragOverEventArgs)

      


        'TARGET NAME


        rlabHello.Text = e.HitTarget.GetType.ToString

 

    End Sub

When I do "Drag Over" RadTileElement I get RadTileElement,  but when I do "Drag Over" TileGroupElement I get RadPanoramaElement.

How I can get TileGroupElement in both cases?

Thanks,
Marek

[Dess | Tech Support Engineer, Principal]

Hello Marek,

Thank you for contacting Telerik Support.

You are in the right direction with subscribing for PreviewDragOver event. When "Drag Over" RadTileElement or TileGroupElement you can use the following code snippet to get the TileGroupElement in both cases:

Private Sub DragDropService_PreviewDragOver(sender As Object, e As Telerik.WinControls.RadDragOverEventArgs)
    Dim location As Point = Me.PointToClient(MousePosition)
    Dim dragTileElement As RadTileElement = TryCast(e.DragInstance, RadTileElement)

    Dim overTileElement As RadTileElement = TryCast(dragTileElement.ElementTree.GetElementAtPoint(location), RadTileElement)
    Dim overTileGroupElement As TileGroupElement = TryCast(dragTileElement.ElementTree.GetElementAtPoint(location), TileGroupElement)
    Dim tileGroupElement As TileGroupElement = Nothing

    If overTileGroupElement IsNot Nothing Then
        tileGroupElement = overTileGroupElement
    ElseIf overTileElement IsNot Nothing Then
        tileGroupElement = TryCast(overTileElement.Parent.Parent, TileGroupElement)
    End If

End Sub

I hope this information helps. Please let me know if I can assist you any further with this service request. Thank you in advance.

Regards, Desislava
Telerik

[Marek Kruk]

Many thanks, that's what I meant.

Marek