Meppy wrote on Nov 20
th, 2009 at 2:17pm:
What is the target computer's OS? Could you also provide me with your Calendar settings and if possible a save file of the schedule which causes the exception (feel free to send those to
meppy@mindfusion.eu)? Also, are you using custom items and/or custom item viewers?
Regards,
Meppy
Here are the settings for the schedule in question.
Me._schedule.AllowInplaceCreate = False
Me._schedule.AllowInplaceEdit = False
Me._schedule.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me._schedule.ControlAppearance = MindFusion.Scheduling.WinForms.ControlAppearance.Custom
Me._schedule.CurrentView = MindFusion.Scheduling.WinForms.CalendarView.Timetable
Me._schedule.CustomDraw = MindFusion.Scheduling.WinForms.CustomDrawElements.TimetableColumnHeader
Me._schedule.Date = New Date(2009, 11, 8, 0, 0, 0, 0)
Me._schedule.DateTimeFormat = CType(resources.GetObject("_schedule.DateTimeFormat"), System.Globalization.DateTimeFormatInfo)
Me._schedule.DelayInplaceEdit = False
Me._schedule.EnableKeyboard = False
Me._schedule.EnableOptimization = True
Me._schedule.EndDate = New Date(2009, 12, 8, 0, 0, 0, 0)
Me._schedule.ItemSettings.HeaderSize = 30
Me._schedule.ItemSettings.PointedItemStyle = CType(resources.GetObject("_schedule.ItemSettings.PointedItemStyle"), MindFusion.Scheduling.Style)
Me._schedule.ItemSettings.PointedSelectedItemStyle = CType(resources.GetObject("_schedule.ItemSettings.PointedSelectedItemStyle"), MindFusion.Scheduling.Style)
Me._schedule.ItemSettings.SelectedItemStyle = CType(resources.GetObject("_schedule.ItemSettings.SelectedItemStyle"), MindFusion.Scheduling.Style)
Me._schedule.ItemSettings.Style = CType(resources.GetObject("_schedule.ItemSettings.Style"), MindFusion.Scheduling.Style)
Me._schedule.Location = New System.Drawing.Point(78, 0)
Me._schedule.Name = "_schedule"
Me._schedule.Selection.AllowMultiple = MindFusion.Scheduling.WinForms.State.Disabled
Me._schedule.Selection.SelectedElementsStyle = CType(resources.GetObject("_schedule.Selection.SelectedElementsStyle"), MindFusion.Scheduling.Style)
Me._schedule.ShowToolTips = True
Me._schedule.Size = New System.Drawing.Size(808, 580)
Me._schedule.TabIndex = 1
Me._schedule.Theme = MindFusion.Scheduling.WinForms.ThemeType.Silver
Me._schedule.TimetableSettings.ColumnBandSize = 8
Me._schedule.TimetableSettings.DayHeaderMinSize = 20
Me._schedule.TimetableSettings.EndTime = 1080
Me._schedule.TimetableSettings.HeaderDateFormat = "ddd - MMM dd, yyyy"
Me._schedule.TimetableSettings.InfoHeaderSize = 20
Me._schedule.TimetableSettings.MainHeaderSize = 30
Me._schedule.TimetableSettings.ShowCurrentTime = MindFusion.Scheduling.WinForms.State.Enabled
Me._schedule.TimetableSettings.ShowDayHeader = MindFusion.Scheduling.WinForms.State.Enabled
Me._schedule.TimetableSettings.ShowInfoHeader = MindFusion.Scheduling.WinForms.State.Disabled
Me._schedule.TimetableSettings.ShowItemSpans = MindFusion.Scheduling.WinForms.State.Enabled
Me._schedule.TimetableSettings.ShowMinutesInHourHeaders = MindFusion.Scheduling.WinForms.State.Enabled
Me._schedule.TimetableSettings.ShowNavigationButtons = MindFusion.Scheduling.WinForms.State.Enabled
Me._schedule.TimetableSettings.ShowPadding = MindFusion.Scheduling.WinForms.State.Disabled
Me._schedule.TimetableSettings.StartTime = 420
Me._schedule.TimetableSettings.Style = CType(resources.GetObject("_schedule.TimetableSettings.Style"), MindFusion.Scheduling.Style)
Me._schedule.TimetableSettings.TimelineStyle = CType(resources.GetObject("_schedule.TimetableSettings.TimelineStyle"), MindFusion.Scheduling.Style)
Me._schedule.TimetableSettings.VisibleColumns = 1
'
Plus, I am modifying the setttings as follows:
Private Sub SetupSchedule(ByVal startDate As Date)
_schedule.BeginInit()
_schedule.TimetableSettings.Dates.Clear()
Dim i As Integer
For i = 0 To My.Settings.Calendar_NumberofDaysToView - 1
_schedule.TimetableSettings.Dates.Add(startDate.Add(New TimeSpan(i, 0, 0, 0)))
Next i
_schedule.TimetableSettings.VisibleColumns = My.Settings.Calendar_NumberofDaysToView
_schedule.EndInit()
End Sub