SOLVED: CalendarThemeImageList Add

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

Is it also possible to add CustomIcons from the ImageManager?

Product: Xtreme SuitePro (ActiveX) 16.2.5

Platform: XP / Windows 7

Language: Visual Basic 6.0 SP6

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

what are you trying to accomplish?

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Roland Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 04 June 2011 Status: Offline Points: 2	Post Options Post Reply Quote Roland Report Post Thanks(0) Quote Reply Topic: SOLVED: CalendarThemeImageList Add 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

SuperMario Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 14 February 2004 Status: Offline Points: 18057	Post Options Post Reply Quote SuperMario Report Post Thanks(0) Quote Reply 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

McKloony Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 09 January 2007 Location: Germany Status: Offline Points: 340	Post Options Post Reply Quote McKloony Report Post Thanks(0) Quote Reply Posted: 16 March 2011 at 10:35am
	Is it also possible to add CustomIcons from the ImageManager?
	Product: Xtreme SuitePro (ActiveX) 16.2.5 Platform: XP / Windows 7 Language: Visual Basic 6.0 SP6

SuperMario Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 14 February 2004 Status: Offline Points: 18057	Post Options Post Reply Quote SuperMario Report Post Thanks(0) Quote Reply 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.

SuperMario Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 14 February 2004 Status: Offline Points: 18057	Post Options Post Reply Quote SuperMario Report Post Thanks(0) Quote Reply 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

McKloony Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 09 January 2007 Location: Germany Status: Offline Points: 340	Post Options Post Reply Quote McKloony Report Post Thanks(0) Quote Reply 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
	Product: Xtreme SuitePro (ActiveX) 16.2.5 Platform: XP / Windows 7 Language: Visual Basic 6.0 SP6

SuperMario Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 14 February 2004 Status: Offline Points: 18057	Post Options Post Reply Quote SuperMario Report Post Thanks(0) Quote Reply Posted: 15 March 2011 at 3:06pm
	what are you trying to accomplish?

McKloony Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 09 January 2007 Location: Germany Status: Offline Points: 340	Post Options Post Reply Quote McKloony Report Post Thanks(0) Quote Reply 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
	Product: Xtreme SuitePro (ActiveX) 16.2.5 Platform: XP / Windows 7 Language: Visual Basic 6.0 SP6