SOLVED: CalendarThemeImageList Add |
Post Reply |
Author | |
McKloony
Senior Member Joined: 09 January 2007 Location: Germany Status: Offline Points: 340 |
Post Options
Thanks(0)
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 |
|
SuperMario
Admin Group Joined: 14 February 2004 Status: Offline Points: 18057 |
Post Options
Thanks(0)
|
what are you trying to accomplish?
|
|
McKloony
Senior Member Joined: 09 January 2007 Location: Germany Status: Offline Points: 340 |
Post Options
Thanks(0)
|
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
Admin Group Joined: 14 February 2004 Status: Offline Points: 18057 |
Post Options
Thanks(0)
|
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 |
|
SuperMario
Admin Group Joined: 14 February 2004 Status: Offline Points: 18057 |
Post Options
Thanks(0)
|
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.
|
|
McKloony
Senior Member Joined: 09 January 2007 Location: Germany Status: Offline Points: 340 |
Post Options
Thanks(0)
|
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
Admin Group Joined: 14 February 2004 Status: Offline Points: 18057 |
Post Options
Thanks(0)
|
You can just do this assuming you have an ImageManager on your form called CalendarImageManager:
Set objThemeOfice2007.CustomIcons = CalendarImageManager.Icons |
|
Roland
Newbie Joined: 04 June 2011 Status: Offline Points: 2 |
Post Options
Thanks(0)
|
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
|
|
Post Reply | |
Tweet
|
Forum Jump | Forum Permissions You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |