Calendar Control missing thing

rgb

Missing method for check when you click in control if a CalendarItem are in mouse click

Usual for display contextual menu or other things..

Calendar.FindItem(Double x,Double y) As CalendarItem

Event MouseDown(Double x,Double x)

var ret as object

ret = me.FindItem(x,y)

if ret <> nothing then

print("clicked in calendar item")

end if

TheTomas

in addition to this: Same for a drag & drop movement on items within the control?

Garry

Thanks for the suggestion. I’ve added this for the next release as:

Calendar.ItemAtPoint(x As Double, y As Double) As CalendarItem

It returns the visible calendar item at the supplied coordinates, or Nothing if the pointer is not over an item. It works in month, week, and day views, including when the week/day view has been scrolled.

For example:

Sub Calendar1_MouseDown(x As Double, y As Double, button As MouseButton)
    If button <> MouseButton.Right Then Return

    Var item As CalendarItem = Calendar1.ItemAtPoint(x, y)
    If item <> Nothing Then
        Print("Right-clicked " + item.Title)
    End If
End Sub

I used ItemAtPoint rather than FindItem to make it clear that this is coordinate-based hit testing.

Dragging items to reschedule them is a larger, separate feature and isn’t included in this change.

TheTomas

This new .ItemAtPoint fixes the drag & drop aswell, doesn't it?

Garry

Not quite. ItemAtPoint() lets you identify the CalendarItem at the start of a drag, so it’s one building block. However, completing the drag also requires translating the drop coordinates into a target date/time (including empty slots) and providing the appropriate drag feedback. The Calendar doesn’t currently do that or reschedule the item automatically, so drag-to-move remains a separate feature.

TheTomas

right, I missed this