Codejock Developer Community : SOLVED: CalendarThemeImageList Add

Codejock Developer Community : SOLVED: CalendarThemeImageList Add http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 17:46:02 +0000 Tue, 07 Jun 2011 14:28:25 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=18051 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[SOLVED: CalendarThemeImageList Add : i think you use access 2010i cant...]]> http://forum.codejock.com/forum_posts.asp?TID=18051&PID=64793&title=solved-calendarthemeimagelist-add#64793 Author: Roland
Subject: 18051
Posted: 07 June 2011 at 2:28pm

i think you use access 2010

i cant use

CalendarControl_PrePopulate &

PrePopulateDay event handler

maybe in reference sometime missing or something else

please help me

]]> Tue, 07 Jun 2011 14:28:25 +0000 http://forum.codejock.com/forum_posts.asp?TID=18051&PID=64793&title=solved-calendarthemeimagelist-add#64793 <![CDATA[SOLVED: CalendarThemeImageList Add : You can just do this assuming...]]> http://forum.codejock.com/forum_posts.asp?TID=18051&PID=63348&title=solved-calendarthemeimagelist-add#63348 Author: SuperMario
Subject: 18051
Posted: 16 March 2011 at 10:59am

You can just do this assuming you have an ImageManager on your form called CalendarImageManager:

Set objThemeOfice2007.CustomIcons = CalendarImageManager.Icons]]> Wed, 16 Mar 2011 10:59:25 +0000 http://forum.codejock.com/forum_posts.asp?TID=18051&PID=63348&title=solved-calendarthemeimagelist-add#63348 <![CDATA[SOLVED: CalendarThemeImageList Add : Is it also possible to add...]]> http://forum.codejock.com/forum_posts.asp?TID=18051&PID=63347&title=solved-calendarthemeimagelist-add#63347 Author: McKloony
Subject: 18051
Posted: 16 March 2011 at 10:35am

Is it also possible to add CustomIcons from the ImageManager?]]> Wed, 16 Mar 2011 10:35:12 +0000 http://forum.codejock.com/forum_posts.asp?TID=18051&PID=63347&title=solved-calendarthemeimagelist-add#63347 <![CDATA[SOLVED: CalendarThemeImageList Add : Icons for day headers I don't...]]> http://forum.codejock.com/forum_posts.asp?TID=18051&PID=63344&title=solved-calendarthemeimagelist-add#63344 Author: SuperMario
Subject: 18051
Posted: 16 March 2011 at 9:10am

Icons for day headers I don't think is possible, at least in COM version. CalendarThemeImageList is used for "parts" of the day headers. I guess it might be possible if you could fit something in the "left" or "right" parts as I don't think they get repeated.
]]> Wed, 16 Mar 2011 09:10:53 +0000 http://forum.codejock.com/forum_posts.asp?TID=18051&PID=63344&title=solved-calendarthemeimagelist-add#63344 <![CDATA[SOLVED: CalendarThemeImageList Add : For custom icons you do this:...]]> http://forum.codejock.com/forum_posts.asp?TID=18051&PID=63343&title=solved-calendarthemeimagelist-add#63343 Author: SuperMario
Subject: 18051
Posted: 16 March 2011 at 8:59am

For custom icons you do this:

    Dim objThemeOfice2007 As CalendarThemeOffice2007
    Set objThemeOfice2007 = CalendarControl.Theme

    If objThemeOfice2007 Is Nothing Then Exit Sub


        ' add custom icons with special IDs to use them instead of standard
        ' see also PrePopulate event handler

        objThemeOfice2007.CustomIcons.LoadBitmap App.Path & "\Icons\Reminder.bmp", xtpCalendarEventIconIDReminder, xtpImageNormal
        objThemeOfice2007.CustomIcons.LoadBitmap App.Path & "\Icons\Occ.bmp", xtpCalendarEventIconIDOccurrence, xtpImageNormal
        objThemeOfice2007.CustomIcons.LoadBitmap App.Path & "\Icons\Exc.bmp", xtpCalendarEventIconIDException, xtpImageNormal
        objThemeOfice2007.CustomIcons.LoadBitmap App.Path & "\Icons\Private.bmp", xtpCalendarEventIconIDPrivate, xtpImageNormal

        'objThemeOfice2007.CustomIcons.AddIcon ImageListCustomIcons.ListImages.Item(1).ExtractIcon.Handle, xtpCalendarEventIconIDReminder, xtpImageNormal
        'objThemeOfice2007.CustomIcons.AddIcon ImageListCustomIcons.ListImages.Item(2).ExtractIcon.Handle , xtpCalendarEventIconIDOccurrence, xtpImageNormal
        'objThemeOfice2007.CustomIcons.AddIcon ImageListCustomIcons.ListImages.Item(3).ExtractIcon.Handle, xtpCalendarEventIconIDException, xtpImageNormal
        'objThemeOfice2007.CustomIcons.AddIcon ImageListCustomIcons.ListImages.Item(4).ExtractIcon.Handle, xtpCalendarEventIconIDPrivate, xtpImageNormal

        '' increase event height for 4 pixels to have enough space to draw custom icons.
        'objThemeOfice2007.MonthView.Event.HeightFormula.Constant = 5
        'objThemeOfice2007.WeekView.Event.HeightFormula.Constant = 5
        'objThemeOfice2007.RefreshMetrics

        ' custom icons

        'objThemeOfice2007.SetCustomIcons ImageListCustomIcons

        Dim arCustIconsIDs(5) As Long
        arCustIconsIDs(0) = 1 ' unread mail
        arCustIconsIDs(1) = 2 ' read mail
        arCustIconsIDs(2) = 3 ' replyed mail
        arCustIconsIDs(3) = 4 ' attachment
        arCustIconsIDs(4) = 5 ' Low priority
        arCustIconsIDs(5) = 6 ' HIGH priority

        objThemeOfice2007.CustomIcons.LoadBitmap App.Path & "\Icons\EventCustomIcons.bmp", arCustIconsIDs, xtpImageNormal


    CalendarControl.Populate

