jj 22.09 calendar

This commit is contained in:
JenneJ
2016-09-22 17:11:38 +02:00
parent 980a20435c
commit 30aca1d125
6 changed files with 69 additions and 54 deletions

View File

@@ -27,7 +27,7 @@ Partial Class frmCalendar
Dim TimeRuler2 As DevExpress.XtraScheduler.TimeRuler = New DevExpress.XtraScheduler.TimeRuler()
Dim TimeRuler3 As DevExpress.XtraScheduler.TimeRuler = New DevExpress.XtraScheduler.TimeRuler()
Me.SchedulerControl1 = New DevExpress.XtraScheduler.SchedulerControl()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.ribbonCalendar = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.SwitchToDayViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToDayViewItem()
Me.SwitchToWorkWeekViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToWorkWeekViewItem()
Me.SwitchToWeekViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToWeekViewItem()
@@ -66,10 +66,10 @@ Partial Class frmCalendar
Me.GroupByDateItem1 = New DevExpress.XtraScheduler.UI.GroupByDateItem()
Me.GroupByResourceItem1 = New DevExpress.XtraScheduler.UI.GroupByResourceItem()
Me.CalendarToolsRibbonPageCategory1 = New DevExpress.XtraScheduler.UI.CalendarToolsRibbonPageCategory()
Me.AppointmentRibbonPage1 = New DevExpress.XtraScheduler.UI.AppointmentRibbonPage()
Me.pageAppointment = New DevExpress.XtraScheduler.UI.AppointmentRibbonPage()
Me.ActionsRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.ActionsRibbonPageGroup()
Me.OptionsRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.OptionsRibbonPageGroup()
Me.HomeRibbonPage1 = New DevExpress.XtraScheduler.UI.HomeRibbonPage()
Me.pageCalendar = New DevExpress.XtraScheduler.UI.HomeRibbonPage()
Me.AppointmentRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.AppointmentRibbonPageGroup()
Me.NavigatorRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.NavigatorRibbonPageGroup()
Me.ArrangeRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.ArrangeRibbonPageGroup()
@@ -82,7 +82,7 @@ Partial Class frmCalendar
Me.TBPMO_RESOURCESTableAdapter = New DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TBPMO_RESOURCESTableAdapter()
Me.SchedulerBarController1 = New DevExpress.XtraScheduler.UI.SchedulerBarController()
CType(Me.SchedulerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ribbonCalendar, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemDuration1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SchedulerStorage1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -95,10 +95,10 @@ Partial Class frmCalendar
'SchedulerControl1
'
Me.SchedulerControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SchedulerControl1.Location = New System.Drawing.Point(0, 142)
Me.SchedulerControl1.MenuManager = Me.RibbonControl1
Me.SchedulerControl1.Location = New System.Drawing.Point(0, 140)
Me.SchedulerControl1.MenuManager = Me.ribbonCalendar
Me.SchedulerControl1.Name = "SchedulerControl1"
Me.SchedulerControl1.Size = New System.Drawing.Size(926, 455)
Me.SchedulerControl1.Size = New System.Drawing.Size(926, 457)
Me.SchedulerControl1.Start = New Date(2014, 12, 23, 0, 0, 0, 0)
Me.SchedulerControl1.Storage = Me.SchedulerStorage1
Me.SchedulerControl1.TabIndex = 0
@@ -108,17 +108,17 @@ Partial Class frmCalendar
Me.SchedulerControl1.Views.FullWeekView.TimeRulers.Add(TimeRuler2)
Me.SchedulerControl1.Views.WorkWeekView.TimeRulers.Add(TimeRuler3)
'
'RibbonControl1
'ribbonCalendar
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.SwitchToDayViewItem1, Me.SwitchToWorkWeekViewItem1, Me.SwitchToWeekViewItem1, Me.SwitchToFullWeekViewItem1, Me.SwitchToMonthViewItem1, Me.SwitchToTimelineViewItem1, Me.SwitchToGanttViewItem1, Me.SwitchTimeScalesItem1, Me.ChangeScaleWidthItem1, Me.SwitchTimeScalesCaptionItem1, Me.SwitchCompressWeekendItem1, Me.SwitchShowWorkTimeOnlyItem1, Me.SwitchCellsAutoHeightItem1, Me.ChangeSnapToCellsUIItem1, Me.EditAppointmentQueryItem1, Me.EditOccurrenceUICommandItem1, Me.EditSeriesUICommandItem1, Me.DeleteAppointmentsItem1, Me.DeleteOccurrenceItem1, Me.DeleteSeriesItem1, Me.SplitAppointmentItem1, Me.ChangeAppointmentStatusItem1, Me.ChangeAppointmentLabelItem1, Me.ToggleRecurrenceItem1, Me.ChangeAppointmentReminderItem1, Me.NewAppointmentItem1, Me.NewRecurringAppointmentItem1, Me.NavigateViewBackwardItem1, Me.NavigateViewForwardItem1, Me.GotoTodayItem1, Me.ViewZoomInItem1, Me.ViewZoomOutItem1, Me.GroupByNoneItem1, Me.GroupByDateItem1, Me.GroupByResourceItem1})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 1
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.CalendarToolsRibbonPageCategory1})
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.HomeRibbonPage1})
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemSpinEdit1, Me.RepositoryItemDuration1})
Me.RibbonControl1.Size = New System.Drawing.Size(926, 142)
Me.ribbonCalendar.ExpandCollapseItem.Id = 0
Me.ribbonCalendar.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonCalendar.ExpandCollapseItem, Me.SwitchToDayViewItem1, Me.SwitchToWorkWeekViewItem1, Me.SwitchToWeekViewItem1, Me.SwitchToFullWeekViewItem1, Me.SwitchToMonthViewItem1, Me.SwitchToTimelineViewItem1, Me.SwitchToGanttViewItem1, Me.SwitchTimeScalesItem1, Me.ChangeScaleWidthItem1, Me.SwitchTimeScalesCaptionItem1, Me.SwitchCompressWeekendItem1, Me.SwitchShowWorkTimeOnlyItem1, Me.SwitchCellsAutoHeightItem1, Me.ChangeSnapToCellsUIItem1, Me.EditAppointmentQueryItem1, Me.EditOccurrenceUICommandItem1, Me.EditSeriesUICommandItem1, Me.DeleteAppointmentsItem1, Me.DeleteOccurrenceItem1, Me.DeleteSeriesItem1, Me.SplitAppointmentItem1, Me.ChangeAppointmentStatusItem1, Me.ChangeAppointmentLabelItem1, Me.ToggleRecurrenceItem1, Me.ChangeAppointmentReminderItem1, Me.NewAppointmentItem1, Me.NewRecurringAppointmentItem1, Me.NavigateViewBackwardItem1, Me.NavigateViewForwardItem1, Me.GotoTodayItem1, Me.ViewZoomInItem1, Me.ViewZoomOutItem1, Me.GroupByNoneItem1, Me.GroupByDateItem1, Me.GroupByResourceItem1})
Me.ribbonCalendar.Location = New System.Drawing.Point(0, 0)
Me.ribbonCalendar.MaxItemId = 1
Me.ribbonCalendar.Name = "ribbonCalendar"
Me.ribbonCalendar.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.CalendarToolsRibbonPageCategory1})
Me.ribbonCalendar.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageCalendar})
Me.ribbonCalendar.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemSpinEdit1, Me.RepositoryItemDuration1})
Me.ribbonCalendar.Size = New System.Drawing.Size(926, 140)
'
'SwitchToDayViewItem1
'
@@ -268,6 +268,7 @@ Partial Class frmCalendar
Me.RepositoryItemDuration1.AllowNullInput = DevExpress.Utils.DefaultBoolean.[False]
Me.RepositoryItemDuration1.AutoHeight = False
Me.RepositoryItemDuration1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.RepositoryItemDuration1.DisabledStateText = Nothing
Me.RepositoryItemDuration1.Name = "RepositoryItemDuration1"
Me.RepositoryItemDuration1.NullValuePromptShowForEmptyValue = True
Me.RepositoryItemDuration1.ShowEmptyItem = True
@@ -327,14 +328,14 @@ Partial Class frmCalendar
'
Me.CalendarToolsRibbonPageCategory1.Control = Me.SchedulerControl1
Me.CalendarToolsRibbonPageCategory1.Name = "CalendarToolsRibbonPageCategory1"
Me.CalendarToolsRibbonPageCategory1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.AppointmentRibbonPage1})
Me.CalendarToolsRibbonPageCategory1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageAppointment})
Me.CalendarToolsRibbonPageCategory1.Visible = False
'
'AppointmentRibbonPage1
'pageAppointment
'
Me.AppointmentRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.ActionsRibbonPageGroup1, Me.OptionsRibbonPageGroup1})
Me.AppointmentRibbonPage1.Name = "AppointmentRibbonPage1"
Me.AppointmentRibbonPage1.Visible = False
Me.pageAppointment.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.ActionsRibbonPageGroup1, Me.OptionsRibbonPageGroup1})
Me.pageAppointment.Name = "pageAppointment"
Me.pageAppointment.Visible = False
'
'ActionsRibbonPageGroup1
'
@@ -351,10 +352,11 @@ Partial Class frmCalendar
Me.OptionsRibbonPageGroup1.ItemLinks.Add(Me.ChangeAppointmentReminderItem1)
Me.OptionsRibbonPageGroup1.Name = "OptionsRibbonPageGroup1"
'
'HomeRibbonPage1
'pageCalendar
'
Me.HomeRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.AppointmentRibbonPageGroup1, Me.NavigatorRibbonPageGroup1, Me.ArrangeRibbonPageGroup1, Me.GroupByRibbonPageGroup1})
Me.HomeRibbonPage1.Name = "HomeRibbonPage1"
Me.pageCalendar.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.AppointmentRibbonPageGroup1, Me.NavigatorRibbonPageGroup1, Me.ArrangeRibbonPageGroup1, Me.GroupByRibbonPageGroup1})
Me.pageCalendar.Name = "pageCalendar"
Me.pageCalendar.Text = "Kalender"
'
'AppointmentRibbonPageGroup1
'
@@ -481,11 +483,11 @@ Partial Class frmCalendar
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(926, 597)
Me.Controls.Add(Me.SchedulerControl1)
Me.Controls.Add(Me.RibbonControl1)
Me.Controls.Add(Me.ribbonCalendar)
Me.Name = "frmCalendar"
Me.Text = "Kalender Ansicht - Brainpool"
CType(Me.SchedulerControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ribbonCalendar, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemDuration1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SchedulerStorage1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -504,7 +506,7 @@ Partial Class frmCalendar
Friend WithEvents TBPMO_APPOINTMENTSTableAdapter As DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TBPMO_APPOINTMENTSTableAdapter
Friend WithEvents TBPMORESOURCESBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPMO_RESOURCESTableAdapter As DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TBPMO_RESOURCESTableAdapter
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents ribbonCalendar As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents SwitchToDayViewItem1 As DevExpress.XtraScheduler.UI.SwitchToDayViewItem
Friend WithEvents SwitchToWorkWeekViewItem1 As DevExpress.XtraScheduler.UI.SwitchToWorkWeekViewItem
Friend WithEvents SwitchToWeekViewItem1 As DevExpress.XtraScheduler.UI.SwitchToWeekViewItem
@@ -534,7 +536,7 @@ Partial Class frmCalendar
Friend WithEvents ChangeAppointmentReminderItem1 As DevExpress.XtraScheduler.UI.ChangeAppointmentReminderItem
Friend WithEvents RepositoryItemDuration1 As DevExpress.XtraScheduler.UI.RepositoryItemDuration
Friend WithEvents CalendarToolsRibbonPageCategory1 As DevExpress.XtraScheduler.UI.CalendarToolsRibbonPageCategory
Friend WithEvents AppointmentRibbonPage1 As DevExpress.XtraScheduler.UI.AppointmentRibbonPage
Friend WithEvents pageAppointment As DevExpress.XtraScheduler.UI.AppointmentRibbonPage
Friend WithEvents ActionsRibbonPageGroup1 As DevExpress.XtraScheduler.UI.ActionsRibbonPageGroup
Friend WithEvents OptionsRibbonPageGroup1 As DevExpress.XtraScheduler.UI.OptionsRibbonPageGroup
Friend WithEvents NewAppointmentItem1 As DevExpress.XtraScheduler.UI.NewAppointmentItem
@@ -547,7 +549,7 @@ Partial Class frmCalendar
Friend WithEvents GroupByNoneItem1 As DevExpress.XtraScheduler.UI.GroupByNoneItem
Friend WithEvents GroupByDateItem1 As DevExpress.XtraScheduler.UI.GroupByDateItem
Friend WithEvents GroupByResourceItem1 As DevExpress.XtraScheduler.UI.GroupByResourceItem
Friend WithEvents HomeRibbonPage1 As DevExpress.XtraScheduler.UI.HomeRibbonPage
Friend WithEvents pageCalendar As DevExpress.XtraScheduler.UI.HomeRibbonPage
Friend WithEvents AppointmentRibbonPageGroup1 As DevExpress.XtraScheduler.UI.AppointmentRibbonPageGroup
Friend WithEvents NavigatorRibbonPageGroup1 As DevExpress.XtraScheduler.UI.NavigatorRibbonPageGroup
Friend WithEvents ArrangeRibbonPageGroup1 As DevExpress.XtraScheduler.UI.ArrangeRibbonPageGroup