Problem with custom icons on xtpCalendarMonthView

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I use ImageList to add  custom icons.

With objThemeOffice2007.CustomIcons
            .RemoveAll
           .AddIcon IML.ListImages.Item(ICONT.myDossier).ExtractIcon.Handle, ICONT.myDossier, xtpImageNormal
            .AddIcon IML.ListImages.Item(ICONT.myReminder).ExtractIcon.Handle, xtpCalendarEventIconIDReminder, xtpImageNormal
            .AddIcon IML.ListImages.Item(ICONT.myRecurr).ExtractIcon.Handle, xtpCalendarEventIconIDOccurrence, xtpImageNormal

.... and so on.

then I use  CalendarControl_PrePopulate as in VB CJ sample.

with 1 and 5 day-view all is working well, but with 7 and 31 views I can't see icons....

any suggestions????

Thanks

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
flauzer Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 30 December 2003 Location: Italy Status: Offline Points: 108	Post Options Post Reply Quote flauzer Report Post Thanks(0) Quote Reply Topic: Problem with custom icons on xtpCalendarMonthView Posted: 22 August 2007 at 4:22am
	I use ImageList to add custom icons. With objThemeOffice2007.CustomIcons .RemoveAll .AddIcon IML.ListImages.Item(ICONT.myDossier).ExtractIcon.Handle, ICONT.myDossier, xtpImageNormal .AddIcon IML.ListImages.Item(ICONT.myReminder).ExtractIcon.Handle, xtpCalendarEventIconIDReminder, xtpImageNormal .AddIcon IML.ListImages.Item(ICONT.myRecurr).ExtractIcon.Handle, xtpCalendarEventIconIDOccurrence, xtpImageNormal .... and so on. then I use CalendarControl_PrePopulate as in VB CJ sample. with 1 and 5 day-view all is working well, but with 7 and 31 views I can't see icons.... any suggestions???? Thanks

HansN Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 06 August 2007 Location: Austria Status: Offline Points: 7	Post Options Post Reply Quote HansN Report Post Thanks(0) Quote Reply Posted: 21 November 2007 at 12:02pm
	Hi ! I have the same problem. Did you already solve that problem ? Can it be that it is dependent on that the icons are from an ListImage and not loaded from file as in the VB sample ? Thanks in advance. HansN

flauzer Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 30 December 2003 Location: Italy Status: Offline Points: 108	Post Options Post Reply Quote flauzer Report Post Thanks(0) Quote Reply Posted: 22 November 2007 at 2:48am
	Looks like the problem is in icons height. Try this, for each views,.....for example if you have 16x16 small icons: With objThemeOffice2007.WeekView.Event.EventIconsToDraw .ShowOccurrence = True .ShowReminder = True .ShowException = True .ShowMeeting = True .ShowPrivate = True End With --->>> objThemeOffice2007.WeekView.Event.HeightFormula.Constant = 16 objThemeOffice2007.RefreshMetrics ----->>>>

HansN Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 06 August 2007 Location: Austria Status: Offline Points: 7	Post Options Post Reply Quote HansN Report Post Thanks(0) Quote Reply Posted: 22 November 2007 at 3:18am
	Thanks a lot. It works fine now. I remember there was written somewhere in the help, that icons will be displayed if they fit in ! So the only solution is to set up an constant height. But one have to know where to do it ! I never would have found that without your help. So again thanks a lot. HansN