Private Sub CalendarControl_PrePopulate(ByVal ViewGroup As XtremeCalendarControl.CalendarViewGroup, ByVal Events As XtremeCalendarControl.CalendarEvents)

    Dim pEvent As CalendarEvent
    Dim strData As String

    For Each pEvent In Events
        pEvent.CustomIcons.RemoveAll

            ' customize standard icons
            If pEvent.PrivateFlag Then
                pEvent.CustomIcons.Add xtpCalendarEventIconIDPrivate
            End If

            If pEvent.Reminder Then
                pEvent.CustomIcons.Add xtpCalendarEventIconIDReminder
            End If

            If pEvent.RecurrenceState = xtpCalendarRecurrenceOccurrence Then
                pEvent.CustomIcons.Add xtpCalendarEventIconIDOccurrence
            End If

            If pEvent.RecurrenceState = xtpCalendarRecurrenceException Then
                pEvent.CustomIcons.Add xtpCalendarEventIconIDException
            End If
    Next

        If Events.Count = 1 Then
            Events(0).CustomIcons.Add 1
            Events(0).CustomIcons.Add 4
            Events(0).CustomIcons.Add 5

        ElseIf Events.Count >= 3 Then
            Events(0).CustomIcons.Add 3

            Events(1).CustomIcons.Add 2
            Events(1).CustomIcons.Add 6

            Events(2).CustomIcons.Add 6
            Events(2).CustomIcons.Add 6

        ElseIf Events.Count >= 2 Then
            Events(0).CustomIcons.Add 2
            Events(0).CustomIcons.Add 5

            Events(1).CustomIcons.Add 4
            Events(1).CustomIcons.Add 6
        End If

End Sub
]]> Wed, 16 Mar 2011 08:59:18 +0000 http://forum.codejock.com/forum_posts.asp?TID=18051&PID=63343&title=solved-calendarthemeimagelist-add#63343 <![CDATA[SOLVED: CalendarThemeImageList Add : First I want to replace the...]]> http://forum.codejock.com/forum_posts.asp?TID=18051&PID=63333&title=solved-calendarthemeimagelist-add#63333 Author: McKloony
Subject: 18051
Posted: 16 March 2011 at 1:51am

First I want to replace the default Icons for the CalendarEvens. I tried with:

CalendarControl.Theme.CustomIcons.AddIcons ImageManager.Icons

But it takes no effekt. Second I want ro add some Icons for the Day.Header

]]> Wed, 16 Mar 2011 01:51:59 +0000 http://forum.codejock.com/forum_posts.asp?TID=18051&PID=63333&title=solved-calendarthemeimagelist-add#63333 <![CDATA[SOLVED: CalendarThemeImageList Add : what are you trying to accomplish? ...]]> http://forum.codejock.com/forum_posts.asp?TID=18051&PID=63326&title=solved-calendarthemeimagelist-add#63326 Author: SuperMario
Subject: 18051
Posted: 15 March 2011 at 3:06pm

what are you trying to accomplish?]]> Tue, 15 Mar 2011 15:06:02 +0000 http://forum.codejock.com/forum_posts.asp?TID=18051&PID=63326&title=solved-calendarthemeimagelist-add#63326 <![CDATA[SOLVED: CalendarThemeImageList Add : How can I add a image from theImageManager...]]> http://forum.codejock.com/forum_posts.asp?TID=18051&PID=63291&title=solved-calendarthemeimagelist-add#63291 Author: McKloony
Subject: 18051
Posted: 14 March 2011 at 4:30am

How can I add a image from the ImageManager to the CalendarThemeImageList?

CalendarThemeImageList.AddBitmap ImageManager.Icons.GetImage(ID, 16)

does not work

]]> Mon, 14 Mar 2011 04:30:52 +0000 http://forum.codejock.com/forum_posts.asp?TID=18051&PID=63291&title=solved-calendarthemeimagelist-add#63291