Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Calendar
  New Posts New Posts RSS Feed - More Questions
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

More Questions

 Post Reply Post Reply
Author
Message
Yonger View Drop Down
Newbie
Newbie


Joined: 08 August 2005
Status: Offline
Points: 9
Post Options Post Options   Thanks (0) Thanks(0)   Quote Yonger Quote  Post ReplyReply Direct Link To This Post Topic: More Questions
    Posted: 09 August 2005 at 12:44pm

Is there a way to disable the ability to click and drag events to other times?

Is there an onclick type event I can override that will return the calendar event that has been clicked on?

Do you have any plans to release any more documentation on the calandar?

Back to Top
sserge View Drop Down
Moderator Group
Moderator Group


Joined: 01 December 2004
Status: Offline
Points: 1297
Post Options Post Options   Thanks (0) Thanks(0)   Quote sserge Quote  Post ReplyReply Direct Link To This Post Posted: 10 August 2005 at 7:33am
Quote Is there a way to disable the ability to click and drag events to other times?


Yes.
There are following events: IsEditOperationDisabled, BeforeEditOperation

See calendar VB demo project for example

Quote Is there an onclick type event I can override that will return the calendar event that has been clicked on?


Yes.
See method CalendarControl.ActiveView.HitTest and in the returned object use member: CalendarHitTestInfo.ViewEvent.Event
Note that it could be Nothing.
See calendar VB demo project for more detailed example.

Quote Do you have any plans to release any more documentation on the calandar?


Sure.

--
WBR,
Serge
Back to Top
Yonger View Drop Down
Newbie
Newbie


Joined: 08 August 2005
Status: Offline
Points: 9
Post Options Post Options   Thanks (0) Thanks(0)   Quote Yonger Quote  Post ReplyReply Direct Link To This Post Posted: 23 August 2005 at 3:12pm

Just had a chance to look at these issues again.  Thanks for the help.  Below is my code if anyone else runs into these issues.

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Disable dragging of events on the calendar

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Calendar_BeforeEditOperation1(ByVal sender As Object, ByVal e As AxXtremeCalendarControl._DCalendarControlEvents_BeforeEditOp erationEvent) Handles Calendar.BeforeEditOperation

    e.cancelOperation = True

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Get info on the event you click on...

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Calendar_MouseDownEvent(ByVal sender As Object, ByVal e As AxXtremeCalendarControl._DCalendarControlEvents_MouseDownEve nt) Handles Calendar.MouseDownEvent

    Dim IT As XtremeCalendarControl.CalendarHitTestInfo

    IT = Calendar.ActiveView.HitTest()

    If IT.HitCode = 8224 Or IT.HitCode = 32 Then

      MsgBox(IT.ViewEvent.Event.Subject + " - " +  IT.ViewEvent.Event.Location)

   Else

     MsgBox("Nothing there!")

   End If

End Sub

Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.236 seconds.