Codejock Developer Community : Mark Days at Runtine http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 28 May 2026 10:49:37 +0000 Thu, 25 Nov 2010 08:41:09 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=17589 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Mark Days at Runtine : Thanks for the reply McKloony, But...]]> http://forum.codejock.com/forum_posts.asp?TID=17589&PID=61551&title=mark-days-at-runtine#61551 Author: dexatron
Subject: 17589
Posted: 25 November 2010 at 8:41am

Thanks for the reply McKloony,

 
But I am trying to mark the background color of a selected day, not an event.
 

Greg
]]> Thu, 25 Nov 2010 08:41:09 +0000 http://forum.codejock.com/forum_posts.asp?TID=17589&PID=61551&title=mark-days-at-runtine#61551 <![CDATA[Mark Days at Runtine : First you have to selekt the...]]> http://forum.codejock.com/forum_posts.asp?TID=17589&PID=61528&title=mark-days-at-runtine#61528 Author: McKloony
Subject: 17589
Posted: 24 November 2010 at 2:33am

 

First you have to selekt the evebt, then you can do what you want with this event:

 


Private Sub calCont1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim TerNr As Long
Dim CaEvt As XtremeCalendarControl.CalendarEvent
Dim CaEvs As XtremeCalendarControl.CalendarEvents
Dim CaHit As XtremeCalendarControl.CalendarHitTestInfo
Dim ViEvt As XtremeCalendarControl.CalendarViewEvent
Dim ViEvs As XtremeCalendarControl.CalendarViewEvents

If Button = vbRightButton Then


Set ViEvs = CaCol.ActiveView.GetSelectedEvents
For Each ViEvt In ViEvs
    If ViEvt.Selected = True Then
        ViEvt.Selected = False
    End If
Next ViEvt

Set CaHit = CaCol.ActiveView.HitTest
If Not CaHit.HitCode = xtpCalendarHitTestDayViewTimeScale Then
    If Not CaHit.HitCode = xtpCalendarHitTestUnknown Then
        If Not CaHit.ViewEvent Is Nothing Then
            TerNr = CaHit.ViewEvent.Event.id
        Else
            TerNr = 0
        End If
    Else
        TerNr = 0
    End If
Else
    TerNr = 0
End If

If TerNr > 0 Then
    CaHit.ViewEvent.Selected = True
    CaCol.Populate
End If


End If

End Sub

]]> Wed, 24 Nov 2010 02:33:31 +0000 http://forum.codejock.com/forum_posts.asp?TID=17589&PID=61528&title=mark-days-at-runtine#61528 <![CDATA[Mark Days at Runtine : Hi, In the month view I am...]]> http://forum.codejock.com/forum_posts.asp?TID=17589&PID=61508&title=mark-days-at-runtine#61508 Author: dexatron
Subject: 17589
Posted: 23 November 2010 at 9:27am

Hi,
 
In the month view I am trying to figure out how to mark days with a different background color when a user right-clicks on a day and selects 'Mark or Unmark Day'
 
I've set BeforeDrawThemeObjectFlags to true
 
but am not sure if BeforeDrawDayViewCell is the place to put the code and even how to properly capture the current day.
 
Any help appreciated, Greg
 
 
 
 
]]> Tue, 23 Nov 2010 09:27:45 +0000 http://forum.codejock.com/forum_posts.asp?TID=17589&PID=61508&title=mark-days-at-runtine#61508